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 |  Local Variables |  All
Print Page as PDF
Routine: SROESPR

Package: Surgery

Routine: SROESPR


Information

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

Source Information

Source file <SROESPR.m>

Call Graph

Call Graph Total: 13

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

Caller Graph Total: 7

Package Total Caller Graph
Surgery 7 SROARPT  SROESPR  SROESPR1  SROESPR2  SRONIN  SRONON  SROPRPT  

Entry Points

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

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+7
Routine Call
  • DIR
  • Line Location:
    • FLAG+7
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE

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