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

Package: Surgery

Routine: SRODIS


Information

SRODIS ;BIR/ADM - LIST OF OPERATIONS BY DISPOSITION ; [ 09/22/98 11:33 AM ]

Source Information

Source file <SRODIS.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Surgery 4 ^SRODIS0  ^SROSTOP  DATE^SROUTL  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 2 ^DIC  ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Surgery 2 SRO CASES BY DISPOSITION  SRODIS0  

Entry Points

Name Comments DBIA/ICR reference
BEG
DATE
DISP
TYPE
SORT
SER
DEVICE
SP
MORE ; more specialties?
END
RET
HDR ; print heading

External References

Name Field # of Occurrence
^%ZIS DEVICE
^%ZISC END+1
^%ZTLOAD DEVICE+1
^DIC TYPESPMORE+1
^DIR DISP+4
^SRODIS0 DEVICE+2
^SROSTOP HDR+1
DATE^SROUTL DATE
^SRSKILL END+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"List of Operations by Postoperative Disposition:",!!
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: @IOF,!,"Print the List of Operations for which of the following ?",!!,?10,"1. All Dispositions",!,?10,"2. A Specific Disposition",!,?10,"3. No Disposition Entered",!
  • Line Location: DISP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: TYPE+0
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: SORT+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN to sort the report by surgical specialty, or 'N' to not sort",!,"by surgical specialty."
  • Line Location: SORT+2
Function Call: READ
  • Variable: SRYN
  • Timeout: DTIME
  • Line Location: SER+0
Function Call: WRITE
  • Prompt: !!,"Enter RETURN to print the report for all surgical specialties, or 'N' to print",!,"the report for a specific specialty."
  • Line Location: SER+2
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!
  • Line Location: DEVICE+0
Function Call: WRITE
  • Prompt: !
  • Line Location: SP+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: RET+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue with the List of Surgical Cases sorted by Postop",!,"Disposition, or '^' if you do not want to review any additional information."
  • Line Location: RET+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?126,"PAGE",!,?58,"SURGICAL SERVICE",?127,$J(PAGE,3)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?46,"LIST OF OPERATIONS BY POSTOP DISPOSITION",?100,SRPRINT
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,"REVIEWED BY:"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,?(132-$L(SRTP)\2),SRTP,?100,"DATE REVIEWED:"
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,?100,"DATE REVIEWED:"
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !!,"DATE",?13,"PATIENT",?38,"OPERATION(S)",?90,"PRIMARY SURGEON",?114,"ANESTHESIA TECH",!,"CASE #",?15,"ID#",?90,"1ST ASST",?114,"IN/OUT-PAT STATUS",!,?90,"2ND ASST",?114,"OP TIME"
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !,?(132-$L(">> "_SRSPEC_" <<")\2),">> "_SRSPEC_" <<",!
  • Line Location: HDR+10
Routine Call
  • %ZIS
  • Line Location:
    • DEVICE
Routine Call
  • DIC
  • Line Location:
    • TYPE
    • SP
    • MORE+1
Routine Call
  • DIR
  • Line Location:
    • DISP+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRO(131.6 - [#131.6] HDR+6

Label References

Name Line Occurrences
DEVICE SORT+3
END DATEDISP+4, TYPESORTSERSER+3, DEVICEDEVICE+1
MORE MORE+1
RET RET+1, HDR+2
SER SER+2
SORT DISP+5, SORT+2
SP SER+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEVICE!*, DEVICE+1*
%ZIS("A" DEVICE*
DIC TYPE!*, SP!*, MORE+1!*
DIC("A" TYPE*, SP*, MORE+1*
DIC("S" TYPE*, SP*, MORE+1*
DIC(0 TYPE*, SP*, MORE+1*
DIR DISP+1!, DISP+4!
DIR("?" DISP+2*, DISP+3*
DIR("A" DISP+1*
DIR("B" DISP+1*
DIR(0 DISP+1*
DTIME SORTSERENDRET
>> DTOUT DISP+4
>> DUOUT DISP+4
>> I HDR+9*
IO("Q" DEVICE!, DEVICE+1!
IOF BEGDISPEND+1, HDR+3
IOP DEVICE!
IOST ENDHDR+2
>> PAGE HDR+3, HDR+11*
POP DEVICE!
>> SRDISP DISP+5*, TYPE+1*
>> SRDISP1 HDR+6*, HDR+7
>> SRED DATE
>> SRFRTO HDR+5
>> SRHALT HDR+1
>> SRHDR HDR+2, HDR+11*
>> SRINST HDR+3
>> SRORD BEG*, SORT+3*
>> SRP HDR+6, HDR+7, HDR+8
>> SRPRINT HDR+4
>> SRQ BEG*, DATEDISP+4*, TYPE*, SORT*, SER*, SER+3, SP*, END, RET*
HDR+1*, HDR+2
>> SRSD DATE
>> SRSP BEG*, SP*
>> SRSP( SP+1*, MORE+1*
>> SRSPEC HDR+10
SRTN END+1!
>> SRTP HDR+7*
>> SRYN SORT*, SORT+1*, SORT+2, SORT+3, SER*, SER+1*, SER+2, SER+3
>> X END*, RET*, RET+1
>> Y DISP+5, TYPETYPE+1, SPSP+1, MORE+1
>> ZTDESC DEVICE+1*
>> ZTQUEUED HDR+1
>> ZTRTN DEVICE+1*
>> ZTSAVE("SRDISP" DEVICE+1*
>> ZTSAVE("SRED" DEVICE+1*
>> ZTSAVE("SRORD" DEVICE+1*
>> ZTSAVE("SRSD" DEVICE+1*
>> ZTSAVE("SRSITE*" DEVICE+1*
>> ZTSAVE("SRSP*" DEVICE+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All