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

Package: Event Capture

Routine: ECBEP1B


Information

ECBEP1B ;BIR/MAM,JPW-Batch Entry by Procedure (cont'd) ;30 Apr 96

Source Information

Source file <ECBEP1B.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Event Capture 6 (HDRP,MSG,MSG1)^ECBEN2U  ^ECBEP2A  ($$GETPRO,$$PRLST,ERRMSG,KILLV,SRCHTM)^ECDSUTIL  (CATS,PROS)^ECHECK1  DSP1442^ECPRVMUT  $$ASKMOD^ECUTL  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
VA FileMan 1 ^DIC  

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 ECBEP1A  

Entry Points

Name Comments DBIA/ICR reference
CHK ; check unit for valid categories
CATS ; select category
LIST
PICK
P ;check for valid procedures
P1 ;
P2 ;ask mul proc
PROS ;
LISTP
CHKP ;
FILE ;file proc
END
SETP ;set proc
SELC ; select category

External References

Name Field # of Occurrence
^DIC CHKP+14
HDRP^ECBEN2U LIST, P+6, LISTP
MSG^ECBEN2U P2+18
MSG1^ECBEN2U SELC+3, SELC+4
^ECBEP2A FILE+2
$$GETPRO^ECDSUTIL P2+3
$$PRLST^ECDSUTIL P2+17
ERRMSG^ECDSUTIL P2+10
KILLV^ECDSUTIL P2+4, P2+11, P2+16, P2+18, P2+22, CHKP+5
SRCHTM^ECDSUTIL P2+6
CATS^ECHECK1 CHK+3
PROS^ECHECK1 P+1
DSP1442^ECPRVMUT CHKP+27
$$ASKMOD^ECUTL CHKP+4
$$CPT^ICPTCOD SETP+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Categories within "_ECDN_": ",!
  • Line Location: LIST+0
Function Call: WRITE
  • Prompt: !,CNT_".",?5,$P(ECC(CNT),"^",2)
  • Line Location: LIST+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PICK+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PICK+2
Function Call: WRITE
  • Prompt: !!,"Select the number corresponding to the category, or ^ to quit.",!!,"Press <RET> to continue "
  • Line Location: PICK+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: P+5
Function Call: WRITE
  • Prompt: !,"Procedure: "
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: $S(ECCPT="":"",1:ECPTCD_" ")_$E(ECPN,1,50)
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: !,"Available Procedures within "_ECDN_": ",!
  • Line Location: LISTP+0
Function Call: WRITE
  • Prompt: ?72,"National",!,?5,"Procedure Name",?40,"Synonym",?72,"Number",!
  • Line Location: LISTP+1
Function Call: WRITE
  • Prompt: !,CNT_".",?5,$E($P(^TMP("ECPRO",$J,CNT),"^",4),1,30),?38,$E($P(^(CNT),"^",3),1,30),?72,$P(^(CNT),"^",5)
  • Line Location: LISTP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKP+16
Function Call: WRITE
  • Prompt: !,"Category: ",ECCN
  • Line Location: CHKP+18
Function Call: WRITE
  • Prompt: !,"Procedure: ",$S(ECCPT="":"",1:ECPTCD_" ")_$E(ECPN,1,50)
  • Line Location: CHKP+19
Function Call: WRITE
  • Prompt: !?1,"Modifier: "," - ",MOD," ",$E($P(ECMOD(ECCPT,MOD),U),1,55)
  • Line Location: CHKP+24
Function Call: WRITE
  • Prompt: !,"Procedure Reason: ",$P($G(^ECR(+ECPRSL,0)),"^")
  • Line Location: CHKP+26
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKP+28
Function Call: READ
  • Variable: ECYN
  • Timeout: DTIME
  • Line Location: CHKP+29
Function Call: WRITE
  • Prompt: !!,"Enter <RET> if the information listed above is correct and should be",!,"entered for the patients selected. Enter NO to re-enter the information",!,"for this procedure.",!
  • Line Location: CHKP+31
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CHKP+32
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: CHKP+32
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: FILE+1
Function Call: WRITE
  • Prompt: !!,"No procedures have been selected for filing. Please re-enter the ",!,"information for the procedures, or ^ to exit.",!!,"Press <RET> to continue"
  • Line Location: FILE+1
Function Call: WRITE
  • Prompt: " "_$S(ECCPT="":"",1:ECPTCD_" ")_$E(ECPN,1,50)
  • Line Location: SETP+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SELC+1
Function Call: WRITE
  • Prompt: @IOF,!,$S(EC1:"Available Procedures",1:"Categories")_" within ",ECDN," : ",!
  • Line Location: SELC+2
Routine Call
  • DIC
  • Line Location:
    • CHKP+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECL - [#720.5] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^EC(725 - [#725] SETP+2
^ECJ - [#720.3] CHKP+10, SETP+7
^ECJ("AP" CHKP+8
^ECL - [#720.5] CHKP+26
^ECL("AD" CHKP+10
^ECR - [#720.4] CHKP+26
^SC - [#44] SETP+8
^TMP("ECPRO" P+2, P1+1, LISTP+3, CHKP+34!, FILE+1!, FILE+2!, SETP+1, SETP+7, SELC+4

Label References

Name Line Occurrences
CHK CHKP+34, FILE+2
CHKP P1+1, P2+12, P2+19, CHKP+32
FILE P2+5
LIST PICK+2
P CHK+4, CHK+5, LIST+3, FILE+1
P2 P2+8
SELC LIST+2, LISTP+3
SETP P1+1, P2+14, P2+20

Naked Globals

Name Field # of Occurrence
^( LISTP+3, SETP+1
^(0 SETP+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT CATS+1*, LIST+2*, PICK+2*, P1+1*, P2+1*, P2+13*, P2+17*, P2+18, P2+19, PROS+1*
, LISTP+3*, SETP+1, SETP+7
>> COUNT CHK+2*, P2+4, P2+5, CHKP+37*, CHKP+40
DIC CHKP+12*, CHKP+14!
DIC("A" CHKP+13*
DIC("S" CHKP+13*
DIC(0 CHKP+12*
>> DIR("?" P2+2*
DTIME PICK, PICK+2, P+5, CHKP+29, CHKP+32, FILE+1, SELC+1
>> EC1 CHK+2*, LIST+1*, P2+1*, LISTP+2*, SELC+1, SELC+2, SELC+3, SELC+4, SELC+6
>> EC4 CHKP+37, SETP+7*, SETP+8
>> EC4N SETP+8*
ECA FILE+2!
ECAO FILE+2!
ECC CHK+1!, CHK+4*, CHK+5*, PICK+3*, CHKP+8, CHKP+37, SELC+6*
ECC( LIST+2, PICK+2, PICK+3, SELC+3, SELC+6
ECC(1 CHK+4, CHK+5
ECC(2 CHK+5
ECCN CHK+1!, CHK+4*, CHK+5*, PICK+3*, CHKP+18, CHKP+34!, FILE+2!, SELC+6*
ECCPT P1+2, CHKP+2, CHKP+4, CHKP+19, CHKP+23, CHKP+24, CHKP+37, CHKP+39, CHKP+40, FILE+2!
, SETP+2*, SETP+3, SETP+4, SETP+5
ECCV FILE+2!
>> ECD CHKP+8
>> ECDN LIST, P+4, LISTP, SELC+2
>> ECDT CHKP+4, SETP+4
ECDX FILE+2!
ECDXN FILE+2!
ECEC CHK+1!, FILE+2!
ECEC( CHKP+37*, CHKP+40*
ECEC(1 FILE+1
ECERR CHKP+4, CHKP+5!
ECHNC FILE+2!
ECHOICE CHK+1!, LIST+2, LIST+3, PICK+3*, P2+1!, PROS+1!, LISTP+3, CHKP+34!, FILE+2!, SELC+1*
, SELC+5*
>> ECID CHKP+37, SETP+8*
ECINP FILE+2!
ECIR FILE+2!
ECJLP FILE+2!
>> ECL CHKP+8
>> ECLN P+3
ECMOD CHKP+4, CHKP+5!, CHKP+34!, FILE+2!
ECMOD( CHKP+23, CHKP+24, CHKP+39, CHKP+40
ECMODF CHKP+2!, CHKP+4*
ECMODS CHKP+2!, CHKP+3*, CHKP+4
ECMST FILE+2!
ECO FILE+2!
ECON FILE+2!
ECONE CHK+3*, CHK+4*, CHK+5*, LIST+3*, PICK+3*, P1+1*, P2+15*, P2+21*, CHKP+33, CHKP+34!
>> ECOUT PICK*, PICK+1*, P+2, P+5*, P2+4*, CHKP+5*, CHKP+33*, FILE+1*, FILE+2, SELC+3*
, SELC+4*
ECP CHKP+8, CHKP+34!, CHKP+37, FILE+2!, SETP+1*, SETP+2
>> ECPCNT P2+1*, P2+7*, P2+8, P2+12, P2+13, P2+17
ECPN P1+2, CHKP+19, CHKP+34!, FILE+2!, SETP+1*, SETP+5
>> ECPNAME P2+17
ECPRPTR CHKP+9!, CHKP+11*, CHKP+15*, CHKP+26, CHKP+37
>> ECPRSL CHKP+26*
>> ECPRVARY CHKP+27
ECPT FILE+2!
ECPTCD P1+2, CHKP+19, FILE+2!, SETP+3*, SETP+4*, SETP+5
ECPTSTAT FILE+2!
ECSC FILE+2!
ECSCR CHKP+8*, CHKP+10, CHKP+16!
ECSHAD FILE+2!
ECSTOP CHK+1!, LIST+3, P2+1!, SELC+1*
ECTEMP FILE+1!
ECV FILE+2!
ECVST FILE+2!
>> ECX P2+1*, P2+3*, P2+4, P2+5, P2+6
>> ECYN CHKP+29*, CHKP+30*, CHKP+31, CHKP+32, CHKP+33, CHKP+34
ECZEC FILE+2!
IOF SELC+2
IOSL LIST+2, LISTP+3
>> JJ LIST*, LISTP*
MOD CHKP+23~*, CHKP+24
NATN P1+3, CHKP+20, FILE+2!, SETP+1*, SETP+6
NODE FILE+2!
>> OK P2+1*, P2+15*, P2+21*
SYN P1+3, CHKP+20, FILE+2!, SETP+1*, SETP+6
U CHKP+24, SETP+4
>> VOL SETP+1*
>> X CATS+1*, LIST+2, PICK*, PICK+1, PICK+2*, PICK+3, P+5*, PROS+1*, LISTP+3, LISTP+4
, CHKP+32*, FILE+1*, SELC+1*, SELC+2, SELC+3, SELC+4, SELC+6
>> Y CHKP+15
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