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

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

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

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