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: SRORET

Package: Surgery

Routine: SRORET


Information

SRORET ;B'HAM ISC/MAM - RETURN TO SURGERY REPORT ; [ 09/22/98 11:36 AM ]

Source Information

Source file <SRORET.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
Surgery 4 ^SROSTOP  DATE^SROUTL  ($$INST,$$MANDIV)^SROUTL0  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
Registration 1 DEM^VADPT  
VA Fileman 1 D^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SRORET  

Entry Points

Name Comments DBIA/ICR reference
END
HDR ; print heading
BEG ; entry when queued
CHECK ; check for related returns
PRINT ; print returns
DATE
PRET ; print procedures
PAGE
LOOP ; break procedure if greater than 65 characters

External References

Name Field # of Occurrence
^%ZIS DATE+3
^%ZISC END+1
^%ZTLOAD DATE+4
D^DIQ PRINT+2, PRINT+6
^SROSTOP HDR+1
DATE^SROUTL DATE
$$INST^SROUTL0 DATE+1
$$MANDIV^SROUTL0 BEG+3
^SRSKILL END+1
DEM^VADPT PRINT+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"Report of Returns to Surgery",!
  • Line Location: SRORET+2
Function Call: WRITE
  • Prompt: !!,"This report will list cases completed during the date range entered that",!,"have had return cases associated with them. It is designed to use a 132",!,"column format.",!!
  • Line Location: DATE+2
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,!,?57,"SURGICAL SERVICE",?100,"REVIEWED BY: ",!,?52,"REPORT OF RETURNS TO SURGERY",?100,"DATE REVIEWED: "
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!!,"OPERATION DATE",?17,"PATIENT (ID#)",?65,"PRINCIPAL OPERATIVE PROCEDURE",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?20,SRETDT,?35,SROPS(1)
  • Line Location: PRET+2
Function Call: WRITE
  • Prompt: !,?35,SROPS(2)
  • Line Location: PRET+2
Function Call: WRITE
  • Prompt: !,?35,SROPS(2)
  • Line Location: PRET+2
Function Call: WRITE
  • Prompt: !,?35,SROPS(2)
  • Line Location: PRET+2
Function Call: WRITE
  • Prompt: !!!,SRSDT,?17,SRNAME_" ("_VA("PID")_")",?65,SROPS(1)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,?65,SROPS(2)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,?65,SROPS(2)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,?65,SROPS(2)
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !!," RETURNS TO SURGERY: "
  • Line Location: PRINT+5
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: PAGE+0
Routine Call
  • %ZIS
  • Line Location:
    • DATE+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" BEG+1
^SRF - [#130] BEG+3, PRINT+2, PRINT+3, PRINT+6, CHECK+1
^SRF("AC" BEG+3

Label References

Name Line Occurrences
CHECK BEG+3
END DATE, DATE+1, DATE+3, DATE+4
HDR BEG+2, PAGE+1
LOOP PRET+1, PRINT+3
PAGE PRINT+1
PRET PRINT+6
PRINT BEG+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DATE+2!, DATE+3*
%ZIS("A" DATE+3*
>> CNT PRINT+6*, CHECK+1*
>> DFN PRINT+2*
DT BEG+1
DTIME END, PAGE
IO BEG+2
IO("Q" DATE+2!, DATE+4!
IOF SRORET+2, BEG+4, END+1, HDR+2
IOM HDR+4
IOP DATE+2!
IOSL PRINT+1
IOST BEG+4, END, PAGE
>> LINE HDR+4*
>> LOOP LOOP+1*
M PRET+1!*, PRINT+3*, LOOP+1
MM PRET+1, PRINT+3!, LOOP+1*
MMM PRINT+3!, LOOP+1*
POP DATE+2!, DATE+3
>> RET PRINT+6*, CHECK+1*
RETURN BEG+3!
RETURN( PRINT+6, CHECK+1*
>> SRED DATE, BEG+1
>> SRED1 BEG+1*, BEG+3
>> SRETDT PRET+2, PRINT+6*
SRFRTO BEG+1~*, HDR+3
>> SRHALT HDR+1
>> SRINST DATE+1*, HDR+2
SRINSTP DATE+1~*, BEG+3
>> SRNAME PRINT+2*, PRINT+4
>> SROPER PRET+1*, PRINT+3*, PRINT+6*, LOOP+1*
SROPS PRET+1!, PRINT+3!
SROPS( LOOP+1*
SROPS(1 PRET+1*, PRET+2, PRINT+3*, PRINT+4
SROPS(2 PRET+2, PRINT+4
SROPS(3 PRET+2, PRINT+4
SROPS(4 PRET+2, PRINT+4
>> SRPRINT BEG+1*, HDR+3
>> SRSD DATE, BEG+1
>> SRSD1 BEG+1*, BEG+3*, PRINT+2
>> SRSDT PRINT+2*, PRINT+4
>> SRSOUT SRORET+2*, DATE, DATE+3*, DATE+4*, BEG+1*, BEG+2, BEG+3, END*, HDR+1*, PRINT+1
, PAGE*
SRTN BEG+3*, END+1!, PRINT+2, PRINT+3, CHECK+1
>> SSN PRINT+2*
U DATE+1
>> VA("PID" PRINT+2, PRINT+4
>> VADM(1 PRINT+2
>> X END*, PAGE*
>> Y BEG+1*, PRINT+2*, PRINT+6*
>> ZTDESC DATE+4*
>> ZTQUEUED BEG+4, HDR+1
>> ZTREQ BEG+4*
>> ZTRTN DATE+4*
>> ZTSAVE("SRED" DATE+4*
>> ZTSAVE("SRINST" DATE+4*
>> ZTSAVE("SRINSTP" DATE+4*
>> ZTSAVE("SRSD" DATE+4*
>> ZTSTOP BEG+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All