Routine: GMTSPN2

Information

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

Source Information

Source file <GMTSPN2.m>

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
Health Summary	2	$$EDT^GMTSU CKP^GMTSUP
VA Fileman	2	$$GET1^DIQ ^DIWP

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Health Summary	1	GMTSPN

Entry Points

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

External References

Name	Field # of Occurrence
$$GET1^DIQ	SIG+4, SIG+5, COS+4, EXT+13
^DIWP	SB+3
$$EDT^GMTSU	EXT+12
CKP^GMTSUP	UNC+4, UNSIG+4, UNSIG+5, WARN3+8, WARN3+9, WARN3+10, BY+3, SB+4, SB+5, PG+2 , PG+3, PG+5, BL+1

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY($J	SB+1!, SB+3!, SB+4!, SB+5!, SB+6!

Label References

Name	Line Occurrences
$$TRIM	BY+1, BY+3, SB+3
BL	SOC+3, SIG+5, UNC+3, COC+3, COS+5, EXT+3, EXT+9, EXT+14, WARN1+1, WARN3+7
BY	SOC+3, SIG+6, COC+3, COS+6, EXT+3, EXT+15
COC	WS+4
COS	WS+4
DEL1	WARN1+1
DEL2	WARN2+1
EXT	WS+4
PG	SIG+7, COS+7, EXT+16
RETR1	WARN1+1
RETR2	WARN2+1
SB	SIG+6, COS+6, EXT+16
SIG	WS+4
SOC	WS+4
UNC	WS+4
UNS	WS+4
UNSIG	UNS+1
WARN3	DEL1+2, DEL2+2, RETR1+2, RETR2+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> CONEED	UNC+3, COC+3, COS+5
>> COSGEDBY	COS+4
DIWF	SB+1~, SB+3*
DIWL	SB+1~, SB+3*
DIWR	SB+1~
DIWT	SB+1~
GMTS	UNSIG+1~, UNSIG+2, UNSIG+3, WARN3+1~, WARN3+2, WARN3+3, WARN3+4, WARN3+5, PG+1~, PG+3* , PG+5*
GMTS1	UNSIG+1~, UNSIG+2, UNSIG+3, WARN3+1~, WARN3+3*, WARN3+6
GMTS2	UNSIG+1~, UNSIG+3, WARN3+1~, WARN3+5, WARN3+6
GMTSA	WS+1~, SIG+1~, SIG+4, SIG+7, COS+1~, COS+4, COS+7, EXT+7~, EXT+13, EXT+16 , PG~, PG+1, PG+2, PG+3
GMTSB	SOC+1~, SOC+2, SOC+3, SIG+1~, SIG+3, SIG+6, UNC+1~, COC+1~, COC+2, COC+3 , COS+1~, COS+2, COS+6, EXT+7~, EXT+10, EXT+15, UNSIG+1~, UNSIG+3, UNSIG+4, WARN3+1~ , WARN3+6, WARN3+8, WARN3+10, SB~, SB+2, SB+3*, SB+4, SB+5
GMTSC	EXT+7~, EXT+8*, EXT+9, EXT+12
GMTSD	SIG+1~, SIG+4, SIG+6, COS+1~, COS+3, COS+6, EXT+7~, EXT+12, EXT+16, WARN1+1~ , WARN2+1~, WARN3+9, SB~, SB+2, SB+4, SB+5, PG~, PG+1, PG+4, PG+5
GMTSDIC	WS+1~, WS+2, WS+3, UNS+1, SIG+2, UNC+2, COS+2, EXT+2, EXT+6, EXT+8 , EXT+10, EXT+11, EXT+12
GMTSE	SIG+1~, SIG+2, SIG+6, COS+1~, COS+2, COS+6, EXT+7~, EXT+10, EXT+15, BY~ , BY+1, BY+2*, BY+4
GMTSG	WS+1~, SIG+1~, SIG+5, SIG+7, COS+1~, COS+4, COS+7, EXT+7~, EXT+13*, EXT+16
GMTSH	BY~, BY+1, BY+2, BY+3
GMTSI	EXT+7~, EXT+12, EXT+13, SB+1~, SB+3
GMTSIEN	WS+1~*, WS+2, WS+3
GMTSN	BY~, BY+1, BY+2, BY+4
GMTSP	SOC+1~, SOC+2, SOC+3, SIG+1~, SIG+2, SIG+6, UNC+1~, UNC+2, COC+1~, COC+2 , COC+3, COS+1~, COS+2, COS+6, EXT+7~, EXT+10, EXT+15
>> GMTSQIT	WS+1, UNS+1, SOC+1, SOC+3, SIG+1, SIG+5, SIG+6, SIG+7, UNC+1, UNC+3 , UNC+4, COC+1, COC+3, COS+1, COS+5, COS+6, EXT+2, EXT+3, EXT+6, EXT+14 , EXT+15, EXT+16, UNSIG+4, UNSIG+5, WARN3+7, WARN3+8, WARN3+9, WARN3+10, BY+3, SB+4 , SB+5, PG+2, PG+3, PG+4, PG+5, BL+1
GMTST	UNS+1~, SIG+1~, SIG+3, SIG+6, COS+1~, COS+3, COS+6, EXT+7~, EXT+11, EXT+16 , UNSIG+1~, UNSIG+2, UNSIG+3, DEL1+2~, DEL2+2~, RETR1+2~, RETR2+2~, WARN3+1, WARN3+2, WARN3+3 , WARN3+4, WARN3+5, WARN3+6
GMTST2	DEL1+2~, DEL2+2~, RETR1+2~, RETR2+2~, WARN3+1*, WARN3+6, WARN3+9
>> GMTSTIUC	UNC+3, COC+3, COS+5
GMTSW	WARN1+1~, WARN2+1~, WARN3+7, WARN3+8, WARN3+10
GMTSXTRA	EXT+5~, EXT+6, EXT+8, EXT+10, EXT+11, EXT+12, EXT+14
I	WS~, WS+1
>> PN("COBLK"	COS+2
>> PN("COCHART"	COC+2
>> PN("COCHARTBY"	COC+2
>> PN("COSDT"	COS+3
>> PN("COTITLE"	COS+3
>> PN("SCHART"	SOC+1
>> PN("SCHARTBY"	SOC+2
>> PN("SIGBLK"	SIG+3
>> PN("SIGDT"	SIG+4
>> PN("STATUS"	DEL1+1, DEL2+1, RETR1+1, RETR2+1
>> PN("STITLE"	SIG+3
>> SIGNEDBY	SIG+4, SIG+5
>> STATUS	DEL1+1, DEL2+1, RETR1+1, RETR2+1
X	WS~, WS+1, SB+1~, SB+2, TRIM~, TRIM+1, TRIM+2*, TRIM+3

Customize PDF page

Package: Health Summary

Routine: GMTSPN2

Call Graph Total: 4

Caller Graph Total: 1