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

Package: Event Capture

Routine: ECBEN2A


Information

ECBEN2A ;BIR/MAM,JPW-Categories and Procedures Selection ;30 Apr 96

Source Information

Source file <ECBEN2A.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Event Capture 6 ^ECBEN2B  (HDR,MSG,MSG1)^ECBEN2U  ($$GETPRO,$$PRLST,KILLV,SRCHTM)^ECDSUTIL  (CATS,PROS)^ECHECK1  DSP1444^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 ECBEN1B  

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
V ;vol (and procedure reason),ask for CPT modifier is applicable
VV ;vol
CHKP ;
FILE ;file proc
END
SETP ;set proc
SELC ; select category
NOTE ;

External References

Name Field # of Occurrence
^DIC V+15
^ECBEN2B FILE+2
HDR^ECBEN2U LIST, P+7, LISTP
MSG^ECBEN2U P2+4, P2+17
MSG1^ECBEN2U SELC+3, SELC+4
$$GETPRO^ECDSUTIL P2+3
$$PRLST^ECDSUTIL P2+16
KILLV^ECDSUTIL P2+4, P2+10, P2+15, P2+17, P2+21
SRCHTM^ECDSUTIL P2+6
CATS^ECHECK1 CHK+2
PROS^ECHECK1 P+2
DSP1444^ECPRVMUT CHKP+10
$$ASKMOD^ECUTL V+5
$$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+1
Function Call: WRITE
  • Prompt: !!,"Select the number corresponding to the category, or ^ to quit.",!!,"Press <RET> to continue "
  • Line Location: PICK+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: P+6
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: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: VV+2
Function Call: WRITE
  • Prompt: !!,"Enter a whole number between 1 and 99."
  • Line Location: VV+4
Function Call: WRITE
  • Prompt: !!,"Category: ",?14,$E(ECCN,1,26),?44,"Ord Section: "_$E(ECON,1,22)
  • Line Location: CHKP+1
Function Call: WRITE
  • Prompt: !,"Procedure: ",?14,$S(ECCPT="":"",1:ECPTCD_" ")_$E(ECPN,1,50)
  • Line Location: CHKP+2
Function Call: WRITE
  • Prompt: !?1,"Modifier: ",?18,"- ",MOD," ",$E($P(ECMOD(ECCPT,MOD),U),1,55)
  • Line Location: CHKP+5
Function Call: WRITE
  • Prompt: !,"Procedure Reason: ",$P($G(^ECR(+ECPRSL,0)),"^")
  • Line Location: CHKP+8
Function Call: WRITE
  • Prompt: !,"Date: ",?14,ECDATE,?44,"Volume: "_ECV
  • Line Location: CHKP+9
Function Call: WRITE
  • Prompt: !
  • Line Location: CHKP+10
Function Call: READ
  • Variable: ECYN
  • Timeout: DTIME
  • Line Location: CHKP+11
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CHKP+11
Function Call: WRITE
  • Prompt: "Press <RET> to continue "
  • Line Location: CHKP+11
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+13
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: CHKP+14
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: CHKP+14
Function Call: WRITE
  • Prompt: !!
  • Line Location: CHKP+23
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
Function Call: WRITE
  • Prompt: !!,"**NOTE** No action taken.",!,"You must re-enter the correct patient and procedure data that",!,"has NOT been filed during this session. ",!!
  • Line Location: NOTE+1
