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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: SROWL

Package: Surgery

Routine: SROWL


Information

SROWL ;B'HAM ISC/MAM - ENTER PATIENT ON WAITING LIST ; 4/18/07 11:55am

Source Information

Source file <SROWL.m>

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA Fileman 7 NOW^%DTC  ^DIC  FILE^DICN  ^DIE  ^DIK  (D,GETS)^DIQ  ^DIR  
Surgery 2 WL^SROPCE1  ^SRSKILL  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Surgery 1 SROW-ENTER  

Entry Points

Name Comments DBIA/ICR reference
PRMPT
END
HELP
CHK ; check for existing entries for a patient
LIST ; list existing procedures for specialty selected
REFPHY
DEL
ENTER ; enter a patient on the waiting list
PRESS
PAT
LOOP ; break procedure if greater than 36 characters
OP

External References

Name Field # of Occurrence
NOW^%DTC OP+2
^DIC ENTER+1, PAT, PRMPT+10
FILE^DICN OP+3
^DIE OP+4
^DIK DEL
D^DIQ PAT+1, LIST+1
GETS^DIQ PRMPT+17
^DIR OP, PRESS
WL^SROPCE1 OP+5
^SRSKILL END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ENTER+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: PAT+0
Function Call: WRITE
  • Prompt: !!,"The records show that "_SRNM_" died on "_Y_".",!
  • Line Location: PAT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: OP+0
Function Call: WRITE
  • Prompt: !!,"No action taken."
  • Line Location: OP+0
Function Call: WRITE
  • Prompt: !
  • Line Location: OP+2
Function Call: WRITE
  • Prompt: @IOF,!,SRNM_" has been entered on the waiting list",!,"for "_SRSSNM
  • Line Location: OP+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PRESS+0
Function Call: WRITE
  • Prompt: @IOF,!,"Classification information is incomplete. No action taken."
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !!,"Enter RETURN if you want to continue entering a new procedure on the waiting",!,"list for "_SRNM_". If the procedure you are about to enter appears",!,"above, enter 'NO' to quit this option."
  • Line Location: HELP+0
Function Call: WRITE
  • Prompt: !!,"Press RETURN to continue "
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: @IOF,!,"Procedure(s) already entered for "_SRNM,!,"on the Waiting List for "_SRSSNM,!
  • Line Location: CHK+1
Function Call: READ
  • Timeout: DTIME
  • Variable: ECYN
  • Line Location: CHK+3
Function Call: WRITE
  • Prompt: !,SRNM,?40,"Date Entered on List:",?66,SRDT,!,?3,SROP(1),?40,"Tentative Operation Date: ",?66,SROPDT
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !,?3,SROP(2)
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+5
Function Call: READ
  • Prompt: "Is this a VA Physician from this facility? (Y/N): <Y> "
  • Formatting: !
  • Timeout: DTIME
  • Variable: SRCONT
  • Line Location: PRMPT+0
Routine Call
  • DIE
  • Line Location:
    • OP+4
Routine Call
  • DIC
  • Line Location:
    • ENTER+1
    • PAT
    • PRMPT+10
