FSCFORMB ;SLC/STAFF-NOIS Format Brief ;10/20/97 16:15
;;1.1;NOIS;;Sep 06, 1998
;
BRIEF ; from FSCFORM
N CNT,NUM,TEXT K TEXT
F FIELD="MOD","SITE","SPEC","EDITD","RECD","DEVSTAT","STATUS","PRI","IRM","PHONE" S FIELD(FIELD)=""
D GET^FSCGET("CUSTOM",CALLNUM,.FIELD)
D TEXT^FSCFORMT(CALLNUM,.TEXT,7)
; setsup FORMAT array from FIELD array, call number, and starting line number into array
N FORMAT K FORMAT
D SETTEXT^FSCFORM(1,1,2," Module: "_$P($G(FIELD("MOD")),U,2))
D SETTEXT^FSCFORM(1,2,2," Location: "_$P($G(FIELD("SITE")),U,2))
D SETTEXT^FSCFORM(1,3,2," Contact: "_$P($G(FIELD("IRM")),U,2))
D SETTEXT^FSCFORM(1,4,2," Phone: "_$P($G(FIELD("PHONE")),U,2))
D SETTEXT^FSCFORM(1,5,2," Specialist: "_$P($G(FIELD("SPEC")),U,2))
D SETTEXT^FSCFORM(1,1,47," Status: "_$P($G(FIELD("STATUS")),U,2))
D SETTEXT^FSCFORM(1,2,47,"Status (Ref): "_$P($G(FIELD("DEVSTAT")),U,2))
D SETTEXT^FSCFORM(1,3,47," Priority: "_$P($G(FIELD("PRI")),U,2))
D SETTEXT^FSCFORM(1,4,47,"First Edited: "_$P($P($G(FIELD("RECD")),U,2),":",1,2))
D SETTEXT^FSCFORM(1,5,47," Last Edited: "_$P($P($G(FIELD("EDITD")),U,2),":",1,2))
D SETTEXT^FSCFORM(1,6,1," Description: ",RVON,RVOFF)
D SETTEXT^FSCFORM(1,6,20,TEXT("D"))
S CNT=6,NUM=0 F S NUM=$O(TEXT("D",NUM)) Q:NUM<1 S CNT=CNT+1 D SETTEXT^FSCFORM(1,CNT,1,TEXT("D",NUM))
D SETTEXT^FSCFORM(2,1,1," Notes: ",RVON,RVOFF)
D SETTEXT^FSCFORM(2,1,20,TEXT("N"))
S CNT=1,NUM=0 F S NUM=$O(TEXT("N",NUM)) Q:NUM<1 S CNT=CNT+1 D SETTEXT^FSCFORM(2,CNT,1,TEXT("N",NUM))
D SETTEXT^FSCFORM(3,1,1," Resolution: ",RVON,RVOFF)
D SETTEXT^FSCFORM(3,1,20,TEXT("R"))
S CNT=1,NUM=0 F S NUM=$O(TEXT("R",NUM)) Q:NUM<1 S CNT=CNT+1 D SETTEXT^FSCFORM(3,CNT,1,TEXT("R",NUM))
I TYPE["VIEW" D VIEW^FSCFORMU(LISTNUM,CALLNUM,.FORMAT,STYLE,.LASTLINE,TYPE) Q
D SETUP^FSCFORMU(LISTNUM,CALLNUM,.FORMAT,STYLE,.LASTLINE,TYPE)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HFSCFORMB 1895 printed Nov 22, 2024@17:27:47 Page 2
FSCFORMB ;SLC/STAFF-NOIS Format Brief ;10/20/97 16:15
+1 ;;1.1;NOIS;;Sep 06, 1998
+2 ;
BRIEF ; from FSCFORM
+1 NEW CNT,NUM,TEXT
KILL TEXT
+2 FOR FIELD="MOD","SITE","SPEC","EDITD","RECD","DEVSTAT","STATUS","PRI","IRM","PHONE"
SET FIELD(FIELD)=""
+3 DO GET^FSCGET("CUSTOM",CALLNUM,.FIELD)
+4 DO TEXT^FSCFORMT(CALLNUM,.TEXT,7)
+5 ; setsup FORMAT array from FIELD array, call number, and starting line number into array
+6 NEW FORMAT
KILL FORMAT
+7 DO SETTEXT^FSCFORM(1,1,2," Module: "_$PIECE($GET(FIELD("MOD")),U,2))
+8 DO SETTEXT^FSCFORM(1,2,2," Location: "_$PIECE($GET(FIELD("SITE")),U,2))
+9 DO SETTEXT^FSCFORM(1,3,2," Contact: "_$PIECE($GET(FIELD("IRM")),U,2))
+10 DO SETTEXT^FSCFORM(1,4,2," Phone: "_$PIECE($GET(FIELD("PHONE")),U,2))
+11 DO SETTEXT^FSCFORM(1,5,2," Specialist: "_$PIECE($GET(FIELD("SPEC")),U,2))
+12 DO SETTEXT^FSCFORM(1,1,47," Status: "_$PIECE($GET(FIELD("STATUS")),U,2))
+13 DO SETTEXT^FSCFORM(1,2,47,"Status (Ref): "_$PIECE($GET(FIELD("DEVSTAT")),U,2))
+14 DO SETTEXT^FSCFORM(1,3,47," Priority: "_$PIECE($GET(FIELD("PRI")),U,2))
+15 DO SETTEXT^FSCFORM(1,4,47,"First Edited: "_$PIECE($PIECE($GET(FIELD("RECD")),U,2),":",1,2))
+16 DO SETTEXT^FSCFORM(1,5,47," Last Edited: "_$PIECE($PIECE($GET(FIELD("EDITD")),U,2),":",1,2))
+17 DO SETTEXT^FSCFORM(1,6,1," Description: ",RVON,RVOFF)
+18 DO SETTEXT^FSCFORM(1,6,20,TEXT("D"))
+19 SET CNT=6
SET NUM=0
FOR
SET NUM=$ORDER(TEXT("D",NUM))
if NUM<1
QUIT
SET CNT=CNT+1
DO SETTEXT^FSCFORM(1,CNT,1,TEXT("D",NUM))
+20 DO SETTEXT^FSCFORM(2,1,1," Notes: ",RVON,RVOFF)
+21 DO SETTEXT^FSCFORM(2,1,20,TEXT("N"))
+22 SET CNT=1
SET NUM=0
FOR
SET NUM=$ORDER(TEXT("N",NUM))
if NUM<1
QUIT
SET CNT=CNT+1
DO SETTEXT^FSCFORM(2,CNT,1,TEXT("N",NUM))
+23 DO SETTEXT^FSCFORM(3,1,1," Resolution: ",RVON,RVOFF)
+24 DO SETTEXT^FSCFORM(3,1,20,TEXT("R"))
+25 SET CNT=1
SET NUM=0
FOR
SET NUM=$ORDER(TEXT("R",NUM))
if NUM<1
QUIT
SET CNT=CNT+1
DO SETTEXT^FSCFORM(3,CNT,1,TEXT("R",NUM))
+26 IF TYPE["VIEW"
DO VIEW^FSCFORMU(LISTNUM,CALLNUM,.FORMAT,STYLE,.LASTLINE,TYPE)
QUIT
+27 DO SETUP^FSCFORMU(LISTNUM,CALLNUM,.FORMAT,STYLE,.LASTLINE,TYPE)
+28 QUIT