Routine Call
  • DIC
  • Line Location:
    • V+15

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] V+11
^ECJ("AP" V+9
^ECL - [#720.5] CHKP+8
^ECL("AD" V+11
^ECR - [#720.4] CHKP+8
^TMP("ECLKUP" P+1!, SETP+8*
^TMP("ECPRO" P+3, P1+1, LISTP+3, CHKP+16!, CHKP+23, FILE+1!, SETP+1, SETP+7, SELC+4

Label References

Name Line Occurrences
@( P2+9
CHK CHKP+16
CHKP CHKP+14
FILE P2+5
LIST PICK+1
NOTE CHKP+11
P CHK+3, CHK+4, LIST+3, FILE+1
P2 P2+8, CHKP+23
SELC LIST+2, LISTP+3
SETP P1+1, P2+13, P2+19
V P1+1, P2+11, P2+18
VV VV+4

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> CNT CATS+1*, LIST+2*, PICK+1*, P1+1*, P2+1*, P2+12*, P2+16*, P2+17, P2+18, PROS+1*
, LISTP+3*, CHKP+11*, SETP+1, SETP+7, SETP+8
>> COUNT CHK+1*, P2+4, P2+5, CHKP+19*, CHKP+22
DIC V+13*, V+15!
DIC("A" V+14*
DIC("S" V+14*
DIC(0 V+13*
>> DIR("?" P2+2*
DTIME PICK, PICK+1, P+6, VV+2, CHKP+11, CHKP+14, FILE+1, SELC+1
>> EC1 CHK+1*, LIST+1*, P2+1*, LISTP+2*, SELC+1, SELC+2, SELC+3, SELC+4, SELC+6
>> EC4 SETP+7*
>> ECC CHK+3*, CHK+4*, PICK+2*, V+9, CHKP+19, SELC+6*
>> ECC( LIST+2, PICK+1, PICK+2, SELC+3, SELC+6
>> ECC(1 CHK+3, CHK+4
>> ECC(2 CHK+4
ECCN CHK+3*, CHK+4*, PICK+2*, CHKP+1, CHKP+16!, SELC+6*
>> ECCPT P1+2, V+3, V+5, CHKP+2, CHKP+4, CHKP+5, CHKP+19, CHKP+21, CHKP+22, SETP+2*
, SETP+3, SETP+4, SETP+5
>> ECD V+9
>> ECDATE CHKP+9
>> ECDN LIST, P+5, LISTP, SELC+2
>> ECDT V+5, SETP+4
ECEC CHKP+11!
ECEC( CHKP+19*, CHKP+22*
ECEC(1 FILE+1
>> ECERR V+5, V+6
ECHOICE CHK+1!, LIST+2, LIST+3, PICK+2*, P2+1!, PROS+1!, LISTP+3, CHKP+16!, SELC+1*, SELC+5*
>> ECL V+9
>> ECLN P+4
ECMOD P2+1!, V+5, CHKP+16!
ECMOD( CHKP+4, CHKP+5, CHKP+21, CHKP+22
ECMODF V+5*, V+7!
ECMODS V+4*, V+5, V+7!
>> ECO CHKP+19
>> ECON CHKP+1
ECONE CHK+2*, CHK+3*, CHK+4*, LIST+3*, PICK+2*, P1+1*, P2+14*, P2+20*, CHKP+15, CHKP+16!
>> ECOUT PICK*, P+3, P+6*, V+3, V+6*, VV+2*, VV+3*, CHKP+11*, CHKP+15*, FILE+1*
ECP V+9, CHKP+16!, CHKP+19, SETP+1*, SETP+2
>> ECPCNT P2+1*, P2+7*, P2+8, P2+9, P2+11, P2+12, P2+16
ECPN P1+2, CHKP+2, CHKP+16!, SETP+1*, SETP+5
>> ECPNAME P2+16
ECPRPTR V+10!, V+12*, V+16*, CHKP+8, CHKP+19
>> ECPRSL CHKP+8*
>> ECPRVARY CHKP+10
>> ECPTCD P1+2, CHKP+2, SETP+3*, SETP+4*, SETP+5
ECSCR V+9*, V+11, V+17!
ECSTOP CHK+1!, LIST+3, P2+1!, SELC+1*
ECTEMP FILE+1!
>> ECV VV+5*, CHKP+9, CHKP+19
>> ECX P2+1*, P2+3*, P2+4, P2+5, P2+6
>> ECYN CHKP+11*, CHKP+12*, CHKP+13, CHKP+14, CHKP+15, CHKP+16
IOF SELC+2
IOSL LIST+2, LISTP+3
>> JJ LIST*, LISTP*
MOD CHKP+4~*, CHKP+5
>> NATN P1+3, CHKP+3, SETP+1*, SETP+6
>> OK P2+1*, P2+14*, P2+20*
>> SYN P1+3, CHKP+3, SETP+1*, SETP+6
U CHKP+5, SETP+4
>> VOL VV+1*, VV+2, VV+4, SETP+1*
>> X CATS+1*, LIST+2, PICK*, PICK+1*, PICK+2, P+6*, PROS+1*, LISTP+3, LISTP+4, VV+2*
, VV+3, VV+4*, VV+5, CHKP+11*, CHKP+14*, FILE+1*, SELC+1*, SELC+2, SELC+3, SELC+4
, SELC+6
>> Y V+16
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