Routine Call
  • DIR
  • Line Location:
    • OP
    • PRESS

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SRO(133.8 - [#133.8] Classic Fileman Calls
^VA(200 - [#200] Classic Fileman Calls,  GETS^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] PAT+1
^SRO(133.8 - [#133.8] PAT+2, CHK+2, LIST+1
^SRO(137.45 - [#137.45] ENTER+2

Label References

Name Line Occurrences
CHK PAT+2, CHK+5
DEL OP+5
END ENTER+1, PAT, PAT+2, OP, DEL+1
HELP CHK+5
LIST CHK+2
LOOP LIST+2
PAT PAT+1
PRESS END
PRMPT PRMPT+1

Naked Globals

Name Field # of Occurrence
^( PAT+1
^(0 LIST+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % OP+2
>> D0 PRMPT+7, PRMPT+12*
DA OP+3!, OP+4!*, DEL*, PRMPT+7, PRMPT+12*
DA(1 OP+3*, DEL*
DD OP+3!
>> DFN PAT+1*, PAT+2, OP+3, CHK+2
DIC ENTER+1!*, PAT*!, OP+3!*, PRMPT+7, PRMPT+9*, PRMPT+12*
DIC("A" ENTER+1*, PAT*
DIC("B" PRMPT+9*
DIC("DR" PRMPT+30*
DIC(0 ENTER+1*, PAT*, OP+3*, PRMPT+9*, PRMPT+31*
DIE OP+4!*
>> DIK DEL*
DIR OP!, PRESS!
DIR("A" OP*, PRESS*
DIR(0 OP*, PRESS*
DLAYGO ENTER+1*!
DO OP+3!, PRMPT+7, PRMPT+12*
DR OP+3!, OP+4!*, PRMPT+7, PRMPT+12*
DR(2 OP+4*
DR(3 OP+4*
DTIME HELP+1, CHK+3, PRMPT
>> DTOUT OP
>> DUOUT OP
>> ECYN PAT+2, CHK+3*, CHK+4*, CHK+5
IOF ENTER+1, OP+6, END, DEL+1, CHK+1
>> LOOP LOOP+1*
>> M LIST+2*, LOOP+1
MM LIST+2!, LOOP+1*
MMM LIST+2!, LOOP+1*
SRCONT REFPHY+1~, REFPHY+2*, PRMPT*, PRMPT+1, PRMPT+3*, PRMPT+4, PRMPT+5, PRMPT+13!
SRDABAK PRMPT+7*, PRMPT+12, PRMPT+13!
SRDEMO REFPHY+1~
SRDEMO(1 PRMPT+20*, PRMPT+21*, PRMPT+22*, PRMPT+23*, PRMPT+30
SRDEMO(2 PRMPT+24*, PRMPT+30
SRDEMO(200 PRMPT+19, PRMPT+20, PRMPT+21, PRMPT+22, PRMPT+24, PRMPT+25, PRMPT+26, PRMPT+27
SRDEMO(3 PRMPT+25*, PRMPT+30
SRDEMO(4 PRMPT+26*, PRMPT+30
SRDEMO(5 PRMPT+27*, PRMPT+30
SRDICBAK PRMPT+7*, PRMPT+12, PRMPT+13!
SRDOBAK PRMPT+7*, PRMPT+12, PRMPT+13!
SRDRBAK PRMPT+7*, PRMPT+12, PRMPT+13!
>> SRDT LIST+1*, LIST+3
SRDZERO PRMPT+7*, PRMPT+12, PRMPT+13!
>> SRNM PAT+1*, OP+4, OP+6, HELP, CHK+1, CHK+3, LIST+3
>> SRNPREC PRMPT+15*, PRMPT+17, PRMPT+19, PRMPT+20, PRMPT+21, PRMPT+22, PRMPT+24, PRMPT+25, PRMPT+26, PRMPT+27
>> SROFN OP+3*, DEL, CHK+2*, LIST+1
SROP LIST+2!
SROP( LOOP+1*
SROP(1 LIST+2*, LIST+3
SROP(2 LIST+4
>> SROPDT LIST+1*, LIST+3
>> SROPER OP+1*, OP+4, LIST+1*, LIST+2*, LOOP+1*
>> SRSDT OP+2*, OP+4
>> SRSOUT ENTER+1*, OP+5
>> SRSS ENTER+1*, PAT+2, OP+3, OP+4, DEL, CHK+2, LIST+1
>> SRSS1 ENTER+1*, ENTER+2
>> SRSSNM ENTER+2*, OP+6, CHK+1, CHK+3
SRXBAK PRMPT+7*, PRMPT+12, PRMPT+13!
U PRMPT+15, PRMPT+30
>> X OP+3*, HELP+1*, PRMPT+4*, PRMPT+7, PRMPT+9, PRMPT+12*, PRMPT+19*
Y ENTER+1, PAT, PAT+1*, OP+1, OP+3, LIST+1*, REFPHY+1~, PRMPT+14, PRMPT+15, PRMPT+30
Y(0 ENTER+1, PAT+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All