Routine: SROESPR

Information

SROESPR ;BIR/ADM - SURGERY E-SIG UTILITY ;08/09/04

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Text Integration Utility	3	($$PRNTGRP,$$PRNTMTHD,$$PRNTNBR)^TIULG EXTRACT^TIULQ DOCPARM^TIUSRVP1
Registration	2	(ADD,OERR)^VADPT ($$NAME,$$SITE)^VASITE
Surgery	2	$$TITLE^SROESPR PRINT^SROESPR1
VA FileMan	2	EN^DIQ1 ^DIR
Authorization Subscription	1	$$ISA^USRLM

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 8

Package	Total	Caller Graph
Surgery	7	SROARPT SROESPR SROESPR1 SROESPR2 SRONIN SRONON SROPRPT
Text Integration Utility	1	^TIU(8925.1

Entry Points

Name	Comments	DBIA/ICR reference
ENTRY	; Entry point to print reports
ENTRY1	; Entry point from above
EXIT
PRNT(SRTN,SRTIU,SRDTITL)	; print report from TIU
DEVICE
TYPE(SRTIU)	; get document type
TITLE(SRTIU)	; get report title
FLAG()	; chart vs work copies ; returns SRFLAG=1 if chart copy, SRFLAG=0 if work copy, null if '^'
PAT(SRY,DFN)	; get minimum demographics for print
TIME(X,FMT)	; receives X as 2910419.01 and FMT=Return Format of time (HH:MM:SS).
DATE(X,FMT)	; call with X=2910419.01 and FMT=Return Format of date ("MM/DD")
QDATE
BEEP(SRPER)	; get beeper #'s
SIGNAME(SRPER)	; get signature block printed name
SIGTITL(SRPER)	; get signature block title

External References

Name	Field # of Occurrence
^%ZIS	DEVICE
HOME^%ZIS	DEVICE+7
^%ZISC	DEVICE+8
^%ZTLOAD	DEVICE+5
EN^DIQ1	BEEP+2, SIGNAME+2, SIGTITL+2
^DIR	FLAG+7
$$TITLE^SROESPR	ENTRY+6
PRINT^SROESPR1	ENTRY1+6
$$PRNTGRP^TIULG	PRNT+5
$$PRNTMTHD^TIULG	PRNT+4
$$PRNTNBR^TIULG	PRNT+7
EXTRACT^TIULQ	TYPE+1, TITLE+1
DOCPARM^TIUSRVP1	FLAG+2
$$ISA^USRLM	FLAG+2
ADD^VADPT	PAT+1
OERR^VADPT	PAT+1
$$NAME^VASITE	PAT+5
$$SITE^VASITE	PAT+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"No Print Method Defined" Line Location: PRNT+10
Function Call: WRITE	Prompt: ! Line Location: DEVICE+0
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Canceled!") Line Location: DEVICE+5
Function Call: WRITE	Prompt: ! Line Location: FLAG+4
Routine Call	%ZIS Line Location: DEVICE
Routine Call	%ZIS Line Location: DEVICE+7
Routine Call	DIR Line Location: FLAG+7

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SRF - [#130]	PRNT+3
^TMP("SRLQ"	ENTRY1+4!, EXIT!
^TMP("SRPR"	ENTRY+3, ENTRY+4, ENTRY+7, ENTRY+8!, ENTRY+9, EXIT!, PRNT+2!, PRNT+11*
^TMP("TIUPR"	ENTRY+3

Label References

Name	Line Occurrences
$$DATE	PAT+3
$$FLAG	PRNT+2
$$TIME	DATE+7
$$TITLE	PRNT+6
$$TYPE	PRNT+3
ENTRY1	DEVICE+8
EXIT	DEVICE, DEVICE+2
QDATE	DATE+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %ZIS	DEVICE*
AMTH	DATE+1~, DATE+5*
CC	DATE+1~, DATE+4*
D0	ENTRY1+1~
DA	BEEP+1!, BEEP+2!, SIGNAME+1!, SIGNAME+2!, SIGTITL+1!, SIGTITL+2*!
DD	DATE+1~, DATE+4*
DFN	PRNT+1~, PRNT+3*, PRNT+8, PRNT+9, PAT~
DIC	BEEP+1!, BEEP+2!, SIGNAME+1!, SIGNAME+2!, SIGTITL+1!, SIGTITL+2*!
DIQ	BEEP+1!, BEEP+2!, SIGNAME+1!, SIGNAME+2!, SIGTITL+1!, SIGTITL+2*!
DIQ(0	BEEP+2, SIGNAME+2, SIGTITL+2*
DIR	FLAG+4!, FLAG+7!
DIR("?"	FLAG+5, FLAG+6
DIR("A"	FLAG+4*
DIR("B"	FLAG+4*
DIR(0	FLAG+4*
DIROUT	ENTRY1+1~
DIRUT	ENTRY1+1~
DN	ENTRY1+1~
DR	BEEP+1!, BEEP+2!, SIGNAME+1!, SIGNAME+2!, SIGTITL+1!, SIGTITL+2*!
DTOUT	ENTRY1+1~, FLAG+7
DUOUT	ENTRY1+1~, FLAG+7
DUZ	FLAG+2
FMT	TIME~, TIME+1, TIME+3, TIME+4, DATE~, DATE+2, DATE+3, DATE+5, DATE+6, DATE+7 , QDATE
HR	TIME+1~, TIME+2*
IO	ENTRY+10, DEVICE+8
IO("Q"	DEVICE+2!
IOP	DEVICE!
IOST	ENTRY1+2, DEVICE, FLAG+3
MIN	TIME+1~, TIME+2*
MM	DATE+1~, DATE+4*, DATE+5
POP	DEVICE!
SEC	TIME+1~, TIME+2*
SRDARR	PRNT+1~
SRDARR(	PRNT+8, PRNT+9, PRNT+11
SRDP	BEEP+1~, BEEP+3, BEEP+4
SRDTITL	PRNT~, PRNT+2*, DEVICE+4
SRERR	ENTRY1+1~, TYPE+1~, TITLE+1~
SRFLAG	ENTRY+1~, ENTRY+2, ENTRY1+2, ENTRY1+3, ENTRY1+6, PRNT+1~, PRNT+2, DEVICE+1, DEVICE+6!, FLAG+2* , FLAG+3, FLAG+4, FLAG+7, FLAG+8*, FLAG+9
SRI	ENTRY+1~, ENTRY+4, ENTRY+5, ENTRY+7, ENTRY+8, TIME+1~, TIME+3, DATE+1~, DATE+6*
SRJ	ENTRY+1~, ENTRY+4*, ENTRY+7, ENTRY+8
SRK	ENTRY+1~, ENTRY+4*, ENTRY+6, ENTRY+7, ENTRY+8
SRL	ENTRY+1~, ENTRY+5*
SRM	ENTRY+1~, ENTRY+5*
SRN	ENTRY+1~, ENTRY+5*, ENTRY+7
SRO	ENTRY+1~
SRO("SRPR"	ENTRY+7*, ENTRY+9
>> SRPARM	FLAG+2
>> SRPARM(0	FLAG+2
SRPER	BEEP~, BEEP+2, BEEP+3, SIGNAME~, SIGNAME+2, SIGNAME+3, SIGTITL~, SIGTITL+2, SIGTITL+3
SRPFHDR	ENTRY+1~, ENTRY+6, ENTRY+7, PRNT+1~, PRNT+6, PRNT+8
SRPFNBR	PRNT+1~, PRNT+7*, PRNT+8
SRPGRP	ENTRY+1~, ENTRY+5, ENTRY+7, PRNT+1~, PRNT+5, PRNT+8
SRPMTHD	PRNT+1~, PRNT+4*, PRNT+8, PRNT+9, PRNT+10, PRNT+11
SRSPG	ENTRY+1~, ENTRY1+2, ENTRY1+3, ENTRY1+6, PRNT+1~, DEVICE+1*, DEVICE+6!
SRTIU	PRNT~, PRNT+3, PRNT+6, PRNT+8, PRNT+9, TYPE~, TYPE+1, TYPE+2, TITLE~, TITLE+1 , TITLE+2, FLAG+2
SRTMP	DATE+1~, DATE+2*
SRTN	PRNT~, PRNT+3
SRTYP	PRNT+1~, PRNT+3*, PRNT+4, PRNT+5, PRNT+7
SRVP	BEEP+1~, BEEP+3, BEEP+4
SRY	TYPE+1~, TITLE+1~, PAT~, BEEP+1~, SIGNAME+1~, SIGTITL+1~
SRY(	TYPE+2, TITLE+2
SRY("DOB"	PAT+3*
SRY("INTNM"	PAT+5*
SRY("LOCP"	PAT+7*
SRY("PH#"	PAT+4*
SRY("PNMP"	PAT+2*
SRY("SITE"	PAT+6*
SRY("SSN"	PAT+2*
SRY(200	BEEP+3, SIGNAME+3, SIGTITL+3
>> TIUFLAG	ENTRY+2
U	PAT+6, PAT+7
VA	PAT+1~
VA("PID"	PAT+2
VADM	PAT+1~
VADM(1	PAT+2
VADM(3	PAT+3
VAIN	PAT+1~
VAIN(4	PAT+7
VAIN(5	PAT+7
VAIP	PAT+1~
VAPA	PAT+1~
VAPA(8	PAT+4
X	TIME~, TIME+2*, DATE~, DATE+2, DATE+4, DATE+7
Y	ENTRY1+1~, FLAG+8
YY	DATE+1~, DATE+4*
ZTDESC	DEVICE+4*, DEVICE+6!
ZTDTH	DEVICE+6!
ZTIO	DEVICE+6!
>> ZTQUEUED	ENTRY1+5
>> ZTREQ	ENTRY1+5*
ZTRTN	DEVICE+3*, DEVICE+6!
ZTSAVE	DEVICE+6!
ZTSAVE("SRFLAG"	DEVICE+4*
ZTSAVE("SRSPG"	DEVICE+4*
ZTSAVE("^TMP(""SRPR"",$J,"	DEVICE+3*
ZTSK	DEVICE+5, DEVICE+6!

Customize PDF page

Package: Surgery

Routine: SROESPR

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: