| [613] | 1 | FSCFORMB ;SLC/STAFF-NOIS Format Brief ;10/20/97 16:15
|
|---|
| 2 | ;;1.1;NOIS;;Sep 06, 1998
|
|---|
| 3 | ;
|
|---|
| 4 | BRIEF ; from FSCFORM
|
|---|
| 5 | N CNT,NUM,TEXT K TEXT
|
|---|
| 6 | F FIELD="MOD","SITE","SPEC","EDITD","RECD","DEVSTAT","STATUS","PRI","IRM","PHONE" S FIELD(FIELD)=""
|
|---|
| 7 | D GET^FSCGET("CUSTOM",CALLNUM,.FIELD)
|
|---|
| 8 | D TEXT^FSCFORMT(CALLNUM,.TEXT,7)
|
|---|
| 9 | ; setsup FORMAT array from FIELD array, call number, and starting line number into array
|
|---|
| 10 | N FORMAT K FORMAT
|
|---|
| 11 | D SETTEXT^FSCFORM(1,1,2," Module: "_$P($G(FIELD("MOD")),U,2))
|
|---|
| 12 | D SETTEXT^FSCFORM(1,2,2," Location: "_$P($G(FIELD("SITE")),U,2))
|
|---|
| 13 | D SETTEXT^FSCFORM(1,3,2," Contact: "_$P($G(FIELD("IRM")),U,2))
|
|---|
| 14 | D SETTEXT^FSCFORM(1,4,2," Phone: "_$P($G(FIELD("PHONE")),U,2))
|
|---|
| 15 | D SETTEXT^FSCFORM(1,5,2," Specialist: "_$P($G(FIELD("SPEC")),U,2))
|
|---|
| 16 | D SETTEXT^FSCFORM(1,1,47," Status: "_$P($G(FIELD("STATUS")),U,2))
|
|---|
| 17 | D SETTEXT^FSCFORM(1,2,47,"Status (Ref): "_$P($G(FIELD("DEVSTAT")),U,2))
|
|---|
| 18 | D SETTEXT^FSCFORM(1,3,47," Priority: "_$P($G(FIELD("PRI")),U,2))
|
|---|
| 19 | D SETTEXT^FSCFORM(1,4,47,"First Edited: "_$P($P($G(FIELD("RECD")),U,2),":",1,2))
|
|---|
| 20 | D SETTEXT^FSCFORM(1,5,47," Last Edited: "_$P($P($G(FIELD("EDITD")),U,2),":",1,2))
|
|---|
| 21 | D SETTEXT^FSCFORM(1,6,1," Description: ",RVON,RVOFF)
|
|---|
| 22 | D SETTEXT^FSCFORM(1,6,20,TEXT("D"))
|
|---|
| 23 | 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))
|
|---|
| 24 | D SETTEXT^FSCFORM(2,1,1," Notes: ",RVON,RVOFF)
|
|---|
| 25 | D SETTEXT^FSCFORM(2,1,20,TEXT("N"))
|
|---|
| 26 | 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))
|
|---|
| 27 | D SETTEXT^FSCFORM(3,1,1," Resolution: ",RVON,RVOFF)
|
|---|
| 28 | D SETTEXT^FSCFORM(3,1,20,TEXT("R"))
|
|---|
| 29 | 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))
|
|---|
| 30 | I TYPE["VIEW" D VIEW^FSCFORMU(LISTNUM,CALLNUM,.FORMAT,STYLE,.LASTLINE,TYPE) Q
|
|---|
| 31 | D SETUP^FSCFORMU(LISTNUM,CALLNUM,.FORMAT,STYLE,.LASTLINE,TYPE)
|
|---|
| 32 | Q
|
|---|
