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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SROADOC1

Package: Surgery

Routine: SROADOC1


Information

SROADOC1 ;B'HAM ISC/MAM - ANESTHESIA PROV REPORT (CONT); [ 09/07/00 11:24 AM ]

Source Information

Source file <SROADOC1.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Surgery 6 CODES^SROADOC  TECH^SROPRIN  ^SROSTOP  $$NODATA^SROUTL0  ^SRSKILL  MINS^SRSUTL2  
Kernel 1 ^%ZISC  
Pharmacy Data Management 1 DATA^PSS50  
Registration 1 DEM^VADPT  
VA Fileman 1 Y^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROADOC  

Entry Points

Name Comments DBIA/ICR reference
PR
SET ; set and print results
END
HDR
OPS
AGENT
ASA
OTHER ; other operations
TECH
PRINT ; print results
PAGE
LOOP ; break procedure name if greater than 50 characters

External References

Name Field # of Occurrence
^%ZISC END+2
Y^DIQ ASA
DATA^PSS50 AGENT+1
CODES^SROADOC PRINT+1, PR+4
TECH^SROPRIN TECH
^SROSTOP HDR
$$NODATA^SROUTL0 PR+2
^SRSKILL END+2
MINS^SRSUTL2 SET+4
DEM^VADPT SET+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$E(SRSDATE,4,5)_"/"_$E(SRSDATE,6,7)_"/"_$E(SRSDATE,2,3),?10,$P(SRDPT,",")_", "_$E($P(SRDPT,",",2)),?26,SROPS(1),?76,SRSUP,?93,SRASA,?124,SRCODE
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,SRTN,?10,VA("PID")
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?26,SROPS(2)
  • Condition for execution: $D(SROPS(2))
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: ?76,SRREL,?93,$E(SRTECH,1,20),?120,SRANT_$S(SRANT:" MINS.",1:"")
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: "NON-O.R."
  • Condition for execution: $P($G(^SRF(SRTN,"NON")),"^")="Y"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?26,SROPS(3)
  • Condition for execution: $D(SROPS(3))
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?76,SRASS,?93,SRAGNT,!
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: ?26,SROPS(4),!
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?26,SROPS(5),!
  • Condition for execution: $D(SROPS(5))
  • Line Location: PRINT+5
Function Call: WRITE
  • Prompt: ?26,SROPS(6),!
  • Line Location: PRINT+5
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:",!,?53,"ANESTHESIA PROVIDER REPORT",?100,"DATE REVIEWED:"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?(132-$L(SRFRTO)\2),SRFRTO,?100,"DATE PRINTED: "_SRPRINT
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"DATE",?10,"PATIENT",?26,"PROCEDURE(S)",?77,"SUPERVISOR",?96,"ASA CLASS",?111,"LEVEL OF SUPERVISION",!,"CASE #",?12,"ID#",?76,"RELIEF ANESTH",?92,"PRINCIPAL TECHNIQUE",?113,"ELAPSED ANES TIME",!,?76,"ASST ANESTH"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: ?93,"ANESTHESIA AGENT",!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!,?2,"***** "_PRIN_" *****",!
  • Line Location: HDR+5
Function Call: READ
  • Timeout: DTIME
  • Variable: ASK
  • Line Location: PAGE+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: WRITE
  • Prompt: $$NODATA^SROUTL0()
  • Line Location: PR+2
Function Call: WRITE
  • Prompt: !
  • Line Location: PR+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130 ASA
^SRF - [#130] SET+1, SET+4, ASA, OPS, PRINT+4, OTHER+1, OTHER+2, AGENT
^SRO(132.95 - [#132.95] SET+3
^TMP("SR" END+1!, PR+1, PR+2
^TMP($J AGENT+1!
^VA(200 - [#200] SET+5, SET+6

Label References

Name Line Occurrences
AGENT TECH
END PR, PR+5
HDR PAGE+1, PR
LOOP OPS+1
OTHER OPS
PAGE PRINT+1
SET PR+1

Naked Globals

Name Field # of Occurrence
^( SET+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ASK PAGE*
>> C ASA*
>> DATE PR+1*
>> DFN SET+2*
DTIME PAGE, END
>> I PR+3*
IOF HDR+1, END+1, END+2
IOSL PRINT+1, PR+1, PR+3
IOST PAGE, END, END+1
>> 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
>> PAGE HDR+1, HDR+5*
>> PRIN HDR+5, PR*, PR+1*
>> S( SET+1*, SET+2
>> S(0 SET+1*, SET+2
>> SRAGNT TECH*, PRINT+4, AGENT*, AGENT+1*
>> SRANE1 SET+4*
>> SRANE2 SET+4*
>> SRANT SET+4*, PRINT+3
>> SRASA ASA*, PRINT+2
>> SRASS SET+2*, SET+6*, PRINT+4
>> SRCODE SET+2*, SET+3*, PRINT+2
>> SRDPT SET+2*, PRINT+2
>> SRF PRINT+1, HDR*, PAGE*, END, PR+1, PR+4
>> SRFRTO HDR+2
>> SRHALT HDR
>> SRINST HDR+1
>> SRLONG OTHER+1*, OTHER+2
>> SROPER OPS*, OPS+1*, OTHER+1, OTHER+3*, LOOP+1*
SROPERS OPS!, OTHER+1*, OTHER+2*, OTHER+3
SROPS OPS+1!
SROPS( LOOP+1*
SROPS(1 OPS+1*, PRINT+2
SROPS(2 PRINT+3
SROPS(3 PRINT+4
SROPS(4 PRINT+5
SROPS(5 PRINT+5
SROPS(6 PRINT+5
>> SRPRINT HDR+2
>> SRREL SET+2*, SET+5*, PRINT+3
>> SRSDATE SET+2*, SET+7, PRINT+2
>> SRSDT SET+7*
>> SRSOUT PR*
>> SRSSN SET+2*
>> SRSUP SET+2*, SET+5*, PRINT+2
>> SRT AGENT
>> SRTECH PRINT+3
SRTN SET+1, SET+4, ASA, OPS, PRINT+3, PRINT+4, END+2!, OTHER+1, OTHER+2, AGENT
, PR+1*
>> SRZ TECH
>> VA("PID" SET+2, PRINT+3
>> VADM(1 SET+2
>> X SET+4*, END*
>> X1 SET+4*
>> Y ASA*
>> ZTQUEUED HDR, END+1
>> ZTREQ END+1*
>> ZTSTOP END+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All