Routine: GMTSPLST

Information

GMTSPLST ; SLC/JER,KER,TC - Problem List ;07/02/13 09:56

Name	Comments	DBIA/ICR reference
ACTIVE	; Get Active Problems
INACT	; Get Inactive Problems
ALL	; Get All Problems (Active and Inactive)
MAIN	; Driver
WRT	; Writes Problem List Component,X
L1	; Line #1 Problem, date, provider
LN	; Line >1 Problem (other)
DC	; Comments are displayed if there are any
LC	; List Comments (unnumbered and numbered)
CF(GMC,GMT)	; Formats GMC (count) and GMT (text) together
SUBHDR	; Subheader for Problem List Component
SUBHDR2	; Will be written on new pages
RM(X)	; Remove MST
RF(X)	; Remove Leading Spaces/Punctuation
LD(X)	; Uppercase Leading Character
RT(X)	; Right Trim Spaces
UP(X)	; Uppercase

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: WRT+96
Function Call: WRITE	Prompt: STAT Condition for execution: STATUS="ALL" Line Location: L1+1
Function Call: WRITE	Prompt: ?3,$G(^UTILITY($J,"W",DIWL,GMTSX,0)),?53,LASTMDT,?65,$E(PROV,1,15),! Line Location: L1+1
Function Call: WRITE	Prompt: ?3,$G(^UTILITY($J,"W",DIWL,GMTSX,0)),! Line Location: LN+1
Function Call: WRITE	Prompt: ?3 Condition for execution: I=1 Line Location: LC+3
Function Call: WRITE	Prompt: ?7 Condition for execution: I>1 Line Location: LC+3
Function Call: WRITE	Prompt: $G(T),! Line Location: LC+3
Function Call: WRITE	Prompt: ?50,NUM_$S(STATUS="A":" Active",STATUS="I":" Inactive",1:"")_" Problems",! Line Location: SUBHDR+2
Function Call: WRITE	Prompt: "ST" Condition for execution: STATUS="ALL" Line Location: SUBHDR2+1
Function Call: WRITE	Prompt: ?3,"PROBLEM",?53,"LAST MOD",?65,"PROVIDER",! Line Location: SUBHDR2+1