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

Package: Event Capture

Routine: ECBEN1B


Information

ECBEN1B ;BIR/MAM,JPW-Batch Enter Procedures (cont'd) ;1 May 96

Source Information

Source file <ECBEN1B.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Event Capture 4 ^ECBEN2A  PCEQST^ECBEN2U  DSP1416^ECPRVMUT  ($$CHKDSS,$$ELGLST,$$INOUTPT,$$MULTELG,DSPSTAT,INOUTERR)^ECUTL0  
VA FileMan 2 ^DIC  ^DIR  
Registration 1 2^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Event Capture 1 ECBEN1A  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry pt
PATS ; get patients
LIST ; list patients
ADD
DEL ; delete patients from list
HDR ;
NOBODY ;No patients selected
ADCAT ;add category/procedures for patients
KILL ;kill arrays
DIAG ;ask dx, etc. questions
SETDX ;set dx, etc. in pat array
DELPT(CNT) ;deselect patient due to missing required data

External References

Name Field # of Occurrence
^DIC PATS+3
^DIR DELPT+6
^ECBEN2A PATS+8, ADCAT+1
PCEQST^ECBEN2U DIAG+15
DSP1416^ECPRVMUT HDR+5
$$CHKDSS^ECUTL0 DIAG+7
$$ELGLST^ECUTL0 DIAG+8
$$INOUTPT^ECUTL0 DIAG+4
$$MULTELG^ECUTL0 DIAG+8
DSPSTAT^ECUTL0 DIAG+11
INOUTERR^ECUTL0 DIAG+5
2^VADPT PATS+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PATS+1
Function Call: WRITE
  • Prompt: !!,"Patient already selected. Please select another patient.",!
  • Line Location: PATS+10
Function Call: WRITE
  • Prompt: !!,"WARNING "_"[PATIENT DIED ON "_$P(VADM(6),U,2)_"] ",!!
  • Line Location: PATS+15
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I#2
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: ?40
  • Condition for execution: I#2=0
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: I_". "_$P(ECPT(I),"^",2)
  • Line Location: LIST+2
Function Call: READ
  • Variable: ECYN
  • Timeout: DTIME
  • Line Location: LIST+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: LIST+4
Function Call: WRITE
  • Prompt: !!,"Enter <RET> if this list is complete, or NO to add or delete",!,"patients on the list.",!!,"Press <RET> to continue "
  • Line Location: LIST+4
Function Call: READ
  • Variable: ECADD
  • Timeout: DTIME
  • Line Location: ADD+0
Function Call: WRITE
  • Prompt: !!,"Enter <RET> to make additions to the list, or ""D"" to delete a ",!,"patient from the list."
  • Line Location: ADD+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DEL+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: !!,"Select the number corresponding to the patient that you would like",!,"to remove from the list.",!!,"Press <RET> to continue "
  • Line Location: DEL+4
Function Call: WRITE
  • Prompt: !!,"Patient deleted.",!!,"Press <RET> to continue "
  • Line Location: DEL+7
Function Call: WRITE
  • Prompt: @IOF,!,"Location: "_ECLN
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"DSS Unit: "_ECDN
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Ordering Section: ",ECON
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"Procedure Date: ",ECDATE,!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,"You cannot delete patients when your patient list is empty."
  • Line Location: NOBODY+1
Function Call: WRITE
  • Prompt: !!,"You have selected no patients."
  • Line Location: NOBODY+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you wish to quit? Y//"
  • Variable: X
  • Timeout: DTIME
  • Line Location: NOBODY+3
Function Call: WRITE
  • Prompt: !,"Answer N to continue selection, or enter return to quit",!
  • Line Location: NOBODY+5
Function Call: WRITE
  • Prompt: !,"Required data missing.",!,"Patient deselected...",!
  • Line Location: DELPT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: DELPT+7
Routine Call
  • DIC
  • Line Location:
    • PATS+3
Routine Call
  • DIR
  • Line Location:
    • DELPT+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SC - [#44] SETDX+1
^TMP("ECPRO" KILL+2!

Label References

Name Line Occurrences
ADD ADD+1
DEL DEL+4
DELPT DIAG+16
DIAG PATS+17
HDR EN+1, PATS+9
KILL PATS+9
LIST PATS+7, LIST+4, DEL+1, DEL+4, DEL+8
NOBODY LIST+5, DEL+1, NOBODY+5
PATS PATS+6, PATS+11, PATS+12, PATS+18
SETDX DIAG+14

Naked Globals

Name Field # of Occurrence
^(0 SETDX+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT EN+2*, PATS+5, PATS+17*, DEL+5, DEL+6*, DIAG+2, DIAG+4, DIAG+8, DIAG+16, SETDX+2
, SETDX+3, DELPT~, DELPT+2*
>> CNT1 PATS+17*
>> DFN PATS+13*
DIC PATS+2!*, PATS+3!
DIC("A" PATS+2*
DIC(0 PATS+2*
DIR DELPT+1~
DIR("A" DELPT+5*
DIR(0 DELPT+5*
DTIME PATS+16, LIST+3, LIST+4, ADD, DEL+2, DEL+4, DEL+7, NOBODY+3
>> DTOUT PATS+4
DUOUT PATS+2!, PATS+4
EC4 KILL+2!, DIAG+12*, SETDX+1, SETDX+2
EC4N KILL+2!, DIAG+12*, SETDX+1*
ECA KILL+1!
ECADD PATS+1!, PATS+7, LIST+1!, ADD*, ADD+1*, ADD+2, NOBODY+1, NOBODY+2
ECAO KILL+2!, DIAG+1*, SETDX+2
ECC KILL+1!
ECCN KILL+1!
ECCV KILL+3!, DIAG+1*, SETDX+2
>> ECD DIAG+7
>> ECDATE HDR+4
>> ECDFN DIAG+2*
>> ECDN HDR+2
>> ECDT DIAG+4
ECDX KILL+2!, DIAG+1*, SETDX+2
ECDXIEN KILL+3!
ECDXN KILL+2!, DIAG+1*
ECDXS KILL+3!, SETDX+3!
>> ECELIG DIAG+8*, DIAG+9*
ECHNC KILL+3!, DIAG+1*, SETDX+2
ECHOICE PATS+8!, KILL+1!
ECID KILL+3!, DIAG+13*, SETDX+1*, SETDX+2
ECINP KILL+2!, DIAG+1*, SETDX+2
ECIR KILL+2!, DIAG+1*, SETDX+2
ECJLP KILL+1!
>> ECLN HDR+1
>> ECMORE DEL+4*
ECMST KILL+3!, DIAG+1*, SETDX+2
>> ECON HDR+3
>> ECOUT PATS+1, PATS+4*, PATS+5*, PATS+7, PATS+9, LIST+3*, LIST+5, ADD*, DEL+1, DEL+2*
, DEL+4, NOBODY+3*, NOBODY+4*, ADCAT+1, KILL+4*, DIAG+16, DELPT+4*
ECP KILL+1!
>> ECPCE DIAG+14
ECPN KILL+1!
>> ECPRVARY HDR+5
ECPT PATS+2, KILL+1!
ECPT( PATS+10, PATS+17*, LIST+2, DEL+4, DEL+5*, DEL+6!, DIAG+2, DIAG+4, DIAG+8, SETDX+2*
, SETDX+3*, DELPT+2!
ECPT(0 PATS+7, PATS+10, LIST+5
ECPT(1 DEL+1
>> ECPTSTAT DIAG+4*, DIAG+5, DIAG+7, DIAG+11, SETDX+2
ECSC KILL+2!, DIAG+1*, SETDX+2
ECSHAD KILL+3!, DIAG+2*, SETDX+2
>> ECTWO PATS+8*
ECUP PATS+12~, PATS+16*
ECV KILL+1!
ECVST KILL+2!, DIAG+1*, SETDX+2
>> ECYN LIST+3*, LIST+4*, LIST+5
ECZEC KILL+2!, DIAG+1*, SETDX+2
I LIST+2*, DEL+5*, DEL+6!
IOF LIST+2, HDR+1
>> JJ PATS+10*
NATN KILL+1!
NODE KILL+1!
>> OK PATS+3*, PATS+10*, PATS+11
SYN KILL+1!
SYS KILL+1!
U PATS+15, DIAG+2
>> VADM(6 PATS+13, PATS+15
VAEL DIAG+10!
VAEL(1 DIAG+9
VOL KILL+1!
>> X LIST+4*, DEL+2*, DEL+3, DEL+4*, DEL+5, DEL+7*, NOBODY+3*, NOBODY+4*, NOBODY+5
Y PATS+5, PATS+6, PATS+10, PATS+13*, PATS+17, DELPT+1~
YY PATS+12~, PATS+13*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All