FSCFORMB.m

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 ---FSCFORMB   1895     printed  Apr 09, 2024@21:23:30                                                                                                                                                                                                    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