| 1 | FSCFORMC ;SLC/STAFF-NOIS Format Custom ;5/18/98 12:38
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | CUSTOM ; from FSCFORM
|
|---|
| 5 | N ABBREV,CNT,IEN,LINE,SECTION,TEXT
|
|---|
| 6 | S CNT=0 F S CNT=$O(STYLE(CNT)) Q:CNT<1 S ABBREV=$P(STYLE(CNT),U,7) I $L(ABBREV) S FIELD(ABBREV)=""
|
|---|
| 7 | D GET^FSCGET("CUSTOM",CALLNUM,.FIELD)
|
|---|
| 8 | N FORMAT K FORMAT
|
|---|
| 9 | S SECTION=1,(CNT,LINE)=0 F S CNT=$O(STYLE(CNT)) Q:CNT<1 S ABBREV=$P(STYLE(CNT),U,7) I $L(ABBREV),ABBREV'="REF",ABBREV'="SUBJECT" D
|
|---|
| 10 | .S LINE=LINE+1 S TEXT=$J($P(STYLE(CNT),U,2)_": ",14)_$P(FIELD(ABBREV),U,2)
|
|---|
| 11 | .D SETTEXT^FSCFORM(SECTION,LINE,2,TEXT)
|
|---|
| 12 | .I ABBREV="DESC" D
|
|---|
| 13 | ..S SECTION=SECTION+1
|
|---|
| 14 | ..D SETMULT^FSCFORM(SECTION,"^FSCD(""CALL"","_CALLNUM_",30)")
|
|---|
| 15 | ..S SECTION=SECTION+1,LINE=0
|
|---|
| 16 | .I ABBREV="ACTIONS" D
|
|---|
| 17 | ..S SECTION=SECTION+1
|
|---|
| 18 | ..D SETMULT^FSCFORM(SECTION,"^FSCD(""CALL"","_CALLNUM_",50)")
|
|---|
| 19 | ..S SECTION=SECTION+1,LINE=0
|
|---|
| 20 | .I ABBREV="SUM" D
|
|---|
| 21 | ..S SECTION=SECTION+1
|
|---|
| 22 | ..D SETMULT^FSCFORM(SECTION,"^FSCD(""CALL"","_CALLNUM_",80)")
|
|---|
| 23 | ..S SECTION=SECTION+1,LINE=0
|
|---|
| 24 | .I ABBREV="STATHIST" D
|
|---|
| 25 | ..S SECTION=SECTION+1
|
|---|
| 26 | ..D SETMULT^FSCFORM(SECTION,"^FSCD(""CALL"","_CALLNUM_",110)")
|
|---|
| 27 | ..S SECTION=SECTION+1,LINE=0
|
|---|
| 28 | .I ABBREV="PNOTE" D
|
|---|
| 29 | ..S IEN=+$G(^FSCD("CALL USER","AUC",DUZ,CALLNUM))
|
|---|
| 30 | ..I 'IEN Q
|
|---|
| 31 | ..S SECTION=SECTION+1
|
|---|
| 32 | ..D SETMULT^FSCFORM(SECTION,"^FSCD(""CALL USER"","_IEN_",2)")
|
|---|
| 33 | ..S SECTION=SECTION+1,LINE=0
|
|---|
| 34 | I TYPE["VIEW" D VIEW^FSCFORMU(LISTNUM,CALLNUM,.FORMAT,STYLE,.LASTLINE,TYPE) Q
|
|---|
| 35 | D SETUP^FSCFORMU(LISTNUM,CALLNUM,.FORMAT,STYLE,.LASTLINE,TYPE)
|
|---|
| 36 | Q
|
|---|
