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 |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SROPRIO

Package: Surgery

Routine: SROPRIO


Information

SROPRIO ;B'HAM ISC/MAM - LIST OF OPERATIONS (BY PRIORITY) ; [ 09/22/98 11:36 AM ]

Source Information

Source file <SROPRIO.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Surgery 4 ^SROPRI  ^SROSTOP  DATE^SROUTL  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA FileMan 3 ^DIC  HELP^DIE  ^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 PRIORITY  SROPRI  

Entry Points

Name Comments DBIA/ICR reference
BEG
DATE
PRIO
SORT
SER
DEVICE
PRIORITY ; get list of priorities
SP
MORE ; more specialties?
END
RET
HDR ; print heading

External References

Name Field # of Occurrence
^%ZIS DEVICE
^%ZISC END+1
^%ZTLOAD DEVICE+1
^DIC SP, MORE+1
HELP^DIE PRIORITY+1
^DIR PRIO+2, PRIO+6
^SROPRI 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 Surgical Priority:",!!
  • Line Location: BEG+0
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: PRIO+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PRIO+5
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 Surgical",!,"Priority, 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,?125,"PAGE:",!,?58,"SURGICAL SERVICE",?127,PAGE
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?47,"LIST OF OPERATIONS BY SURGICAL PRIORITY",?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",!,?90,"2ND ASST"
  • 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:
    • SP
    • MORE+1
Routine Call
  • DIE
  • Line Location:
    • PRIORITY+1
Routine Call
  • DIR
  • Line Location:
    • PRIO+2
    • PRIO+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRF - [#130] HELP^DIE

Label References

Name Line Occurrences
DEVICE SORT+3
END DATE, PRIO+6, SORT, SER, SER+3, DEVICE, DEVICE+1
MORE MORE+1
PRIORITY PRIO+4
RET RET+1, HDR+2
SER SER+2
SORT PRIO+3, 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 SP!*, MORE+1!*
DIC("A" SP*, MORE+1*
DIC("S" SP*, MORE+1*
DIC(0 SP*, MORE+1*
DIR PRIO!, PRIO+2!, PRIO+5!, PRIO+6!
DIR("?" PRIO+1*, PRIO+6*
DIR("A" PRIO*, PRIO+5*, PRIO+6*
DIR("B" PRIO*, PRIO+6*
DIR(0 PRIO*, PRIO+6*
DTIME SORT, SER, END, RET
>> DTOUT PRIO+2, PRIO+6
>> DUOUT PRIO+2, PRIO+6
I PRIORITY+1~, PRIORITY+2*, HDR+9*
IO("Q" DEVICE!, DEVICE+1!
IOF BEG, PRIO, END+1, HDR+3
IOP DEVICE!
IOST END, HDR+2
J PRIORITY+1~, PRIORITY+2*
>> PAGE HDR+3, HDR+11*
POP DEVICE!
SRC PRIORITY+1~, PRIORITY+2*
>> SRCODE( PRIO+4, PRIO+5, PRIORITY+2*, HDR+7
>> SRCODE("ZZ" PRIORITY+3*
>> SRED DATE
>> SRFRTO HDR+5
>> SRHALT HDR+1
>> SRHDR HDR+2, HDR+11*
>> SRINST HDR+3
>> SRL( PRIO+4*, PRIO+7
SRLIST PRIORITY+1~
SRLIST("DIHELP" PRIORITY+2
>> SRORD BEG*, SORT+3*
SRP PRIORITY+1~, PRIORITY+2*, HDR+6*, HDR+7, HDR+8
>> SRPRINT HDR+4
>> SRPRIO PRIO+3*, PRIO+7*, HDR+6
>> SRQ BEG*, DATE, PRIO+2*, PRIO+6*, 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 PRIO+4*, PRIO+5*, PRIORITY+1~, PRIORITY+2*, END*, RET*, RET+1
Y PRIO+3, PRIO+7, PRIORITY+1~, PRIORITY+2*, SP, SP+1, MORE+1
>> Z PRIO+4*, PRIO+5*, PRIO+6
>> ZTDESC DEVICE+1*
>> ZTQUEUED HDR+1
>> ZTRTN DEVICE+1*
>> ZTSAVE("SRED" DEVICE+1*
>> ZTSAVE("SRORD" DEVICE+1*
>> ZTSAVE("SRPRIO" 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 |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All