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

Package: Event Capture

Routine: ECBEP2A


Information

ECBEP2A ;BIR/MAM,JPW-Batch Enter by Procedure (cont'd) ;1 May 96

Source Information

Source file <ECBEP2A.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Event Capture 4 PCEQST^ECBEN2U  ^ECBEP2B  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 ECBEP1B  

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 and variables
ASK ; ask ord sect & vol
O ; ord sect
V ; vol
DIAG ;diagnosis, in/outpatient, visit
NODE ;set node
DELPT(CNT) ;deselect patient due to missing required data

External References

Name Field # of Occurrence
^DIC PATS+3, O+2
^DIR DELPT+6
PCEQST^ECBEN2U DIAG+4
^ECBEP2B PATS+8
DSP1416^ECPRVMUT HDR+10
$$CHKDSS^ECUTL0 ASK+14
$$ELGLST^ECUTL0 ASK+15
$$INOUTPT^ECUTL0 ASK+10
$$MULTELG^ECUTL0 ASK+15
DSPSTAT^ECUTL0 ASK+20
INOUTERR^ECUTL0 ASK+11
2^VADPT PATS+12

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+9
Function Call: WRITE
  • Prompt: !!,"WARNING ",VADM(7),!!
  • Line Location: PATS+13
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: !,"Category: ",ECCN
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !?1,"Modifier: "," - ",MOD," ",$E($P(ECMOD(ECCPT,MOD),U),1,55)
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,"Procedure Date: ",ECDATE
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+11
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: !!,"DSS Unit: "_ECDN,?50,"Category: "_ECCN,!
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: "Procedure: "_$S(ECCPT="":"",1:ECPTCD_" ")_$E(ECPN,1,50)
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: ?1,"Modifier: "," - ",MOD," ",$E($P(ECMOD(ECCPT,MOD),U),1,55),!
  • Line Location: ASK+6
Function Call: WRITE
  • Prompt: "Patient: ",$P(ECPT(CNT),"^",2),!
  • Line Location: ASK+7
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: V+2
Function Call: WRITE
  • Prompt: !!,"Enter a whole number between 1 and 99."
  • Line Location: V+4
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
    • O+2
Routine Call
  • DIR
  • Line Location:
    • DELPT+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECJ - [#720.3] NODE+2
^ECJ("AP" NODE+2
^SC - [#44] NODE+3

Label References

Name Line Occurrences
ADD ADD+1
ASK PATS+15
DEL DEL+4
DELPT O+2, V+3, DIAG+5
HDR EN+1
KILL PATS+6
LIST PATS+7, LIST+4, DEL+1, DEL+4, DEL+8
NOBODY LIST+5, DEL+1, NOBODY+5
NODE DIAG+3
PATS PATS+6, PATS+10, PATS+11, PATS+16
V V+4

Naked Globals

Name Field # of Occurrence
^(0 NODE+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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