| 1 | FSCEU ;SLC/STAFF-NOIS Edit Utilities ;9/6/98 20:39
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | UPDATE(CALL) ; from FSCEN, FSCLMPE1, FSCLMPEA, FSCLMPES
|
|---|
| 5 | D UPDATE^FSCAUDIT(CALL)
|
|---|
| 6 | D UPDATE^FSCTASK(CALL)
|
|---|
| 7 | D BUILD(CALL)
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | BUILD(CALL) ; from FSCELL, FSCLMPE1
|
|---|
| 11 | N LINE,SHORT
|
|---|
| 12 | D BUILD^FSCFORM(FSCCNT,CALL,.FSCSTYLE,0,"FSC MULT ")
|
|---|
| 13 | S SHORT=$$SHORT^FSCGETS(CALL,FSCCNT),LINE=+$O(^TMP("FSC LIST CALLS",$J,"IDX",FSCCNT,0))
|
|---|
| 14 | S ^TMP("FSC LIST CALLS",$J,LINE,0)=SHORT
|
|---|
| 15 | S $P(^TMP("FSC MULT",$J,FSCCNT),U,2)=SHORT
|
|---|
| 16 | S VALMHDR(1)=SHORT
|
|---|
| 17 | I $L($G(FSCLNAME)),FSCLNAME'["(MODIFIED)" S FSCLNAME=FSCLNAME_" (MODIFIED)"
|
|---|
| 18 | S FSCEDIT=1
|
|---|
| 19 | S VALMCNT=+$P(@VALMAR,U,2),VALMBG=1
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | WP(NAME,PROMPT) ; from FSCEC, FSCEN, FSCNMS
|
|---|
| 23 | N CNT,DIC,DWLW,DWPK,LINE,TEXTNUM K DIC
|
|---|
| 24 | K ^TMP("FSC TEXT",$J,NAME)
|
|---|
| 25 | L +^FSCD("TEXT",0):30 I '$T D SOMEONE^FSCLMPE1 Q
|
|---|
| 26 | S TEXTNUM=$P(^FSCD("TEXT",0),U,4)+1
|
|---|
| 27 | F Q:'$D(^FSCD("TEXT",TEXTNUM,0)) S TEXTNUM=TEXTNUM+1
|
|---|
| 28 | S $P(^FSCD("TEXT",0),U,3)=TEXTNUM,$P(^(0),U,4)=$P(^(0),U,4)+1
|
|---|
| 29 | S ^FSCD("TEXT",TEXTNUM,0)=TEXTNUM
|
|---|
| 30 | L -^FSCD("TEXT",0)
|
|---|
| 31 | I $L($G(PROMPT)) W !,PROMPT
|
|---|
| 32 | S DIC="^FSCD(""TEXT"","_TEXTNUM_",1,",DWLW=80,DWPK=1 D EN^DIWE K DIC
|
|---|
| 33 | S (CNT,LINE)=0 F S LINE=$O(^FSCD("TEXT",TEXTNUM,1,LINE)) Q:LINE<1 S ^TMP("FSC TEXT",$J,NAME,LINE,0)=^(LINE,0),CNT=CNT+1
|
|---|
| 34 | I $D(^TMP("FSC TEXT",$J,NAME)) S ^(NAME)=CNT
|
|---|
| 35 | L +^FSCD("TEXT",0):30 I '$T D SOMEONE^FSCLMPE1 Q
|
|---|
| 36 | K ^FSCD("TEXT",TEXTNUM)
|
|---|
| 37 | S $P(^(0),U,4)=$P(^FSCD("TEXT",0),U,4)-1
|
|---|
| 38 | L -^FSCD("TEXT",0)
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | EDITWP(ARRAY,PROMPT) ; from FSCEC, FSCEN, FSCMU1, FSCNMS
|
|---|
| 42 | ; only ^TMP("FSC ... globals can be edited
|
|---|
| 43 | I $E(ARRAY)=U,$E(ARRAY,1,9)'="^TMP(""FSC" Q
|
|---|
| 44 | N CNT,DIC,DWLW,DWPK,LINE,TEXT,TEXTNUM K DIC
|
|---|
| 45 | L +^FSCD("TEXT",0):30 I '$T D SOMEONE^FSCLMPE1 Q
|
|---|
| 46 | S TEXTNUM=$P(^FSCD("TEXT",0),U,4)+1
|
|---|
| 47 | F Q:'$D(^FSCD("TEXT",TEXTNUM,0)) S TEXTNUM=TEXTNUM+1
|
|---|
| 48 | S $P(^FSCD("TEXT",0),U,3)=TEXTNUM,$P(^(0),U,4)=$P(^(0),U,4)+1
|
|---|
| 49 | S ^FSCD("TEXT",TEXTNUM,0)=TEXTNUM
|
|---|
| 50 | L -^FSCD("TEXT",0)
|
|---|
| 51 | I $L($G(PROMPT)) W !,PROMPT
|
|---|
| 52 | S (CNT,LINE)=0 F S LINE=$O(@ARRAY@(LINE)) Q:LINE<1 D
|
|---|
| 53 | .S TEXT=@ARRAY@(LINE,0),CNT=CNT+1
|
|---|
| 54 | .S ^FSCD("TEXT",TEXTNUM,1,CNT,0)=TEXT
|
|---|
| 55 | I CNT S ^FSCD("TEXT",TEXTNUM,1,0)="^^"_CNT_U_CNT_U_$G(DT)_U
|
|---|
| 56 | K @ARRAY
|
|---|
| 57 | S DIC="^FSCD(""TEXT"","_TEXTNUM_",1,",DWLW=80,DWPK=1 D EN^DIWE K DIC
|
|---|
| 58 | S (CNT,LINE)=0 F S LINE=$O(^FSCD("TEXT",TEXTNUM,1,LINE)) Q:LINE<1 S @ARRAY@(LINE,0)=^(LINE,0),CNT=CNT+1
|
|---|
| 59 | I $O(@ARRAY@(0)) S @ARRAY=CNT
|
|---|
| 60 | L +^FSCD("TEXT",0):30 I '$T D SOMEONE^FSCLMPE1 Q
|
|---|
| 61 | K ^FSCD("TEXT",TEXTNUM)
|
|---|
| 62 | S $P(^(0),U,4)=$P(^FSCD("TEXT",0),U,4)-1
|
|---|
| 63 | L -^FSCD("TEXT",0)
|
|---|
| 64 | Q
|
|---|
| 65 | ;
|
|---|
| 66 | SUB(CALL) ; $$(call#) -> @2 or @1 if subcomponents should be asked
|
|---|
| 67 | N MOD
|
|---|
| 68 | S MOD=+$P($G(^FSCD("CALL",CALL,0)),U,8)
|
|---|
| 69 | I 'MOD Q "@2"
|
|---|
| 70 | I $O(^FSC("SUB","AC",+$P($G(^FSC("MOD",MOD,0)),U,8),0)) Q "@1"
|
|---|
| 71 | Q "@2"
|
|---|
