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

Package: Surgery

Routine: SROPS1


Information

SROPS1 ;BIR/ADM - SELECT CASE (INCLUDING NON-OR) ;08/23/05

Source Information

Source file <SROPS1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
Surgery 2 ^SROP1  ^SRSKILL  
VA Fileman 2 ^DIC  ^DIR  
Registration 1 DEM^VADPT  

Caller Graph

Caller Graph Total: 6

Package Total Caller Graph
Surgery 6 SRCODING EDIT  SRCODING NURSE REPORT  SRCODING OP REPORT  SRCODING UPDATE/VERIFY MENU  SROCD  SROVER2  

Entry Points

Name Comments DBIA/ICR reference
OPT
CASE
ADT
END
HDR ; print heading
LOCK ; case locked?
LIST ; list cases
OTHER ; other operations
SEL ; select case
LOOP ; break procedure

External References

Name Field # of Occurrence
^DIC SROPS1+6
^DIR SEL+1, SEL+4
^SROP1 CASE+3
^SRSKILL END
DEM^VADPT SROPS1+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: SROPS1+6
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ADT+2
Function Call: WRITE
  • Prompt: !!,"There are no cases entered for "_VADM(1)_".",!!,"Press RETURN to continue "
  • Line Location: ADT+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: OPT+0
Function Call: WRITE
  • Prompt: !!,"Enter the number of the desired operation."
  • Line Location: OPT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !,CNT_". "
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: $E(SRSDATE,4,5)_"-"_$E(SRSDATE,6,7)_"-"_$E(SRSDATE,2,3)
  • Line Location: CASE+0
Function Call: WRITE
  • Prompt: ?14,SROPS(1)
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: !,?14,SROPS(2)
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: !,?14,SROPS(4)
  • Condition for execution: $D(SROPS(4))
  • Line Location: CASE+4
Function Call: WRITE
  • Prompt: !
  • Line Location: CASE+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SEL+3
Function Call: WRITE
  • Prompt: @IOF,!,?1,VADM(1)_" "_VA("PID")
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: " * DIED "_$E(X,4,5)_"/"_$E(X,6,7)_"/"_$E(X,2,3)_" *"
  • Condition for execution: X
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+1
Routine Call
  • DIC
  • Line Location:
    • SROPS1+6
Routine Call
  • DIR
  • Line Location:
    • SEL+1
    • SEL+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRF - [#130] LIST+1, LIST+2, LIST+3, LIST+4, LIST+6, CASE+1, LOCK+1, OTHER+1, OTHER+2
^SRF("ADT" ADT

Label References

Name Line Occurrences
ADT ADT+1
END SROPS1+6, ADT+2, OPT
HDR SROPS1+7, LIST+5
LIST ADT
LOCK CASE+3
LOOP CASE+3
OPT OPT+1
OTHER CASE+1
SEL LIST+5

Naked Globals

Name Field # of Occurrence
^(37 LIST+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT ADT*, LIST+6*, CASE+5
>> DFN SROPS1+7*, ADT
DIC SROPS1+6!*
DIC("A" SROPS1+6*
DIC(0 SROPS1+6*
DIR SEL+1!, SEL+4!
DIR("A" SEL+1*, SEL+3*, SEL+4*
DIR(0 SEL+1*
DTIME ADT+2, OPT
>> DTOUT SEL+1, SEL+4
>> DUOUT SEL+1, SEL+4
>> I CASE+1*
IOF END, HDR+1
IOSL LIST+5
>> LOOP LOOP+1*
>> M CASE+3*, LOOP+1
MM CASE+3!, LOOP+1*
MMM CASE+3!, LOOP+1*
>> SRBACK ADT*, ADT+1, LIST+5*, SEL+4*
>> SRCASE( OPT+1, OPT+2, CASE+5*, SEL+3, SEL+4, SEL+5
>> SRCASE(1 ADT+2
>> SRDT ADT*, CASE+5
>> SRLONG OTHER+1*, OTHER+2
>> SRNON LIST+1*, LIST+2, LIST+3, CASE+2, CASE+3
>> SROP ADT*, LIST+1, LIST+2, LIST+3, LIST+4, LIST+6, CASE+1, CASE+5, OTHER+1, OTHER+2
>> SROPER CASE+1*, CASE+2*, CASE+3*, LOCK+1*, OTHER+1, OTHER+3*, LOOP+1*
>> SROPERS OTHER+1*, OTHER+2*, OTHER+3
SROPS CASE+3!
SROPS( LOOP+1*
SROPS(1 CASE+3*, CASE+4
SROPS(2 CASE+4
SROPS(3 CASE+4
SROPS(4 CASE+4
>> SROTHER CASE+1*, OTHER+1*, OTHER+2
>> SRSDATE LIST+6*, CASE
>> SRSOUT SROPS1+6*, ADT, OPT*, LIST+5, SEL+1*, SEL+4*
SRTN ADT, ADT+1, OPT+2*, END!, LIST+5, SEL+5*, LOCK+1
>> VA("PID" HDR+1
>> VADM(1 ADT+2, HDR+1
>> VADM(6 HDR+1
>> X ADT+2*, OPT*, OPT+1, OPT+2, SEL+2, SEL+3, SEL+4, SEL+5, HDR+1*
>> Y SROPS1+6, SROPS1+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All