(FILECREATED " 4-May-87 14:37:04" ("compiled on " {QV}1.3K>LIBRARY>NCCASECLUSTER.;4) "12-Nov-85 14:59:23" recompiled changes: CASECLUSTER.ArgumentMakeFn in "LOOPS/KOTO 17-Apr-87 ..." dated "17-Apr-87 16:50:00") (FILECREATED " 4-May-87 14:35:38" {QV}1.3K>LIBRARY>NCCASECLUSTER.;4 13580 changes to: (FNS CASECLUSTER.ArgumentMakeFn) previous date: " 4-May-87 02:23:41" {QV}1.3K>LIBRARY>NCCASECLUSTER.;3) CASECLUSTER.CaseClusterMakeFn D1 (P 10Q SuperType P 7 FieldValue P 6 CardTypeRecord P 5 CardTypeName P 4 NoteCardType P 0 NoteFile I 2 NoDisplayFlg I 1 Title I 0 Card) @ 1A³ o@ oohihi b¿@Éµ@ L!Md²u ^ŸNÉ_dgð²R¿MNd”É ´ M ^d¬oM ¿NÉ_dgð²!¿oogoMo ¿Ogð—Mg OO!Md²u ^ŸNÉ_dgð²R¿MNd”É ´ M ^d¬oM ¿NÉ_dgð²!¿oogoMo ¿Ogð—Mg O¹@AB`0`°Ld[H µ.oKohoi´HKihdH ºKJ ¿J_¿Oµ Oh_‚O&_¿µµOhlI(565Q NCP.RegisterCardByName 557Q NCP.CreateFileBox 553Q NCP.ContentsFileBox 540Q NCP.AskYesOrNo 527Q CONCAT 511Q NCP.LookupCardByName 457Q NC.GetCardTypeFieldOfSuper 440Q NC.ReportError 435Q CONCAT 364Q NC.ReportError 361Q CONCAT 346Q NC.CardTypeRecord 340Q NC.CardTypeLoader 302Q NC.CardTypeRecord 256Q NC.GetCardTypeFieldOfSuper 237Q NC.ReportError 234Q CONCAT 163Q NC.ReportError 160Q CONCAT 145Q NC.CardTypeRecord 137Q NC.CardTypeLoader 101Q NC.CardTypeRecord 63Q NC.GetType 44Q NCP.AskUser 30Q CONCAT 21Q NCP.CardType 3 NCP.CardNoteFile) (500Q CASECLUSTER.FileBoxNames 472Q CASECLUSTER.ClusterChildInfos 454Q MakeFn 446Q \\FILLME// 420Q MakeFn 401Q \\EMPTY// 371Q NoteCardType 333Q NoteCardType 320Q \\EMPTY// 310Q NoteCardType 253Q SuperType 245Q \\FILLME// 217Q SuperType 200Q \\EMPTY// 170Q NoteCardType 132Q NoteCardType 117Q \\EMPTY// 107Q NoteCardType 53Q CardObject) ( 534Q "Yes" 524Q "'? " 517Q "Want to create new filebox with name '" 431Q " still \\EMPTY// after autoloading." 424Q " of card type " 415Q "Field name " 411Q "NC.GetCardTypeField" 355Q "Cannot find full definition of card type: " 230Q " still \\EMPTY// after autoloading." 223Q " of card type " 214Q "Field name " 210Q "NC.GetCardTypeField" 154Q "Cannot find full definition of card type: " 34Q "-- " 25Q " card? " 15Q "Title of ") CASECLUSTER.FactsMakeFn D1 (P 6 ReturnValue P 4 SuperType P 3 FieldValue P 2 CardTypeRecord P 1 CardTypeName P 0 NoteCardType I 2 NoDisplayFlg I 1 Title I 0 Card) <@Éµ@ H!Id²q ZžJÉ[dgð²P¿IJd”É ´ I Zd¬oI ¿JÉ[dgð² ¿oogoIo ¿Kgð—Ig €KL!Id²q ZžJÉ[dgð²P¿IJd”É ´ I Zd¬oI ¿JÉ[dgð² ¿oogoIo ¿Kgð—Ig €K½@ABlM@ol l l ol l N(470Q NCP.CardAddText 465Q CONCAT 461Q CHARACTER 454Q CHARACTER 443Q CHARACTER 436Q CHARACTER 431Q CHARACTER 377Q NC.GetCardTypeFieldOfSuper 361Q NC.ReportError 356Q CONCAT 306Q NC.ReportError 303Q CONCAT 270Q NC.CardTypeRecord 262Q NC.CardTypeLoader 225Q NC.CardTypeRecord 203Q NC.GetCardTypeFieldOfSuper 165Q NC.ReportError 162Q CONCAT 112Q NC.ReportError 107Q CONCAT 74Q NC.CardTypeRecord 66Q NC.CardTypeLoader 31Q NC.CardTypeRecord 13Q NC.GetType) (374Q MakeFn 366Q \\FILLME// 341Q MakeFn 322Q \\EMPTY// 313Q NoteCardType 255Q NoteCardType 242Q \\EMPTY// 233Q NoteCardType 200Q SuperType 172Q \\FILLME// 145Q SuperType 126Q \\EMPTY// 117Q NoteCardType 61Q NoteCardType 46Q \\EMPTY// 37Q NoteCardType 3 CardObject) ( 447Q "REAL FACTS" 424Q "LEGAL FACTS" 352Q " still \\EMPTY// after autoloading." 345Q " of card type " 336Q "Field name " 332Q "NC.GetCardTypeField" 277Q "Cannot find full definition of card type: " 156Q " still \\EMPTY// after autoloading." 151Q " of card type " 142Q "Field name " 136Q "NC.GetCardTypeField" 103Q "Cannot find full definition of card type: ") CASECLUSTER.DecisionRuleMakeFn D1 (P 6 ReturnValue P 4 SuperType P 3 FieldValue P 2 CardTypeRecord P 1 CardTypeName P 0 NoteCardType I 2 NoDisplayFlg I 1 Title I 0 Card) S@Éµ@ H!Id²q ZžJÉ[dgð²P¿IJd”É ´ I Zd¬oI ¿JÉ[dgð² ¿oogoIo ¿Kgð—Ig €KL!Id²q ZžJÉ[dgð²P¿IJd”É ´ I Zd¬oI ¿JÉ[dgð² ¿oogoIo ¿Kgð—Ig €K½@ABlM@ol l ol l ol l ol l N(517Q NCP.CardAddText 514Q CONCAT 510Q CHARACTER 503Q CHARACTER 472Q CHARACTER 465Q CHARACTER 454Q CHARACTER 447Q CHARACTER 436Q CHARACTER 431Q CHARACTER 377Q NC.GetCardTypeFieldOfSuper 361Q NC.ReportError 356Q CONCAT 306Q NC.ReportError 303Q CONCAT 270Q NC.CardTypeRecord 262Q NC.CardTypeLoader 225Q NC.CardTypeRecord 203Q NC.GetCardTypeFieldOfSuper 165Q NC.ReportError 162Q CONCAT 112Q NC.ReportError 107Q CONCAT 74Q NC.CardTypeRecord 66Q NC.CardTypeLoader 31Q NC.CardTypeRecord 13Q NC.GetType) (374Q MakeFn 366Q \\FILLME// 341Q MakeFn 322Q \\EMPTY// 313Q NoteCardType 255Q NoteCardType 242Q \\EMPTY// 233Q NoteCardType 200Q SuperType 172Q \\FILLME// 145Q SuperType 126Q \\EMPTY// 117Q NoteCardType 61Q NoteCardType 46Q \\EMPTY// 37Q NoteCardType 3 CardObject) ( 476Q "SUPPORT" 460Q "DECISION" 442Q "OPERATIVE FACTS" 424Q "LEGAL CONTEXT" 352Q " still \\EMPTY// after autoloading." 345Q " of card type " 336Q "Field name " 332Q "NC.GetCardTypeField" 277Q "Cannot find full definition of card type: " 156Q " still \\EMPTY// after autoloading." 151Q " of card type " 142Q "Field name " 136Q "NC.GetCardTypeField" 103Q "Cannot find full definition of card type: ") CASECLUSTER.RuleSupportMakeFn D1 (P 6 ReturnValue P 4 SuperType P 3 FieldValue P 2 CardTypeRecord P 1 CardTypeName P 0 NoteCardType I 2 NoDisplayFlg I 1 Title I 0 Card) S@Éµ@ H!Id²q ZžJÉ[dgð²P¿IJd”É ´ I Zd¬oI ¿JÉ[dgð² ¿oogoIo ¿Kgð—Ig €KL!Id²q ZžJÉ[dgð²P¿IJd”É ´ I Zd¬oI ¿JÉ[dgð² ¿oogoIo ¿Kgð—Ig €K½@ABlM@ol l ol l ol l ol l N(517Q NCP.CardAddText 514Q CONCAT 510Q CHARACTER 503Q CHARACTER 472Q CHARACTER 465Q CHARACTER 454Q CHARACTER 447Q CHARACTER 436Q CHARACTER 431Q CHARACTER 377Q NC.GetCardTypeFieldOfSuper 361Q NC.ReportError 356Q CONCAT 306Q NC.ReportError 303Q CONCAT 270Q NC.CardTypeRecord 262Q NC.CardTypeLoader 225Q NC.CardTypeRecord 203Q NC.GetCardTypeFieldOfSuper 165Q NC.ReportError 162Q CONCAT 112Q NC.ReportError 107Q CONCAT 74Q NC.CardTypeRecord 66Q NC.CardTypeLoader 31Q NC.CardTypeRecord 13Q NC.GetType) (374Q MakeFn 366Q \\FILLME// 341Q MakeFn 322Q \\EMPTY// 313Q NoteCardType 255Q NoteCardType 242Q \\EMPTY// 233Q NoteCardType 200Q SuperType 172Q \\FILLME// 145Q SuperType 126Q \\EMPTY// 117Q NoteCardType 61Q NoteCardType 46Q \\EMPTY// 37Q NoteCardType 3 CardObject) ( 476Q "CASE PRECEDENT" 460Q "STATUTE" 442Q "REFERENCE" 424Q "PRINCIPLE" 352Q " still \\EMPTY// after autoloading." 345Q " of card type " 336Q "Field name " 332Q "NC.GetCardTypeField" 277Q "Cannot find full definition of card type: " 156Q " still \\EMPTY// after autoloading." 151Q " of card type " 142Q "Field name " 136Q "NC.GetCardTypeField" 103Q "Cannot find full definition of card type: ") CASECLUSTER.LegalStatusRuleMakeFn D1 (P 6 ReturnValue P 4 SuperType P 3 FieldValue P 2 CardTypeRecord P 1 CardTypeName P 0 NoteCardType I 2 NoDisplayFlg I 1 Title I 0 Card) S@Éµ@ H!Id²q ZžJÉ[dgð²P¿IJd”É ´ I Zd¬oI ¿JÉ[dgð² ¿oogoIo ¿Kgð—Ig €KL!Id²q ZžJÉ[dgð²P¿IJd”É ´ I Zd¬oI ¿JÉ[dgð² ¿oogoIo ¿Kgð—Ig €K½@ABlM@ol l ol l ol l ol l N(517Q NCP.CardAddText 514Q CONCAT 510Q CHARACTER 503Q CHARACTER 472Q CHARACTER 465Q CHARACTER 454Q CHARACTER 447Q CHARACTER 436Q CHARACTER 431Q CHARACTER 377Q NC.GetCardTypeFieldOfSuper 361Q NC.ReportError 356Q CONCAT 306Q NC.ReportError 303Q CONCAT 270Q NC.CardTypeRecord 262Q NC.CardTypeLoader 225Q NC.CardTypeRecord 203Q NC.GetCardTypeFieldOfSuper 165Q NC.ReportError 162Q CONCAT 112Q NC.ReportError 107Q CONCAT 74Q NC.CardTypeRecord 66Q NC.CardTypeLoader 31Q NC.CardTypeRecord 13Q NC.GetType) (374Q MakeFn 366Q \\FILLME// 341Q MakeFn 322Q \\EMPTY// 313Q NoteCardType 255Q NoteCardType 242Q \\EMPTY// 233Q NoteCardType 200Q SuperType 172Q \\FILLME// 145Q SuperType 126Q \\EMPTY// 117Q NoteCardType 61Q NoteCardType 46Q \\EMPTY// 37Q NoteCardType 3 CardObject) ( 476Q "SUPPORT" 460Q "LEGAL STATUS" 442Q "OPERATIVE FACTS" 424Q "LEGAL CONTEXT" 352Q " still \\EMPTY// after autoloading." 345Q " of card type " 336Q "Field name " 332Q "NC.GetCardTypeField" 277Q "Cannot find full definition of card type: " 156Q " still \\EMPTY// after autoloading." 151Q " of card type " 142Q "Field name " 136Q "NC.GetCardTypeField" 103Q "Cannot find full definition of card type: ") CASECLUSTER.RuleInstanceMakeFn D1 (P 10Q BindingsCard P 7 NoteFile P 6 ReturnValue P 4 SuperType P 3 FieldValue P 2 CardTypeRecord P 1 CardTypeName P 0 NoteCardType I 2 NoDisplayFlg I 1 Title I 0 Card) { @Éµ@ H!Id²q ZžJÉ[dgð²P¿IJd”É ´ I Zd¬oI ¿JÉ[dgð² ¿oogoIo ¿Kgð—Ig €KL!Id²q ZžJÉ[dgð²P¿IJd”É ´ I Zd¬oI ¿JÉ[dgð² ¿oogoIo ¿Kgð—Ig €K½@ABlM@ @ol l ol OAo i_gO ¨gO ¿g@O@l ol l N(567Q NCP.CardAddText 564Q CONCAT 561Q CHARACTER 554Q CHARACTER 543Q CHARACTER 535Q NCP.LocalGlobalLink 523Q NCP.CreateLinkType 512Q NCP.ValidLinkTypeP 500Q NCP.CreateTextCard 474Q CONCAT 462Q NCP.CardAddText 457Q CONCAT 453Q CHARACTER 442Q CHARACTER 435Q CHARACTER 420Q NCP.CardNoteFile 377Q NC.GetCardTypeFieldOfSuper 361Q NC.ReportError 356Q CONCAT 306Q NC.ReportError 303Q CONCAT 270Q NC.CardTypeRecord 262Q NC.CardTypeLoader 225Q NC.CardTypeRecord 203Q NC.GetCardTypeFieldOfSuper 165Q NC.ReportError 162Q CONCAT 112Q NC.ReportError 107Q CONCAT 74Q NC.CardTypeRecord 66Q NC.CardTypeLoader 31Q NC.CardTypeRecord 13Q NC.GetType) (527Q Binding 516Q Binding 505Q Binding 374Q MakeFn 366Q \\FILLME// 341Q MakeFn 322Q \\EMPTY// 313Q NoteCardType 255Q NoteCardType 242Q \\EMPTY// 233Q NoteCardType 200Q SuperType 172Q \\FILLME// 145Q SuperType 126Q \\EMPTY// 117Q NoteCardType 61Q NoteCardType 46Q \\EMPTY// 37Q NoteCardType 3 CardObject) ( 547Q "STATUS RULES" 471Q ":Bindings" 446Q "BINDINGS" 430Q "LEGAL RULE" 352Q " still \\EMPTY// after autoloading." 345Q " of card type " 336Q "Field name " 332Q "NC.GetCardTypeField" 277Q "Cannot find full definition of card type: " 156Q " still \\EMPTY// after autoloading." 151Q " of card type " 142Q "Field name " 136Q "NC.GetCardTypeField" 103Q "Cannot find full definition of card type: ") CASECLUSTER.RationaleMakeFn D1 (P 7 NoteFile P 6 ReturnValue P 4 SuperType P 3 FieldValue P 2 CardTypeRecord P 1 CardTypeName P 0 NoteCardType I 2 NoDisplayFlg I 1 Title I 0 Card) F@Éµ@ H!Id²q ZžJÉ[dgð²P¿IJd”É ´ I Zd¬oI ¿JÉ[dgð² ¿oogoIo ¿Kgð—Ig €KL!Id²q ZžJÉ[dgð²P¿IJd”É ´ I Zd¬oI ¿JÉ[dgð² ¿oogoIo ¿Kgð—Ig €K½@ABlM@ gO ¨gO ¿g@gOAo ihg N(502Q NCP.LocalGlobalLink 472Q NCP.CreateCard 466Q CONCAT 444Q NCP.CreateLinkType 433Q NCP.ValidLinkTypeP 420Q NCP.CardNoteFile 377Q NC.GetCardTypeFieldOfSuper 361Q NC.ReportError 356Q CONCAT 306Q NC.ReportError 303Q CONCAT 270Q NC.CardTypeRecord 262Q NC.CardTypeLoader 225Q NC.CardTypeRecord 203Q NC.GetCardTypeFieldOfSuper 165Q NC.ReportError 162Q CONCAT 112Q NC.ReportError 107Q CONCAT 74Q NC.CardTypeRecord 66Q NC.CardTypeLoader 31Q NC.CardTypeRecord 13Q NC.GetType) (476Q Title 454Q Argument 450Q Argument 437Q Argument 426Q Argument 374Q MakeFn 366Q \\FILLME// 341Q MakeFn 322Q \\EMPTY// 313Q NoteCardType 255Q NoteCardType 242Q \\EMPTY// 233Q NoteCardType 200Q SuperType 172Q \\FILLME// 145Q SuperType 126Q \\EMPTY// 117Q NoteCardType 61Q NoteCardType 46Q \\EMPTY// 37Q NoteCardType 3 CardObject) ( 463Q ":Argument1" 352Q " still \\EMPTY// after autoloading." 345Q " of card type " 336Q "Field name " 332Q "NC.GetCardTypeField" 277Q "Cannot find full definition of card type: " 156Q " still \\EMPTY// after autoloading." 151Q " of card type " 142Q "Field name " 136Q "NC.GetCardTypeField" 103Q "Cannot find full definition of card type: ") CASECLUSTER.ArgumentMakeFn D1 (P 3 HeadingPos P 2 RuleInstanceCard2 P 1 RuleInstanceCard1 P 0 NoteFile I 2 NoDisplayFlg I 1 Title I 0 Card) ´@ 1A¯oohib¿gH §gH ¿gH §gH ¿gHAo iYgHAo iZI ok[IKµ