Routine: SROESPR1

Package	Total	Call Graph
Surgery	3	($$BEEP,$$DATE,$$SIGNAME,$$SIGTITL,PAT)^SROESPR ($$FOOTER,$$STOP,HEADER)^SROESPR2 $$STATUS^SROESUTL
VA Fileman	2	^DIWP ^DIWW
Kernel	1	$$UP^XLFSTR
Text Integration Utility	1	EXTRACT^TIULQ

Package	Total	Caller Graph
Surgery	1	SROESPR

Entry Points

Name	Comments	DBIA/ICR reference
SETCONT(SRHEAD)	;Does footer and sets SRCONT
ADDENDA	; Surgery Reports Addenda
SIGBLK
AMEND	; signature blocks of amender
ADDENSIG	;
REPORT(SRDA)	; Report Text
PRINT(SRFLAG,SRSPG)	; Print Summary ; ^TMP("SRPR",$J) is array of records passed by reference ; SRFLAG=1 --> Chart Copy SRSPG=1 --> Contiguous ; SRFLAG=0 --> Work Copy SRSPG=0 --> Fresh Page- each note
RPTSIG	; Signature should be on bottom of form, Addenda on Subsequent pages

External References

Name	Field # of Occurrence
^DIWP	REPORT+31, ADDENDA+10
^DIWW	REPORT+32, ADDENDA+11
$$BEEP^SROESPR	SIGBLK+12, SIGBLK+13, SIGBLK+32, SIGBLK+41, SIGBLK+42
$$DATE^SROESPR	REPORT+10, REPORT+15, ADDENDA+5, SIGBLK+10, SIGBLK+29, SIGBLK+39, AMEND+3
$$SIGNAME^SROESPR	AMEND+6
$$SIGTITL^SROESPR	AMEND+7
PAT^SROESPR	PRINT+13
$$FOOTER^SROESPR2	SETCONT+1
$$STOP^SROESPR2	PRINT+25
HEADER^SROESPR2	PRINT+14, PRINT+20
$$STATUS^SROESUTL	SIGBLK+2
EXTRACT^TIULQ	PRINT+19, REPORT+4
$$UP^XLFSTR	REPORT+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$P(SRERR,U,2) Line Location: REPORT+5
Function Call: WRITE	Prompt: "NOTE DATED: " Line Location: REPORT+9
Function Call: WRITE	Prompt: $$DATE^SROESPR(^TMP("SRLQ",$J,SRDA,1301,"I"),"MM/DD/CCYY HR:MIN") Line Location: REPORT+10
Function Call: WRITE	Prompt: ?30,$$UP^XLFSTR(^TMP("SRLQ",$J,SRDA,.01,"E")),! Line Location: REPORT+11
Function Call: WRITE	Prompt: !,"SUBJECT: ",^("E"),! Line Location: REPORT+17
Function Call: WRITE	Prompt: ! Line Location: REPORT+26
Function Call: WRITE	Prompt: ! Line Location: RPTSIG+19
Function Call: WRITE	Prompt: !!,$$DATE^SROESPR(^TMP("SRLQ",$J,SRDA,"ZADD",SRADD,1301,"I"),"MM/DD/CCYY HR:MIN"),?21,"ADDENDUM" Line Location: ADDENDA+5
Function Call: WRITE	Prompt: ?41,"STATUS: ",^TMP("SRLQ",$J,SRDA,"ZADD",SRADD,.05,"E") Line Location: ADDENDA+6
Function Call: WRITE	Prompt: !! Line Location: ADDENDA+15
Function Call: WRITE	Prompt: !,"DRAFT COPY - DRAFT COPY -- ABOVE NOTE IS UNSIGNED-- DRAFT COPY - DRAFT COPY" Line Location: SIGBLK+2
Function Call: WRITE	Prompt: ?21,"Author: ",$P(AUTHOR,";",2),! Line Location: SIGBLK+4
Function Call: WRITE	Prompt: ?18,"Signed by:",$S($P(SIGNMODE,";")="C":" /s/ ",1:" /es/ "),?34,$S(SIGNNAME]"":SIGNNAME,1:$P(SIGNEDBY,";",2)) Line Location: SIGBLK+6
Function Call: WRITE	Prompt: !?34,SIGTITL Line Location: SIGBLK+7
Function Call: WRITE	Prompt: !?34 Line Location: SIGBLK+8
Function Call: WRITE	Prompt: " " Line Location: SIGBLK+9
Function Call: WRITE	Prompt: $$DATE^SROESPR(+SIGNDATE,"MM/DD/CCYY HR:MIN") Line Location: SIGBLK+10
Function Call: WRITE	Prompt: !?34,"Analog Pager: ",$P($$BEEP^SROESPR(+SIGNEDBY),U) Line Location: SIGBLK+12
Function Call: WRITE	Prompt: !?34,"Digital Pager: ",$P($$BEEP^SROESPR(+SIGNEDBY),U,2) Line Location: SIGBLK+13
Function Call: WRITE	Prompt: !?34,"REQUIRES COSIGNATURE",! Line Location: SIGBLK+15
Function Call: WRITE	Prompt: !?2,"Marked signed on chart by:",?34,$P(SIGCHRT,";",2) Line Location: SIGBLK+17
Function Call: WRITE	Prompt: !?4,"Receipt Acknowledged By:" Line Location: SIGBLK+21
Function Call: WRITE	Prompt: ! Line Location: SIGBLK+24
Function Call: WRITE	Prompt: ?29,"/es/ ",$G(@SRGROOT@("EXTRASGNR",SRI,"NAME")) Line Location: SIGBLK+25
Function Call: WRITE	Prompt: !?34,$G(@SRGROOT@("EXTRASGNR",SRI,"TITLE")) Line Location: SIGBLK+26
Function Call: WRITE	Prompt: !?34 Line Location: SIGBLK+27
Function Call: WRITE	Prompt: " " Line Location: SIGBLK+28
Function Call: WRITE	Prompt: $$DATE^SROESPR($G(@SRGROOT@("EXTRASGNR",SRI,"DATE")),"MM/DD/CCYY HR:MIN") Line Location: SIGBLK+29
Function Call: WRITE	Prompt: !?34,"Analog Pager: ",$P(BEEP,U) Line Location: SIGBLK+33
Function Call: WRITE	Prompt: !?34,"Digital Pager: ",$P(BEEP,U,2) Line Location: SIGBLK+34
Function Call: WRITE	Prompt: !?16,"Cosigned by:",$S($P(COSGMODE,";")="C":" /s/ ",1:" /es/ "),?34,$S(COSGNAME]"":COSGNAME,1:$P(COSGEDBY,";",2)) Line Location: SIGBLK+37
Function Call: WRITE	Prompt: !?34,COSGTITL," " Line Location: SIGBLK+38
Function Call: WRITE	Prompt: $$DATE^SROESPR(+COSGDATE,"MM/DD/CCYY HR:MIN") Line Location: SIGBLK+39
Function Call: WRITE	Prompt: !?34,"Analog Pager: ",$P($$BEEP^SROESPR(+COSGEDBY),U) Line Location: SIGBLK+41
Function Call: WRITE	Prompt: !?34,"Digital Pager:",$P($$BEEP^SROESPR(+COSGEDBY),U,2) Line Location: SIGBLK+42
Function Call: WRITE	Prompt: !,"Marked cosigned on chart by:",?34,$P(COSCHRT,";",2) Line Location: SIGBLK+44
Function Call: WRITE	Prompt: ! Line Location: SIGBLK+45
Function Call: WRITE	Prompt: !!?12,"Amendment Filed:",?34,$$DATE^SROESPR(@SRGROOT@(1601,"I"),"MM/DD/CCYY HR:MIN") Line Location: AMEND+3
Function Call: WRITE	Prompt: !!?29 Line Location: AMEND+5
Function Call: WRITE	Prompt: "_" Line Location: AMEND+5
Function Call: WRITE	Prompt: !?29,$$SIGNAME^SROESPR(@SRGROOT@(1602,"I")) Line Location: AMEND+6
Function Call: WRITE	Prompt: !?29,$$SIGTITL^SROESPR(@SRGROOT@(1602,"I")) Line Location: AMEND+7
Function Call: WRITE	Prompt: !?29,"/es/",?34,@SRGROOT@(1604,"E") Line Location: AMEND+9
Function Call: WRITE	Prompt: !?34,@SRGROOT@(1605,"E") Line Location: AMEND+10

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	REPORT+13, REPORT+14
^TMP("SRLQ"	REPORT+2!, REPORT+6, REPORT+10, REPORT+11, REPORT+12, REPORT+13, REPORT+15, REPORT+16, REPORT+17, REPORT+19 , REPORT+23, REPORT+29, REPORT+31, RPTSIG+4, RPTSIG+5, RPTSIG+6, RPTSIG+7, RPTSIG+8, RPTSIG+9, RPTSIG+10 , RPTSIG+11, RPTSIG+12, RPTSIG+13, RPTSIG+14, RPTSIG+15, RPTSIG+16, RPTSIG+17, RPTSIG+18, ADDENDA+3, ADDENDA+5 , ADDENDA+6, ADDENDA+8, ADDENDA+10, ADDENSIG+3, ADDENSIG+4, ADDENSIG+5, ADDENSIG+6, ADDENSIG+7, ADDENSIG+8, ADDENSIG+9 , ADDENSIG+10, ADDENSIG+11, ADDENSIG+12, ADDENSIG+13, ADDENSIG+14, ADDENSIG+15, SIGBLK, SIGBLK+14, SIGBLK+18
^TMP("SRPR"	PRINT+7, PRINT+15, PRINT+16, PRINT+24
^UTILITY($J	REPORT+28!, REPORT+32!, ADDENDA+2!, ADDENDA+13!

Label References

Name	Line Occurrences
ADDENSIG	ADDENDA+12
REPORT	PRINT+22
SETCONT	PRINT+23, PRINT+26, REPORT+8, REPORT+20, REPORT+25, REPORT+30, RPTSIG+19, ADDENDA+4, ADDENDA+9, SIGBLK+1 , SIGBLK+5, SIGBLK+16, SIGBLK+21, SIGBLK+24, SIGBLK+36, SIGBLK+43, AMEND+1
SIGBLK	RPTSIG+20

Naked Globals

Name	Field # of Occurrence
^(	PRINT+17, REPORT+24
^("E"	REPORT+17, RPTSIG+4, RPTSIG+5, RPTSIG+6, RPTSIG+8, RPTSIG+11, RPTSIG+13, RPTSIG+16, RPTSIG+17, RPTSIG+18 , ADDENSIG+3, ADDENSIG+4, ADDENSIG+5, ADDENSIG+7, ADDENSIG+10, ADDENSIG+12, ADDENSIG+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ATTNDING	ADDENSIG+1~, ADDENSIG+5*
AUTHOR	RPTSIG+1~, RPTSIG+4, ADDENSIG+1~, ADDENSIG+3, SIGBLK+3, SIGBLK+4
BEEP	SIGBLK+31~, SIGBLK+32*, SIGBLK+33, SIGBLK+34
COSCHRT	RPTSIG+2~, RPTSIG+18*, SIGBLK+43, SIGBLK+44
COSGDATE	RPTSIG+2~, RPTSIG+12, ADDENSIG+2~, ADDENSIG+11, SIGBLK+36, SIGBLK+39
COSGEDBY	RPTSIG+2~, RPTSIG+13, ADDENSIG+2~, ADDENSIG+12, SIGBLK+36, SIGBLK+37, SIGBLK+41, SIGBLK+42
COSGMODE	RPTSIG+2~, RPTSIG+16, ADDENSIG+2~, ADDENSIG+15, SIGBLK+37, SIGBLK+43
COSGNAME	RPTSIG+2~, RPTSIG+14, ADDENSIG+2~, ADDENSIG+13, SIGBLK+37
COSGTITL	RPTSIG+2~, RPTSIG+15, ADDENSIG+14, SIGBLK+38
DFN	PRINT+8~, PRINT+12*, PRINT+13
DIW	REPORT+1~, ADDENDA+1~
DIWF	REPORT+1~, REPORT+28, ADDENDA+1~, ADDENDA+2
DIWL	REPORT+1~, REPORT+28, ADDENDA+1~, ADDENDA+2
DIWR	REPORT+1~, REPORT+28, ADDENDA+1~, ADDENDA+2
DIWT	REPORT+1~, ADDENDA+1~
EXPCOSNR	RPTSIG+1~, RPTSIG+6*
EXPSIGNR	RPTSIG+1~, RPTSIG+5, ADDENSIG+1~, ADDENSIG+4
IOST	PRINT+24, PRINT+25, PRINT+26, SIGBLK+11, SIGBLK+30, SIGBLK+40
LOC	REPORT+1~, REPORT+13*, REPORT+14
SIGCHRT	RPTSIG+2~, RPTSIG+17*, SIGBLK+16, SIGBLK+17
SIGNDATE	RPTSIG+1~, RPTSIG+7, ADDENSIG+1~, ADDENSIG+6, SIGBLK+1, SIGBLK+5, SIGBLK+10
SIGNEDBY	RPTSIG+1~, RPTSIG+8, ADDENSIG+1~, ADDENSIG+7, SIGBLK+3, SIGBLK+6, SIGBLK+12, SIGBLK+13, SIGBLK+36
SIGNMODE	RPTSIG+1~, RPTSIG+11, ADDENSIG+1~, ADDENSIG+10, SIGBLK+6, SIGBLK+16
SIGNNAME	RPTSIG+1~, RPTSIG+9, ADDENSIG+1~, ADDENSIG+8, SIGBLK+6
SIGTITL	RPTSIG+1~, RPTSIG+10, ADDENSIG+9, SIGBLK+7, SIGBLK+8
SR	PRINT+8~, REPORT+1~
SRADD	ADDENDA+1~, ADDENDA+2, ADDENDA+3, ADDENDA+5, ADDENDA+6, ADDENDA+8, ADDENDA+10, ADDENSIG+3, ADDENSIG+4, ADDENSIG+5 , ADDENSIG+6, ADDENSIG+7, ADDENSIG+8, ADDENSIG+9, ADDENSIG+10, ADDENSIG+11, ADDENSIG+12, ADDENSIG+13, ADDENSIG+14, ADDENSIG+15 , SIGBLK+18
SRCONT	PRINT+4~, PRINT+7, PRINT+15, PRINT+16, PRINT+19, PRINT+22, PRINT+24, PRINT+25, REPORT+7, REPORT+8 , REPORT+19, REPORT+20, REPORT+23, REPORT+25, REPORT+29, REPORT+30, REPORT+33, RPTSIG+19, RPTSIG+20, ADDENDA+3 , ADDENDA+4, ADDENDA+8, ADDENDA+9, ADDENDA+12, ADDENDA+15, SIGBLK+1, SIGBLK+5, SIGBLK+16, SIGBLK+21, SIGBLK+24 , SIGBLK+36, SIGBLK+43, AMEND+1, SETCONT+1*
SRCONT1	PRINT+17!, PRINT+23!, PRINT+26!, REPORT+18*, SIGBLK+46!, SETCONT+1
SRDA	PRINT+4~, PRINT+21*, PRINT+22, REPORT~, REPORT+4, REPORT+10, REPORT+11, REPORT+12, REPORT+13, REPORT+15 , REPORT+16, REPORT+17, REPORT+19, REPORT+23, REPORT+29, REPORT+31, RPTSIG+4, RPTSIG+5, RPTSIG+6, RPTSIG+7 , RPTSIG+8, RPTSIG+9, RPTSIG+10, RPTSIG+11, RPTSIG+12, RPTSIG+13, RPTSIG+14, RPTSIG+15, RPTSIG+16, RPTSIG+17 , RPTSIG+18, ADDENDA+3, ADDENDA+5, ADDENDA+6, ADDENDA+8, ADDENDA+10, ADDENSIG+3, ADDENSIG+4, ADDENSIG+5, ADDENSIG+6 , ADDENSIG+7, ADDENSIG+8, ADDENSIG+9, ADDENSIG+10, ADDENSIG+11, ADDENSIG+12, ADDENSIG+13, ADDENSIG+14, ADDENSIG+15, SIGBLK , SIGBLK+2, SIGBLK+14, SIGBLK+18, SETCONT+1
SRERR	PRINT+8~, REPORT+1~, REPORT+4, REPORT+5
SRERR1	PRINT+17~, PRINT+19
SRFLAG	PRINT~, PRINT+6*, PRINT+14, PRINT+20, SIGBLK+11, SIGBLK+30, SIGBLK+40, SETCONT+1
SRFOOT	PRINT+4~, PRINT+13, PRINT+14, PRINT+20, SETCONT+1
SRGROOT	SIGBLK~, SIGBLK+18, SIGBLK+19, SIGBLK+22, SIGBLK+23, SIGBLK+25, SIGBLK+26, SIGBLK+27, SIGBLK+29, SIGBLK+32 , SIGBLK+35, AMEND+2, AMEND+3, AMEND+4, AMEND+6, AMEND+7, AMEND+8, AMEND+9, AMEND+10
SRHEAD	SETCONT~, SETCONT+1
SRI	PRINT+4~, PRINT+7, PRINT+9, PRINT+12, PRINT+15, PRINT+16, PRINT+24, REPORT+1~, REPORT+22~, REPORT+23* , REPORT+24, REPORT+28, REPORT+29, REPORT+31, ADDENDA+1~, ADDENDA+7, ADDENDA+8, ADDENDA+10, SIGBLK+20~, SIGBLK+22 , SIGBLK+23, SIGBLK+24, SIGBLK+25, SIGBLK+26, SIGBLK+27, SIGBLK+29, SIGBLK+32, AMEND+5*
SRJ	PRINT+4~, PRINT+15*, PRINT+16, PRINT+24
SRK	PRINT+4~, PRINT+16*, PRINT+17, PRINT+19, PRINT+21, PRINT+24
SRLINE	REPORT+1~, REPORT+3, REPORT+4, RPTSIG+2~, RPTSIG+3, ADDENSIG+2~*
SROPAGE	PRINT+5~
SRPAGE	PRINT+4~
SRPFHDR	PRINT+5~, PRINT+9, PRINT+10, PRINT+14, PRINT+20
SRPFNBR	PRINT+5~, PRINT+17*, SETCONT+1
SRPGRP	PRINT+4~, PRINT+9*, PRINT+11
SRSPG	PRINT~, PRINT+6, PRINT+11, PRINT+14, PRINT+20, PRINT+23, PRINT+26
SRTYP	PRINT+4~
SRW	PRINT+17~
SRY	REPORT+1~, REPORT+7, ADDENDA+4, ADDENSIG+16, AMEND+1
U	REPORT+5, REPORT+14, SIGBLK+12, SIGBLK+13, SIGBLK+33, SIGBLK+34, SIGBLK+41, SIGBLK+42
X	REPORT+1~, REPORT+31, ADDENDA+1~, ADDENDA+10
Z	REPORT+1~, ADDENDA+1~

Customize PDF page

Package: Surgery

Routine: SROESPR1

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: