source: FOIAVistA/trunk/r/NOIS-FSC/FSCFORMC.m@ 1757

Last change on this file since 1757 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.4 KB
Line 
1FSCFORMC ;SLC/STAFF-NOIS Format Custom ;5/18/98 12:38
2 ;;1.1;NOIS;;Sep 06, 1998
3 ;
4CUSTOM ; 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
Note: See TracBrowser for help on using the repository browser.