Routine: GMTSPN2

Information

GMTSPN2 ; SLC/KER - Progress Note Signatures ; 8/1/06 4:24pm

Source file <GMTSPN2.m>

Name	Comments	DBIA/ICR reference
WS(X,I)	; Write Signatures
UNS	; Unsigned/Draft Copy
SOC	; Signed on Chart
SIG	; Signature Block, Name, Title and Date
UNC	; Uncosigned - Requires Cosignature
COC	; Cosigned on Chart
COS	; Co-Signature Block, Name, Title and Date
EXT	; Extra Signatures ; Receipt Acknowledged by:
UNSIG	; Unsigned Note
WARN1	; Beginning of Note
WARN2	; End of Note
DEL1	; Deleted Note (begin)
DEL2	; Deleted Note (end)
RETR1	; Retracted Note (begin)
RETR2	; Retracted Note (end)
WARN3	; Warning Display (display)
BY(GMTSH,GMTSE,GMTSN)	; Signed by
SB(GMTSB,GMTSD)	; Signature Block
PG(GMTSA,GMTSD)	; Pagers
BL	; Blank Line
TRIM(X)	; Trim Spaces from String

Name	Line Occurrences
Function Call: WRITE	Prompt: !?27," REQUIRES COSIGNATURE " Line Location: UNC+4
Function Call: WRITE	Prompt: ?27,"* AWAITING SIGNATURE *" Line Location: EXT+9
Function Call: WRITE	Prompt: ! Line Location: UNSIG+4
Function Call: WRITE	Prompt: !,GMTSB Line Location: UNSIG+4
Function Call: WRITE	Prompt: !,"- DRAFT COPY * DRAFT COPY * DRAFT COPY * DRAFT COPY * DRAFT COPY * DRAFT COPY -" Line Location: UNSIG+5
Function Call: WRITE	Prompt: !,GMTSB Line Location: WARN3+8
Function Call: WRITE	Prompt: !,GMTST2 Line Location: WARN3+9
Function Call: WRITE	Prompt: !,GMTSB Line Location: WARN3+10
Function Call: WRITE	Prompt: !,$J("",(27-$L(GMTSH))),GMTSH Line Location: BY+3
Function Call: WRITE	Prompt: ?27,GMTSE,GMTSN Line Location: BY+4
Function Call: WRITE	Prompt: !,?27,GMTSD Line Location: SB+4
Function Call: WRITE	Prompt: !,?27,GMTSB,!,?27,GMTSD Line Location: SB+5
Function Call: WRITE	Prompt: ! Line Location: PG+2
Function Call: WRITE	Prompt: !?34,"Analog Pager: ",GMTSA Line Location: PG+3
Function Call: WRITE	Prompt: !?33,"Digital Pager: ",GMTSD Line Location: PG+5
Function Call: WRITE	Prompt: ! Line Location: BL+1

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^TIU(8925 - [#8925]	GET1^DIQ