Routine: GMTSPNB

Name	Comments	DBIA/ICR reference
FORMAT	; Calls ^DIWP to format Title
VARI(GMTSI,GMTSJ)	;Sets variables for display
HEADER	; Prints header
WRT	; Writes the component data
EXTIU(DFN,GMTST,GMTS1,GMTS2,GMTSN,GMTSX)	; Extract Patient/Visit VIA TIU
ADDEND(GMTSI,GMTSJ)	;Addenda date display
MAIN	; Controls branching and execution

Name	Line Occurrences
Function Call: WRITE	Prompt: "Prog Note DT",?16,"Title",?48,"Author",?64,"Last Corr DT",!! Line Location: HEADER+1
Function Call: WRITE	Prompt: PN("DATE"),?16,PN("DOCTYPE"),?48,PN("AUTHOR"),?64,PN("CORRDT"),! Line Location: WRT+2
Function Call: WRITE	Prompt: ?16,^UTILITY($J,"W",1,2,0),! Line Location: WRT+3
Routine Call	DIC Line Location: MAIN+4

FileNo	Call Tags
^TIU(8925.1 - [#8925.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^TMP("TIU"	MAIN+2!, MAIN+5, MAIN+6, MAIN+7, MAIN+9, MAIN+11!, VARI+2, VARI+3, VARI+4, ADDEND+3 , ADDEND+4
^UTILITY($J	VARI+5, WRT+3, WRT+4!

Name	Field # of Occurrence
DFN	MAIN+5, EXTIU~, EXTIU+1, EXTIU+2
>> DIC	MAIN+4*
>> DIC("S"	MAIN+4*
>> DIC(0	MAIN+4*
DIWF	MAIN+1~, FORMAT+1~, FORMAT+2*
DIWL	MAIN+1~, FORMAT+1~, FORMAT+2*
DIWR	MAIN+1~, FORMAT+1~, FORMAT+2*
GMTS1	MAIN+5, EXTIU~, EXTIU+1, EXTIU+2
GMTS2	MAIN+5, EXTIU~, EXTIU+1, EXTIU+2
GMTSAD	ADDEND+1~, ADDEND+2, ADDEND+3, ADDEND+4
>> GMTSCNT	VARI+1*
GMTSI	MAIN+1~, MAIN+6*, MAIN+7, MAIN+8, MAIN+9, VARI~, VARI+2, VARI+3, VARI+4, ADDEND~ , ADDEND+3, ADDEND+4
GMTSJ	MAIN+1~, MAIN+7*, MAIN+8, MAIN+9, VARI~, VARI+2, VARI+3, VARI+4, ADDEND~, ADDEND+3 , ADDEND+4
GMTSN	EXTIU~, EXTIU+1, EXTIU+2
>> GMTSNDM	MAIN+2
>> GMTSNPG	WRT+2
GMTSPV	EXTIU+1~*
>> GMTSPXGO	EXTIU+1
>> GMTSQIT	MAIN+6, MAIN+7, HEADER+1, WRT+1, WRT+3
GMTST	EXTIU~, EXTIU+1, EXTIU+2
GMTSX	EXTIU~, EXTIU+1, EXTIU+2
MAX	MAIN+1~, MAIN+2*, MAIN+5
PN	MAIN+1~, WRT+4!
PN("AUTHOR"	VARI+3*, WRT+2
PN("CORRDT"	VARI+6, ADDEND+5, WRT+2
PN("DATE"	VARI+2*, WRT+2
PN("DOCTYPE"	VARI+4, VARI+5, WRT+2, FORMAT+2
TIUFPRIV	MAIN+1~, MAIN+3*
TIUSTAT	MAIN+1~, MAIN+3*
TIUTYPE	MAIN+1~, MAIN+4*, MAIN+5
X	MAIN+1~, MAIN+4~, VARI+2, ADDEND+4, ADDEND+5, FORMAT+1~, FORMAT+2
Y	MAIN+4~

Name	Field # of Occurrence
$T(VISIT^TIULAPIC	EXTIU+1

Information