Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SROESPR1

Package: Surgery

Routine: SROESPR1


Information

SROESPR1 ;BIR/ADM - SURGERY E-SIG UTILITY ; [ 04/21/04 12:08 PM ]

Source Information

Source file <SROESPR1.m>

Call Graph

Call Graph Total: 7

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  

Caller Graph

Caller Graph Total: 1

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~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All