Routine: TIUPRPN2

Information

TIUPRPN2 ;SLC/MJC - Header/Footer for Progress Notes ;31-Dec-2012 15:16;DU

Source Information

Source file <TIUPRPN2.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Text Integration Utility	2	$$NOW^TIULC $$DATE^TIULS
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
IHS Mods To Text Integration Utilities	1	BTIUPRT1
Text Integration Utility	1	TIUPRPN1

Entry Points

Name	Comments	DBIA/ICR reference
HEADER(TIUFOOT,TIUFLAG,TIUPFHDR,TIUCONT1,TIUROOT)	; Header ; Requires array TIUFOOT, vars TIUFLAG,TIUPFHDR,TIUCONT1
FTR
FOOTER(TIUFOOT,TIUMISC,TIUCONT1,TIUHDR,TIUROOT)	; Function returns TIUCONT ; Also controls Pagination position, writes footer when appropriate. ; Requires array TIUFOOT, vars TIUMISC,TIUCONT1. Optional TIUHDR. ; IF TIUHDR=1, HEADER WILL NOT BE PRINTED
FOOTW
FOOTX	;
STOP()	;on screen paging check ; quits TIUCONT=1 if cont. ELSE quits TIUCONT=0

External References

Name	Field # of Occurrence
^DIR	STOP+3
$$NOW^TIULC	FTR+14
$$DATE^TIULS	FTR+14, HEADER+7, HEADER+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FTR+0
Function Call: WRITE	Prompt: ?21,$S(+$G(TIUCONT1):" THIS NOTE CONTINUED ON NEXT PAGE ",1:""),! Line Location: FTR+3
Function Call: WRITE	Prompt: "WORK COPY ========== UNOFFICIAL " Line Location: FTR+4
Function Call: WRITE	Prompt: "- NOT FOR MEDICAL RECORD =========== DO NOT FILE" Line Location: FTR+5
Function Call: WRITE	Prompt: TIULINE Line Location: FTR+6
Function Call: WRITE	Prompt: !,TIUFOOT("PNMP") Line Location: FTR+7
Function Call: WRITE	Prompt: ?(80-$L(TIUPRTNM)\2),TIUPRTNM,?56,TIUPRTDT Line Location: FTR+16
Function Call: WRITE	Prompt: ?58,TIUPRTDT,!?(80-$L(TIUPRTNM)\2),TIUPRTNM Line Location: FTR+18
Function Call: WRITE	Prompt: !,TIUFOOT("SSN")," ",TIUFOOT("DOB"),?(80-$L(TIUFOOT("LOCP"))\2),TIUFOOT("LOCP") Line Location: FTR+19
Function Call: WRITE	Prompt: !,TIUFOOT("HRCN")," ",TIUFOOT("DOB"),?(80-$L(TIUFOOT("LOCP"))\2),TIUFOOT("LOCP") Line Location: FTR+20
Function Call: WRITE	Prompt: !,?(80-$L(TIUFOOT("LOCP"))\2),TIUFOOT("LOCP") Line Location: FTR+21
Function Call: WRITE	Prompt: ?(80-$L(TIUPFNBR)),TIUPFNBR Line Location: FTR+22
Function Call: WRITE	Prompt: ?(80-$L(TIUFOOT("PH#"))),TIUFOOT("PH#") Line Location: FTR+23
Function Call: WRITE	Prompt: !,TIULINE Line Location: FTR+24
Function Call: WRITE	Prompt: !,"=========================== CONFIDENTIAL INFORMATION ===========================" Line Location: FTR+25
Function Call: WRITE	Prompt: @IOF Line Location: FTR+26
Function Call: WRITE	Prompt: $$DATE^TIULS(@TIUROOT@(1301,"I"),"MM/DD/CCYY HR:MIN"),?21," CONTINUED FROM PREVIOUS SCREEN ",! Line Location: HEADER+7
Function Call: WRITE	Prompt: ?(80-$L(TIUPFHDR)),TIUPFHDR Line Location: HEADER+10
Function Call: WRITE	Prompt: $$DATE^TIULS(@TIUROOT@(1301,"I"),"MM/DD/CCYY HR:MIN"),?21," CONTINUED FROM PREVIOUS PAGE ",!! Line Location: HEADER+12
Routine Call	DIR Line Location: STOP+3

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	FTR+10
^TIU(8925.94 - [#8925.94]	FTR+11, FTR+12

Label References

Name	Line Occurrences
$$STOP	FOOTER+7
FOOTW	FOOTER+7
FOOTX	FOOTER+7, FOOTER+9
FTR	FOOTER+8
HEADER	FOOTW

Naked Globals

Name	Field # of Occurrence
^(0	FTR+12

Local Variables

Name	Field # of Occurrence
DIR	STOP+2~
DIR(0	STOP+3*
DIV	FTR+1~, FTR+10*, FTR+11
IOF	FTR+26, HEADER+5
IOSL	FOOTER+7, FOOTER+9, FTR
IOST	FOOTER+7, HEADER+3
>> IOT	FTR
LOC	FTR+1~, FTR+8*, FTR+9, FTR+10
TIUCONT	FOOTER+4~, FOOTER+5, FOOTER+7, FOOTW, FOOTX+1, STOP+2~, STOP+4*, STOP+5
TIUCONT1	FOOTER~, FTR+3, FOOTW, HEADER~, HEADER+7, HEADER+12
TIUDA	FOOTER+4~, FOOTER+6*
TIUDIV	FTR+1~, FTR+11*, FTR+12
TIUDIVI	FTR+1~, FTR+12*, FTR+13
TIUFLAG	FOOTER+4~, FOOTER+6*, FTR+4, FTR+20, FTR+21, FTR+22, FTR+23, FTR+24, FOOTW, HEADER~ , HEADER+9, HEADER+10
TIUFNUM	FTR+1~
TIUFOOT	FOOTER~, FOOTW, HEADER~
TIUFOOT("DOB"	FTR+20
TIUFOOT("HRCN"	FTR+20, HEADER+5
TIUFOOT("INTNM"	FTR+13
TIUFOOT("LOCP"	FTR+20, FTR+21
TIUFOOT("PH#"	FTR+23
TIUFOOT("PNMP"	FTR+7, HEADER+5
TIUFOOT("SITE"	FTR+13
TIUHDR	FOOTER~, FOOTER+8, FOOTW
>> TIUKID	STOP+3
TIULINE	FTR+1~, FTR+2, FTR+6, FTR+24, HEADER+2~, HEADER+5, HEADER+6, HEADER+9, HEADER+11
TIUMISC	FOOTER~, FOOTER+6
TIUPFHDR	FOOTW, HEADER~, HEADER+6, HEADER+10
TIUPFNBR	FOOTER+4~, FOOTER+6*, FTR+22
TIUPRTDT	FTR+1~, FTR+14*, FTR+16, FTR+18
TIUPRTNM	FTR+1~, FTR+13*, FTR+15, FTR+16, FTR+18
TIUROOT	FOOTER~, FTR+8, FOOTW, HEADER~, HEADER+7, HEADER+12
U	FOOTER+6, FTR+10, FTR+12
Y	STOP+2~, STOP+4

Customize PDF page

Package: Text Integration Utility

Routine: TIUPRPN2

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed