Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
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
REPORT(SRDA) ; Report Text
RPTSIG ; Signature should be on bottom of form, Addenda on Subsequent pages
ADDENDA ; Surgery Reports Addenda
ADDENSIG ;
SIGBLK
AMEND ; signature blocks of amender
SETCONT(SRHEAD) ;Does footer and sets SRCONT

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
Info |  Source |  Entry Points |  Interaction Calls