Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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 ;

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECL - [#720.5] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call