Routine: SROESPR2

Package	Total	Call Graph
VA Fileman	3	$$EXTERNAL^DILFD $$GET1^DIQ ^DIR
Surgery	2	$$DATE^SROESPR $$SITE^SROUTL0
Kernel	1	$$NOW^XLFDT

Package

Total

Call Graph

VA Fileman

$$EXTERNAL^DILFD $$GET1^DIQ ^DIR

Surgery

$$DATE^SROESPR $$SITE^SROUTL0

Kernel

$$NOW^XLFDT

Package	Total	Caller Graph
Surgery	1	SROESPR1

Package

Total

Caller Graph

Surgery

SROESPR1

Entry Points

Name	Comments	DBIA/ICR reference
FTR
FOOTW
FOOTX	;
FOOTER(SRFOOT,SRFLAG,SRPFNBR,SRHDR,SRCONT1,SRDA)	; Control Pagination ; position, write footer when appropriate ; IF SRHDR=1, HEADER WILL NOT BE PRINTED
HEADER(SRFOOT,SRFLAG,SRPFHDR,SRCONT1)	; Header
STOP()	;on screen paging check ; quits SRCONT=1 if cont. ELSE quits SRCONT=0

Name	Field # of Occurrence
$$EXTERNAL^DILFD	FTR+8
$$GET1^DIQ	FTR+10
^DIR	STOP+3
$$DATE^SROESPR	FTR+12, HEADER+6, HEADER+12
$$SITE^SROUTL0	FTR+8
$$NOW^XLFDT	FTR+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: FTR+0
Function Call: WRITE	Prompt: ?21,$S(+$G(SRCONT1):" 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: SRLINE Line Location: FTR+6
Function Call: WRITE	Prompt: !,SRFOOT("PNMP") Line Location: FTR+7
Function Call: WRITE	Prompt: ?(80-$L(SRPRTNM)\2),SRPRTNM,?56,SRPRTDT Line Location: FTR+14
Function Call: WRITE	Prompt: ?58,SRPRTDT,!?(80-$L(SRPRTNM)\2),SRPRTNM Line Location: FTR+16
Function Call: WRITE	Prompt: !,SRFOOT("SSN")," ",SRFOOT("DOB"),?(80-$L(SRFOOT("LOCP"))\2),SRFOOT("LOCP") Line Location: FTR+17
Function Call: WRITE	Prompt: ?(80-$L(SRPFNBR)),SRPFNBR Line Location: FTR+18
Function Call: WRITE	Prompt: ?(80-$L(SRFOOT("PH#"))),SRFOOT("PH#") Line Location: FTR+19
Function Call: WRITE	Prompt: !,SRLINE Line Location: FTR+20
Function Call: WRITE	Prompt: !,"=========================== CONFIDENTIAL INFORMATION ===========================" Line Location: FTR+21
Function Call: WRITE	Prompt: @IOF Line Location: FTR+22
Function Call: WRITE	Prompt: $$DATE^SROESPR(^TMP("SRLQ",$J,SRDA,1301,"I"),"MM/DD/CCYY HR:MIN"),?21," CONTINUED FROM PREVIOUS SCREEN ",! Line Location: HEADER+6
Function Call: WRITE	Prompt: ?(80-$L(SRPFHDR)),SRPFHDR Line Location: HEADER+10
Function Call: WRITE	Prompt: $$DATE^SROESPR(^TMP("SRLQ",$J,SRDA,1301,"I"),"MM/DD/CCYY HR:MIN"),?21," CONTINUED FROM PREVIOUS PAGE ",!! Line Location: HEADER+12
Routine Call	DIR Line Location: STOP+3

FileNo	Call Tags
^SRO(133 - [#133]	EXTERNAL^DILFD
^DIC(4 - [#4]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	FTR+10
^SRO(133 - [#133]	FTR+8
^TMP("SRLQ"	FTR+8, FTR+9, HEADER+6, HEADER+12

Name	Line Occurrences
$$STOP	FOOTER+4
FOOTW	FOOTER+4
FOOTX	FOOTER+4, FOOTER+6
FTR	FOOTER+5
HEADER	FOOTW

Name	Field # of Occurrence
^("I"	FTR+9

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	STOP+2~
DIR(0	STOP+3*
DIV	FTR+1~, FTR+8*
IOF	FTR+22, HEADER+3
IOSL	FOOTER+4, FOOTER+6, FTR
IOST	FOOTER+4, HEADER+2
>> IOT	FTR
LOC	FTR+1~, FTR+9*, FTR+10
SRCASE	FTR+1~, FTR+8*
>> SRCONT	FOOTER+3, FOOTER+4, FOOTW, FOOTX+1, STOP+4*, STOP+5
SRCONT1	FOOTER~, FTR+3, FOOTW, HEADER~, HEADER+6, HEADER+12, HEADER+13!
SRDA	FOOTER~, FTR+8, FTR+9, HEADER+6, HEADER+12
SRDIV	FTR+1~, FTR+8, FTR+10
SRDIVI	FTR+1~, FTR+8, FTR+9, FTR+10, FTR+11
SRFLAG	FOOTER~, FTR+4, FTR+18, FTR+19, FTR+20, FOOTW, HEADER~, HEADER+9, HEADER+10
SRFNUM	FTR+1~
SRFOOT	FOOTER~, FOOTW, HEADER~
SRFOOT("DOB"	FTR+17
SRFOOT("INTNM"	FTR+11
SRFOOT("LOCP"	FTR+17
SRFOOT("PH#"	FTR+19
SRFOOT("PNMP"	FTR+7, HEADER+4
SRFOOT("SITE"	FTR+11
SRFOOT("SSN"	FTR+17, HEADER+4
SRHDR	FOOTER~, FOOTER+5, FOOTW
SRLINE	FTR+1~, FTR+2, FTR+6, FTR+20, HEADER+1~, HEADER+4, HEADER+5, HEADER+9, HEADER+11
SRNOW	FTR+1~, FTR+12*
>> SROPAGE	HEADER+1*, HEADER+3, HEADER+8
SRPFHDR	FOOTW, HEADER~, HEADER+5, HEADER+10
SRPFNBR	FOOTER~, FTR+18
SRPRTDT	FTR+1~, FTR+12*, FTR+14, FTR+16
SRPRTNM	FTR+1~, FTR+11*, FTR+13, FTR+14, FTR+16
U	FTR+10
Y	STOP+2~, STOP+4

Customize PDF page

Package: Surgery

Routine: SROESPR2

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: