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

Package: Surgery

Routine: SROASSE


Information

SROASSE ;B'HAM ISC/MAM - SELECT ASSESSMENT ; 27 FEB 1992 11:00 am

Source Information

Source file <SROASSE.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Registration 1 DEM^VADPT  
Surgery 1 ^SRSKILL  
VA FileMan 1 ^DIC  

Entry Points

Name Comments DBIA/ICR reference
START ; start display
OPT
LIST ; list assessments
DISP
CASE
OTHER ; other operations
LOOP ; break procedures
END
SEL ; select case

External References

Name Field # of Occurrence
^DIC SROASSE+2
^SRSKILL END
DEM^VADPT SROASSE+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: SROASSE+2
Function Call: WRITE
  • Prompt: @IOF,!,?1,SRANM
  • Line Location: START+1
Function Call: WRITE
  • Prompt: " * DIED "_$E(SRDT,4,5)_"/"_$E(SRDT,6,7)_"/"_$E(SRDT,2,3)_" *"
  • Line Location: START+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+3
Function Call: WRITE
  • Prompt: !!,"There are no Surgery Risk Assessments entered for "_VADM(1)_"."
  • Line Location: START+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !!,"Enter the number of the desired assessment."
  • Line Location: OPT+1
Function Call: WRITE
  • Prompt: " Select '"_CNT_"' to create a",!,"new risk assessment entry."
  • Condition for execution: $D(SRNEW)
  • Line Location: OPT+1
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID"),!
  • Line Location: LIST+1
Function Call: WRITE
  • Prompt: CNT_". "
  • Line Location: DISP+5
Function Call: WRITE
  • Prompt: $E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3),?14,SROPS(1)
  • Line Location: CASE+0
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+0
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+0
Function Call: WRITE
  • Prompt: !,?14,SROPS(4)
  • Line Location: CASE+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: CASE+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID"),!!
  • Line Location: SEL+2
Function Call: WRITE
  • Prompt: !!,"Please enter the number corresponding to the Surgical Case you want to edit.",!,"If the case desired does not appear, enter <RET> to continue listing",!,"additional cases."
  • Line Location: SEL+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+4
Routine Call
  • DIC
  • Line Location:
    • SROASSE+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] START+2
^SRF - [#130] LIST+2, DISPDISP+1, OTHER+1, OTHER+2
^SRF("ADT" START+3

Label References

Name Line Occurrences
END SROASSE+2, START+1, OPT
LIST START+3
LOOP DISP+4
OPT OPT+1
OTHER DISP
SEL LIST+1

Naked Globals

Name Field # of Occurrence
^( START+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT START+3*, OPT+1, LIST+1*, LIST+2*, DISP+5, CASE+3
>> DFN SROASSE+3*, START+2, START+3
DIC SROASSE+2!*
DIC("A" SROASSE+2*
DIC(0 SROASSE+2*
DTIME OPTSEL+1, SEL+4
>> I START+3*, DISP*
IOF START+1, LIST+1, ENDSEL+2
IOSL LIST+1
>> LOOP LOOP+1*
>> M DISP+4*, LOOP+1
MM DISP+4!, LOOP+1*
MMM DISP+4!, LOOP+1*
>> SR("RA" DISP+1*, DISP+2
>> SRANM SROASSE+3*, START+1
>> SRASS START+3*, LIST+1*, LIST+2, DISPDISP+1, CASE+3, OTHER+1, OTHER+2
>> SRBACK LIST+1*, SEL+4*
>> SRCASE( OPT+1, OPT+2, CASE+3*, SEL+3, SEL+4, SEL+5
>> SRCASE(1 START+5, LIST+1
>> SRDT START+2*, START+3*, LIST+1*, CASE+3
>> SRLONG OTHER+1*, OTHER+2
>> SRNEW OPT+1
>> SROPER DISP*, DISP+3*, DISP+4*, OTHER+1, OTHER+3*, LOOP+1*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
SROPS DISP+4!
SROPS( LOOP+1*
SROPS(1 DISP+4*, CASE
SROPS(2 CASE
SROPS(3 CASE
SROPS(4 CASE+1
>> SROTHER DISP*, OTHER+1*, OTHER+2
>> SRSDATE LIST+2*, CASE
>> SRSOUT SROASSE+2*, START+1, START+3, OPT*, LIST+1, ENDSEL+1*, SEL+4*
SRTN SROASSE+2!, START+3, START+4, OPT+2*, LIST+1, DISP+5, CASE+2, SEL+5*
>> STATUS DISP+1*, DISP+2*, DISP+3
>> VA("PID" SROASSE+3, LIST+1, SEL+2
>> VADM(1 SROASSE+3, START+5, LIST+1, SEL+2
>> X OPT*, OPT+1, OPT+2, SEL+1*, SEL+2, SEL+3, SEL+4*, SEL+5
>> Y SROASSE+2, SROASSE+3
>> Z DISP+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All