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

Package: Surgery

Routine: SROANP1


Information

SROANP1 ;B'HAM ISC/MAM - LIST OF ANESTHETIC PROCEDURES ; [ 09/22/98 11:28 AM ]

Source Information

Source file <SROANP1.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Surgery 4 BEG^SROANP  ^SROSTOP  DATE^SROUTL  ^SRSKILL  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  

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

Package Total Caller Graph
Surgery 1 SROANP  

Entry Points

Name Comments DBIA/ICR reference
EN ;
ASK
EN1
END
HELP
HDR

External References

Name Field # of Occurrence
^%ZIS ASK+4
^%ZISC END+2
^%ZTLOAD ASK+5
BEG^SROANP EN1
^SROSTOP HDR
DATE^SROUTL EN+2
^SRSKILL END+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!,"List of Anesthetic Procedures"
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: @IOF,!,"Print List of Anesthetic Procedures for",!!,"1. O.R. Surgical Procedures.",!,"2. Non-O.R. Procedures.",!,"3. Both O.R. Surgical Procedures and Non-O.R. Procedures."
  • Line Location: ASK+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: !!,"This report is designed to use a 132 column format.",!
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: !!,"Enter '1' or press <RET> to print the List of Anesthetic Procedures",!,"performed in the OR with a surgical procedure. Enter '2' to print the"
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !,"List of Anesthetic Procedures performed as or with a Non-OR Procedure.",!,"Enter '3' to print the List of Anesthetic Procedures including both of",!,"the above categories of procedures."
  • Line Location: HELP+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?(132-$L(SRINST)\2),SRINST,?120,"PAGE: "_PAGE,!,?58,"SURGICAL SERVICE",?100,"REVIEWED BY:",!,?51,"LIST OF ANESTHETIC PROCEDURES",?100,"DATE REVIEWED:"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,$S(SRFLG=1:"O.R. SURGICAL PROCEDURES",SRFLG=2:"NON-O.R. PROCEDURES",1:"O.R. SURGICAL AND NON-O.R. PROCEDURES"),?(132-$L(SRFRTO)\2),SRFRTO,?100,SRPRINT
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,?2,"DATE",?18,"PATIENT",?45,"PRINCIPAL DIAGNOSIS",?97,"PRIN ANESTHETIST",?117,"START TIME",!,?2,"CASE #",?20,"ID#",?45,"PROCEDURE(S)",?97,"ANESTH TECHNIQUE",?118,"END TIME"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,?17,"ASA CLASS",?97,"ANESTH AGENT",?118,"ELAPSED",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+4
Routine Call
  • %ZIS
  • Line Location:
    • ASK+4

Label References

Name Line Occurrences
ASK ASK+2
END EN+2, ASK+1, ASK+2, ASK+4, ASK+5
HELP ASK+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS ASK+4!*
%ZIS("A" ASK+4*
DTIME ASK+1, END+1, HELP+2
IO("Q" ASK+4!, ASK+5!
IOF EN+1, ASKENDEND+2, HDR+1
IOM HDR+4
IOP ASK+4!
IOST ENDEND+1
>> LINE HDR+4*
>> PAGE HDR+1, HDR+5*
POP ASK+4!
>> SRED EN+2
>> SRF EN+1*, END+1, HDR*
>> SRFLG EN+1*, ASK+3*, HDR+2
>> SRFRTO HDR+2
>> SRHALT HDR
>> SRINST HDR+1
>> SRPRINT HDR+2
>> SRSD EN+2
>> SRSOUT EN+1*, EN+2, ASK+2, HELP+2*
SRTN END+2!
>> X ASK+1*, ASK+2*, ASK+3, END+1*, HELP+2*
>> ZTDESC ASK+5*
>> ZTQUEUED ENDHDR
>> ZTREQ END*
>> ZTRTN ASK+5*
>> ZTSAVE("SRED" ASK+5*
>> ZTSAVE("SRFLG" ASK+5*
>> ZTSAVE("SRSD" ASK+5*
>> ZTSAVE("SRSITE*" ASK+5*
>> ZTSTOP END
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables  | All