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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SRODELA

Package: Surgery

Routine: SRODELA


Information

SRODELA ;B'HAM ISC/MAM - REPORT OF DELAYED OPERATIONS; 5 Apr 1989 3:44 PM

Source Information

Source file <SRODELA.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Surgery 3 ^SROSTOP  $$SITE^SROVAR  ^SRSKILL  
Registration 1 DEM^VADPT  
VA Fileman 1 ^%DT  

Entry Points

Name Comments DBIA/ICR reference
SET ; set up variables and print
END
HDR ; print heading
OPS
1 ; entry when queued
ASK
OTHER ; other operations
EN ;
TIME ; set delay time
PRINT ;
LOOP ; break procedure if greater than 50 characters

External References

Name Field # of Occurrence
^%DT EN+1
^%ZIS EN+2
^%ZISC END
^%ZTLOAD EN+3
^SROSTOP HDR+1
$$SITE^SROVAR EN+1
^SRSKILL END
DEM^VADPT SET+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$E(DATE,4,5)_"/"_$E(DATE,6,7)_"/"_$E(DATE,2,3),?12,$E(PAT,1,18),?30,SROPS(1),?82,$P(SRDEL(1),"^",2),?99,$P(SRDEL(1),"^"),!,SRTN,?12,SERVICE,?30
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: SROPS(2)
  • Condition for execution: $D(SROPS(2))
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: ?82,$P(SRDEL(2),"^",2),?99,$P(SRDEL(2),"^")
  • Condition for execution: $D(SRDEL(2))
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,?30,SROPS(3)
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,?30,SROPS(4)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?30,SROPS(5)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,?30,SROPS(5)
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,!,?58,"SURGICAL SERVICE",?99,"REVIEWED BY: ",!,?52,"REPORT OF DELAYED OPERATIONS",?99,"DATE REVIEWED: "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?53,"FROM "_$E(SRSD,4,5)_"/"_$E(SRSD,6,7)_"/"_$E(SRSD,2,3)_" TO "_$E(SRED,4,5)_"/"_$E(SRED,6,7)_"/"_$E(SRED,2,3)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,?1,"DATE",?12,"PATIENT",?30,"OPERATION(S)",?82,"DELAY TIME",?99,"DELAY CAUSE",!,?1,"CASE #",?12,"SURGICAL SPECIALTY",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST)="P"
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: READ
  • Timeout: DTIME
  • Variable: ANS
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: 1+5
Routine Call
  • %ZIS
  • Line Location:
    • EN+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] SET+1, SET+2, SET+3, OPS, OTHER+1, OTHER+2, TIME+1, 1+2
^SRF("AC" 1+2
^SRO(132.4 - [#132.4] SET+3
^SRO(137.45 - [#137.45] SET+4

Label References

Name Line Occurrences
ASK OPS+2
EN EN+1
END EN+1, EN+2, EN+3, 1+4, 1+6
HDR ASK+1, 1+1
LOOP OPS+1
OTHER OPS
SET 1+2
TIME SET+3

Naked Globals

Name Field # of Occurrence
^( SET+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT EN+1*
>> %DT("A" EN+1*
%ZIS EN+2!*
%ZIS("A" EN+2*
>> ANS OPS+2, ASK*, 1+1*, 1+4
>> CNT SET+3*, TIME+1
>> DATE PRINT+1, 1+1*, 1+2*
>> DFN SET+2*
DTIME ASK, 1+5
IO 1+1
IO("Q" EN+2!, EN+3!
IOF HDR+2, END
IOP EN+2!
IOSL OPS+2
IOST END, ASK, 1+5
>> LINE HDR+4*
>> LOOP LOOP+1*
>> M OPS+1*, LOOP+1
MM OPS+1!, LOOP+1*
MMM OPS+1!, LOOP+1*
>> OPER OPS*, OTHER+1*, OTHER+2
>> PAT SET+2*, PRINT+1
POP EN+2!
>> S(0 SET+2*
>> SDELAY SET+3*, TIME+1
>> SERVICE SET+2*, SET+4*, PRINT+1
>> SRD EN+1*, EN+3, 1+1
SRDEL SET+3!
SRDEL( SET+3*, TIME+1*
SRDEL(1 PRINT+1
SRDEL(2 PRINT+2
>> SRDELT TIME+1*
>> SRED HDR+3, EN+1*, EN+3, 1+1
>> SRED1 1+1*, 1+2
>> SRHALT HDR+1
>> SRINST HDR+2, EN+1*, EN+3
>> SRLONG OTHER+1*, OTHER+2
>> SROPER OPS*, OPS+1*, OTHER+1, OTHER+3*, LOOP+1*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
SROPS OPS+1!
SROPS( LOOP+1*
SROPS(1 OPS+1*, PRINT+1
SROPS(2 PRINT+1
SROPS(3 PRINT+2
SROPS(4 PRINT+3
SROPS(5 PRINT+3
SROPS(6 PRINT+3
>> SRSD HDR+3, EN+1*, EN+3
>> SRSOUT OPS+2, HDR+1*, 1+1*, 1+2
SRTN SET+1, SET+2, SET+3, OPS, PRINT+1, END!, OTHER+1, OTHER+2, TIME+1, 1+2*
>> SSN SET+2*
>> VA("PID" SET+2
>> VADM(1 SET+2
>> X SET+3*, 1+5*
>> Y EN+1
>> ZTDESC EN+3*
>> ZTQUEUED HDR+1, 1+3
>> ZTREQ 1+3*
>> ZTRTN EN+3*
>> ZTSAVE("SRD" EN+3*
>> ZTSAVE("SRED" EN+3*
>> ZTSAVE("SRINST" EN+3*
>> ZTSAVE("SRSD" EN+3*
>> ZTSTOP 1+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All