- FSCFORMD ;SLC/STAFF-NOIS Format Detailed ;3/19/98 21:46
- ;;1.1;NOIS;;Sep 06, 1998
- ;
- DETAIL ; from FSCFORM
- D GET^FSCGET("DETAIL",CALLNUM,.FIELD)
- N FORMAT K FORMAT
- D SETTEXT^FSCFORM(1,1,1," Basic Information: ",RVON,RVOFF)
- D SETTEXT^FSCFORM(1,2,2," Module: "_$P($G(FIELD("MOD")),U,2))
- D SETTEXT^FSCFORM(1,3,2," Location: "_$P($G(FIELD("SITE")),U,2))
- D SETTEXT^FSCFORM(1,4,2," Contact: "_$P($G(FIELD("IRM")),U,2))
- D SETTEXT^FSCFORM(1,5,2," Phone: "_$P($G(FIELD("PHONE")),U,2))
- D SETTEXT^FSCFORM(1,6,2," Specialist: "_$P($G(FIELD("SPEC")),U,2))
- D SETTEXT^FSCFORM(1,2,47," Status: "_$P($G(FIELD("STATUS")),U,2))
- D SETTEXT^FSCFORM(1,3,47,"Status (Ref): "_$P($G(FIELD("DEVSTAT")),U,2))
- D SETTEXT^FSCFORM(1,4,47," Priority: "_$P($G(FIELD("PRI")),U,2))
- D SETTEXT^FSCFORM(1,5,47,"First Edited: "_$P($P($G(FIELD("RECD")),U,2),":",1,2))
- D SETTEXT^FSCFORM(1,6,47," Last Edited: "_$P($P($G(FIELD("EDITD")),U,2),":",1,2))
- D SETTEXT^FSCFORM(1,7,1," Description: ",RVON,RVOFF)
- D SETMULT^FSCFORM(2,"^FSCD(""CALL"","_CALLNUM_",30)")
- D SETTEXT^FSCFORM(3,2,1," Resolution: ",RVON,RVOFF)
- D SETMULT^FSCFORM(4,"^FSCD(""CALL"","_CALLNUM_",80)")
- D SETTEXT^FSCFORM(5,2,1," Notes: ",RVON,RVOFF)
- D SETMULT^FSCFORM(6,"^FSCD(""CALL"","_CALLNUM_",50)")
- D SETTEXT^FSCFORM(7,2,1," Misc: ",RVON,RVOFF)
- D SETTEXT^FSCFORM(7,3,2," Date Opened: "_$P($G(FIELD("DATEO")),U,2))
- D SETTEXT^FSCFORM(7,3,47," Date Closed: "_$P($G(FIELD("DATEC")),U,2))
- D SETTEXT^FSCFORM(7,4,2," System: "_$P($G(FIELD("SYS")),U,2))
- D SETTEXT^FSCFORM(7,4,47," Close Person: "_$P($G(FIELD("SPECC")),U,2))
- D SETTEXT^FSCFORM(7,5,2,"Location Type: "_$P($G(FIELD("LTYPE")),U,2))
- D SETTEXT^FSCFORM(7,5,47," Func Area: "_$P($G(FIELD("FUNC")),U,2))
- D SETTEXT^FSCFORM(7,6,2,"Package Group: "_$P($G(FIELD("PACKG")),U,2))
- D SETTEXT^FSCFORM(7,6,47," Task: "_$P($G(FIELD("TASK")),U,2))
- D SETTEXT^FSCFORM(7,7,2," Subcomponent: "_$P($G(FIELD("DEVSUB")),U,2))
- D SETTEXT^FSCFORM(7,7,47," Spec Office: "_$P($G(FIELD("ISCP")),U,2))
- D SETTEXT^FSCFORM(7,8,2," Patch: "_$P($G(FIELD("PATCH")),U,2))
- D SETTEXT^FSCFORM(7,8,47," Referal Spec: "_$P($G(FIELD("SPECD")),U,2))
- D SETTEXT^FSCFORM(7,9,2," Keywords: "_$P($G(FIELD("KEYWORDS")),U,2))
- D SETTEXT^FSCFORM(7,9,47," VISN: "_$P($G(FIELD("VISN")),U,2))
- D SETTEXT^FSCFORM(7,10,2," Hours: "_$P($G(FIELD("HRSTOT")),U,2))
- D SETTEXT^FSCFORM(7,10,47," Primary Call: "_$P($G(FIELD("PRIMARY")),U,2))
- D SETTEXT^FSCFORM(7,11,2," Web Link: "_$P($G(FIELD("WEB")),U,2))
- 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[HFSCFORMD 2728 printed Feb 18, 2025@23:44:15 Page 2
- FSCFORMD ;SLC/STAFF-NOIS Format Detailed ;3/19/98 21:46
- +1 ;;1.1;NOIS;;Sep 06, 1998
- +2 ;
- DETAIL ; from FSCFORM
- +1 DO GET^FSCGET("DETAIL",CALLNUM,.FIELD)
- +2 NEW FORMAT
- KILL FORMAT
- +3 DO SETTEXT^FSCFORM(1,1,1," Basic Information: ",RVON,RVOFF)
- +4 DO SETTEXT^FSCFORM(1,2,2," Module: "_$PIECE($GET(FIELD("MOD")),U,2))
- +5 DO SETTEXT^FSCFORM(1,3,2," Location: "_$PIECE($GET(FIELD("SITE")),U,2))
- +6 DO SETTEXT^FSCFORM(1,4,2," Contact: "_$PIECE($GET(FIELD("IRM")),U,2))
- +7 DO SETTEXT^FSCFORM(1,5,2," Phone: "_$PIECE($GET(FIELD("PHONE")),U,2))
- +8 DO SETTEXT^FSCFORM(1,6,2," Specialist: "_$PIECE($GET(FIELD("SPEC")),U,2))
- +9 DO SETTEXT^FSCFORM(1,2,47," Status: "_$PIECE($GET(FIELD("STATUS")),U,2))
- +10 DO SETTEXT^FSCFORM(1,3,47,"Status (Ref): "_$PIECE($GET(FIELD("DEVSTAT")),U,2))
- +11 DO SETTEXT^FSCFORM(1,4,47," Priority: "_$PIECE($GET(FIELD("PRI")),U,2))
- +12 DO SETTEXT^FSCFORM(1,5,47,"First Edited: "_$PIECE($PIECE($GET(FIELD("RECD")),U,2),":",1,2))
- +13 DO SETTEXT^FSCFORM(1,6,47," Last Edited: "_$PIECE($PIECE($GET(FIELD("EDITD")),U,2),":",1,2))
- +14 DO SETTEXT^FSCFORM(1,7,1," Description: ",RVON,RVOFF)
- +15 DO SETMULT^FSCFORM(2,"^FSCD(""CALL"","_CALLNUM_",30)")
- +16 DO SETTEXT^FSCFORM(3,2,1," Resolution: ",RVON,RVOFF)
- +17 DO SETMULT^FSCFORM(4,"^FSCD(""CALL"","_CALLNUM_",80)")
- +18 DO SETTEXT^FSCFORM(5,2,1," Notes: ",RVON,RVOFF)
- +19 DO SETMULT^FSCFORM(6,"^FSCD(""CALL"","_CALLNUM_",50)")
- +20 DO SETTEXT^FSCFORM(7,2,1," Misc: ",RVON,RVOFF)
- +21 DO SETTEXT^FSCFORM(7,3,2," Date Opened: "_$PIECE($GET(FIELD("DATEO")),U,2))
- +22 DO SETTEXT^FSCFORM(7,3,47," Date Closed: "_$PIECE($GET(FIELD("DATEC")),U,2))
- +23 DO SETTEXT^FSCFORM(7,4,2," System: "_$PIECE($GET(FIELD("SYS")),U,2))
- +24 DO SETTEXT^FSCFORM(7,4,47," Close Person: "_$PIECE($GET(FIELD("SPECC")),U,2))
- +25 DO SETTEXT^FSCFORM(7,5,2,"Location Type: "_$PIECE($GET(FIELD("LTYPE")),U,2))
- +26 DO SETTEXT^FSCFORM(7,5,47," Func Area: "_$PIECE($GET(FIELD("FUNC")),U,2))
- +27 DO SETTEXT^FSCFORM(7,6,2,"Package Group: "_$PIECE($GET(FIELD("PACKG")),U,2))
- +28 DO SETTEXT^FSCFORM(7,6,47," Task: "_$PIECE($GET(FIELD("TASK")),U,2))
- +29 DO SETTEXT^FSCFORM(7,7,2," Subcomponent: "_$PIECE($GET(FIELD("DEVSUB")),U,2))
- +30 DO SETTEXT^FSCFORM(7,7,47," Spec Office: "_$PIECE($GET(FIELD("ISCP")),U,2))
- +31 DO SETTEXT^FSCFORM(7,8,2," Patch: "_$PIECE($GET(FIELD("PATCH")),U,2))
- +32 DO SETTEXT^FSCFORM(7,8,47," Referal Spec: "_$PIECE($GET(FIELD("SPECD")),U,2))
- +33 DO SETTEXT^FSCFORM(7,9,2," Keywords: "_$PIECE($GET(FIELD("KEYWORDS")),U,2))
- +34 DO SETTEXT^FSCFORM(7,9,47," VISN: "_$PIECE($GET(FIELD("VISN")),U,2))
- +35 DO SETTEXT^FSCFORM(7,10,2," Hours: "_$PIECE($GET(FIELD("HRSTOT")),U,2))
- +36 DO SETTEXT^FSCFORM(7,10,47," Primary Call: "_$PIECE($GET(FIELD("PRIMARY")),U,2))
- +37 DO SETTEXT^FSCFORM(7,11,2," Web Link: "_$PIECE($GET(FIELD("WEB")),U,2))
- +38 IF TYPE["VIEW"
- DO VIEW^FSCFORMU(LISTNUM,CALLNUM,.FORMAT,STYLE,.LASTLINE,TYPE)
- QUIT
- +39 DO SETUP^FSCFORMU(LISTNUM,CALLNUM,.FORMAT,STYLE,.LASTLINE,TYPE)
- +40 QUIT