Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: FSCFORMD

FSCFORMD.m

Go to the documentation of this file.
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