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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: SROA38

Package: Surgery

Routine: SROA38


Information

SROA38 ;BIR/ADM-Environment Check for SR*3*38 ; [ 04/12/95 10:16 AM ]

Source Information

Source file <SROA38.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA FileMan 1 ^DIR  

Entry Points

Name Comments DBIA/ICR reference
ANES ; check anesthesia techniques
CHOOSE

External References

Name Field # of Occurrence
^DIR ANES+18, CHOOSE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This patch installation process will convert each anesthesia technique",!,"associated with each case in the SURGERY file (#130) to its corresponding"
  • Line Location: ANES+4
Function Call: WRITE
  • Prompt: !,"technique in the American Board of Anesthesiologists (ABA) universal",!,"list of techniques as described below.",!
  • Line Location: ANES+5
Function Call: WRITE
  • Prompt: !,?5,"INHALATION --> GENERAL"
  • Line Location: ANES+6
Function Call: WRITE
  • Prompt: !,?5,"INTRAVENOUS (MAC = NO) --> GENERAL"
  • Line Location: ANES+7
Function Call: WRITE
  • Prompt: !,?5,"INTRAVENOUS (MAC = YES) --> MAC"
  • Line Location: ANES+8
Function Call: WRITE
  • Prompt: !,?5,"SPINAL --> SPINAL"
  • Line Location: ANES+9
Function Call: WRITE
  • Prompt: !,?5,"EPIDURAL --> EPIDURAL"
  • Line Location: ANES+10
Function Call: WRITE
  • Prompt: !,?5,"INFILTRATION, NERVE BLOCK, \"
  • Line Location: ANES+11
Function Call: WRITE
  • Prompt: !,?5," FIELD BLOCK, TOPICAL, >--> OTHER (ANESTHETIST CATEGORY = A or N)"
  • Line Location: ANES+12
Function Call: WRITE
  • Prompt: !,?5," OTHER / or LOCAL (ANESTHETIST CATEGORY = O)"
  • Line Location: ANES+13
Function Call: WRITE
  • Prompt: !!,"Any non-standard techniques encountered will be converted to OTHER or LOCAL",!,"depending upon the information in the ANESTHETIST CATEGORY field."
  • Line Location: ANES+16
Function Call: WRITE
  • Prompt: !
  • Line Location: ANES+17
Function Call: WRITE
  • Prompt: !
  • Line Location: ANES+19
Function Call: WRITE
  • Prompt: !!!,"Your file contains the non-standard technique: "_SRW,!!,"You may convert this technique to a standard ABA technique by entering a",!,"selection below, or press RETURN to convert to OTHER or LOCAL, depending"
  • Line Location: CHOOSE+0
Function Call: WRITE
  • Prompt: !,"upon the information in the ANESTHETIST CATEGORY field.",!!,"Convert non-standard technique "_SRW_" to which ABA technique?"
  • Line Location: CHOOSE+1
Function Call: WRITE
  • Prompt: !!,SRW_" will be converted to OTHER or LOCAL."
  • Line Location: CHOOSE+3
Routine Call
  • DIR
  • Line Location:
    • ANES+18
    • CHOOSE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130.06 ANES+1

Label References

Name Line Occurrences
CHOOSE ANES+15

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIFQ ANES+14!, ANES+18!
DIR ANES+17!, ANES+18!, CHOOSE+2!
DIR("?" ANES+17*
DIR("A" ANES+18*, CHOOSE+2*
DIR(0 ANES+18*, CHOOSE+2*
>> DTOUT ANES+18, CHOOSE+2
>> DUOUT ANES+18, CHOOSE+2
>> I ANES+15*
SR38DONE ANES+1*, ANES+2*, ANES+18!
SRA ANES+14*, ANES+15, ANES+16, ANES+18!
SRATECH ANES+1!
SRATECH( CHOOSE+4*
SRNON ANES+3*, ANES+14*, ANES+18!
SRSOUT ANES+3*, ANES+14, ANES+15, ANES+18!, CHOOSE+2*
>> SRW ANES+15*, CHOOSE, CHOOSE+1, CHOOSE+3
SRX ANES+1*, ANES+2, ANES+14, ANES+15, ANES+16, ANES+18!
SRX1 ANES+1*, ANES+2, ANES+18!
>> SRY ANES+15*
>> SRZ ANES+15*, CHOOSE+4
X ANES+18!
Y ANES+18!, CHOOSE+3, CHOOSE+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All