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

Package: Event Capture

Routine: ECED3


Information

ECED3 ;BIR/MAM,JPW-Enter Event Capture Data (cont'd) ;7 May 96

Source Information

Source file <ECED3.m>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Event Capture 9 PCEE^ECBEN2U  ($$GETPRO,$$PRLST,KILLV,SRCHTM)^ECDSUTIL  CLIN^ECEDF  (DXEDT,HDR,HDR1,MSG,MSGC,SETE)^ECEDU  PROS^ECHECK1  ($$FILPRV,ASKPRV)^ECPRVMUT  $$FNDVST^ECUTL  ($$ASKIF,$$CHKDSS,$$ELGLST,$$INOUTPT,$$MULTELG,DSPSTAT,ELIGERR,INOUTERR)^ECUTL0  
($$ASKCLASS,EDCLASS)^ECUTL1  
VA FileMan 3 (,DD)^%DT  ^DIE  ^DIK  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
PCE Patient Care Encounter 1 $$DELVFILE^PXAPI  

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 ECED1  

Entry Points

Name Comments DBIA/ICR reference
EDIT ; enter or edit procedure
ASK ;edit cat
NEW ; create new procedure
NEWC
LIST
PICK
P ; get procedure
P1 ;
NEWP
P2 ;ask mul proc
PROS ;
LISTP
SETP ;set proc info
DIE ;edit record
SET ; sets data
DEL ; delete existing procedure
DELP
SELC ; select category
GETCLN ;- Get assoc clinic from event code screen

External References

Name Field # of Occurrence
^%DT DIE+17
DD^%DT DIE+15
^DIE DIE+11, DIE+20, DIE+26, DIE+32, DIE+72, DIE+77
^DIK DIE+5, DELP
PCEE^ECBEN2U SET+4
$$GETPRO^ECDSUTIL NEWP+3
$$PRLST^ECDSUTIL P2+11
KILLV^ECDSUTIL NEWP+4, NEWP+6, P2+5, P2+10, P2+12, P2+16
SRCHTM^ECDSUTIL P2+1
CLIN^ECEDF DIE+85
DXEDT^ECEDU DIE+37
HDR^ECEDU PICK+1
HDR1^ECEDU LISTP
MSG^ECEDU P2+12
MSGC^ECEDU SELC+3, SELC+4
SETE^ECEDU EDIT+4
PROS^ECHECK1 P+1
$$FILPRV^ECPRVMUT DIE+62
ASKPRV^ECPRVMUT DIE+61
$$FNDVST^ECUTL DEL+8
$$ASKIF^ECUTL0 DIE+45
$$CHKDSS^ECUTL0 DIE+30, DIE+40
$$ELGLST^ECUTL0 DIE+49
$$INOUTPT^ECUTL0 DIE+23
$$MULTELG^ECUTL0 DIE+41
DSPSTAT^ECUTL0 DIE+53
ELIGERR^ECUTL0 DIE+47
INOUTERR^ECUTL0 DIE+24
$$ASKCLASS^ECUTL1 DIE+56
EDCLASS^ECUTL1 DIE+56
$$CPT^ICPTCOD SETP+3
$$DELVFILE^PXAPI DEL+11

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !!,"Press <RET> to edit the selected procedure, or enter D to delete",!,"the procedure.",!
  • Line Location: EDIT+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !,"CATEGORY: "_ECCN
  • Line Location: NEW+3
Function Call: WRITE
  • Prompt: !,CNT_". ",?5,$P(ECC(CNT),"^",2)
  • Line Location: LIST+0
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 procedure category, or ^ to quit.",!!,"Press <RET> to continue ",!
  • Line Location: PICK+1
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: " "_$S(ECCPT="":"",1:ECPTCD_" ")_$E(ECPN,1,50)
  • Line Location: SETP+4
Function Call: WRITE
  • Prompt: !,?8,"** Procedure code replaced, all modifiers deleted **"
  • Line Location: DIE+3
Function Call: WRITE
  • Prompt: !!,"You should edit this patient procedure and enter an active clinic.",!!
  • Line Location: DIE+85
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: DIE+86
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !!,"Enter YES to delete this procedure, or <RET> to quit this option."
  • Line Location: DEL+2
Function Call: WRITE
  • Prompt: !!,"Deleting Procedure... "
  • Line Location: DELP+0
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: DELP+2
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
  • DIE
  • Line Location:
    • DIE+11
    • DIE+20
    • DIE+26
    • DIE+32
    • DIE+72
    • DIE+77

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ECH - [#721] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(8 - [#8] DIE+44
^EC(725 - [#725] SETP+1, DIE+1
^ECH - [#721] DIE+1*, DIE+5, DIE+6!, DIE+43, DIE+67, DIE+80, DIE+81, DIE+82*, SET+1*, SET+2*
, DEL+4
^ECJ - [#720.3] SETP+6, DIE+76, GETCLN+3
^ECJ("AP" DIE+75, GETCLN+3
^ECL("AD" DIE+76
^SC - [#44] SETP+7, SETP+8, DIE+82, GETCLN+4
^TMP("ECLKUP" SETP+9*
^TMP("ECPRO" P+2, P1+1, LISTP+3, SETP+1, SETP+6, SELC+4

Label References

Name Line Occurrences
@( P2+4
DEL EDIT+3, DEL+2
DELP DEL+4
DIE P1+1, NEWP+6, P2+6, P2+13
EDIT EDIT+2
GETCLN DIE+68
LIST PICK+1
NEWC ASK+6
NEWP P2+3
P ASK+2, ASK+3, ASK+5, NEW+3, NEW+4, LIST+1
SELC LIST, LISTP+3
SET DIE+83, DIE+84
SETP P1+1, P2+8, P2+14

Naked Globals

Name Field # of Occurrence
^( LISTP+3, SETP+1
^(0 SETP+7, DIE+1*, SET+2, GETCLN+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DIE+16*, DIE+17!
%DT("A" DIE+16*
%DT("B" DIE+16*
%DT(0 DIE+16*
>> CNT NEWC*, LIST*, PICK+1*, P1+1*, NEWP*, P2+7*, P2+11*, P2+12, P2+13, PROS+1*
, LISTP+3*, SETP+1, SETP+6, SETP+9
DA DIE+1, DIE+4*, DIE+5*, DIE+6!*, DIE+43, DIE+56, DIE+61, DIE+62, DIE+67, SET+1
, SET+2!, DELP*!
DA(1 DIE+4*
DIE DIE+7!*, DIE+12!, DIE+34!, DIE+64!, DIE+77*!, DIE+80!
DIE("NO^" DIE+7*
DIK DIE+4*, DIE+6!, DELP*!
>> DIR("?" NEWP+2*
>> DIR("B" NEWP+1*
DR DIE+7!, DIE+9*, DIE+10*, DIE+11!, DIE+19*, DIE+20!, DIE+25*, DIE+27!, DIE+31*, DIE+33!
, DIE+71*, DIE+72!, DIE+77*!
DTIME EDIT+1, ASK+4, PICK, PICK+1, P+5, DIE+86, DEL+1, DELP+2, SELC+1
DTOUT DIE+12, DIE+18!, DIE+34, DIE+64, DIE+78
DUZ SET+2
>> EC DIE+80, DEL+4, DELP
>> EC( DIE+80, DEL+4, DELP
>> EC(0 DIE+80*, DIE+81, DIE+82
>> EC1 ASK+1*, LIST*, P+1*, NEWP*, LISTP+2*, SELC+1, SELC+2, SELC+3, SELC+4, SELC+6
>> EC4 SETP+6*, SETP+7, SETP+8, DIE+68, DIE+69*, DIE+70, DIE+82*, GETCLN+2, GETCLN+3*, GETCLN+4
>> EC4N SETP+7*, DIE+31, GETCLN+4*
>> ECC NEW+2*, NEW+3, PICK+2*, DIE+1, DIE+75, SELC+6*, GETCLN+3
>> ECC( NEW+1, NEW+2, LIST, PICK+1, PICK+2, SELC+3, SELC+6
>> ECC(1 ASK+2
>> ECC(2 ASK+3
>> ECCH DEL+4*
ECCLFLDS DIE+56, DIE+58!
ECCLFLDS("" DIE+56
>> ECCN ASK+4, NEW+2*, NEW+3, PICK+2*, SELC+6*
>> ECCPT P1+2, SETP+1*, SETP+2, SETP+3, SETP+4, DIE+1*, DIE+9, DIE+81*
>> ECD DIE+30, DIE+40, DIE+75, GETCLN+3
ECDA DIE+4*, DIE+5, DIE+6!
>> ECDFN DIE+23, DIE+41, DIE+56
>> ECDN LIST, P+4, LISTP, SELC+2
>> ECDT SETP+3, DIE+61
>> ECDX DIE+81*
ECDX1 DIE+1*, DIE+50!
ECELANS DIE+45*, DIE+46, DIE+49, DIE+50!
ECELCOD DIE+43*, DIE+44, DIE+48, DIE+50!
ECELDSP DIE+44*, DIE+45, DIE+47, DIE+48, DIE+50!
>> ECELIG DIE+41*, DIE+48*, DIE+49*
ECFIL DIE+62*, DIE+63!
>> ECFLG ASK+1*
>> ECFN DIE+1*, DIE+80*, DIE+81, DIE+82
ECHOICE NEW+1*, NEW+2, NEW+3!, NEW+4, LIST, LIST+1, PICK+1!, NEWP!, PROS+1!, LISTP+3
, SELC+1*, SELC+5*
ECI GETCLN+1~, GETCLN+3*
>> ECID SETP+8*, DIE+82*
>> ECINP DIE+1*, DIE+81*, DIE+84, SET+3
>> ECL DIE+75, GETCLN+3
>> ECLN P+3
>> ECMN DIE+10
ECNEWDT DIE+19*, DIE+23, DIE+50!
ECOLD ASK+1*, NEW+2*, NEW+3!, NEWC*, PICK+2*!
ECOLDN ASK+1*, NEW+2*, NEW+3!, PICK+2*!
>> ECOUT EDIT+1*, ASK+4*, PICK*, P+2, P+5*, NEWP+4*, DIE+12*, DIE+18*, DIE+30, DIE+34*
, DIE+37, DIE+56, DIE+57, DIE+61, DIE+62, DIE+64*, DIE+76, DIE+78*, DEL+1*
>> ECP SETP+1*, DIE+1, DIE+2, DIE+75, GETCLN+2, GETCLN+3
>> ECPCE DIE+37, DIE+56, DIE+83, DIE+84, SET+3
>> ECPCL DIE+85
>> ECPCNT NEWP*, P2+2*, P2+3, P2+4, P2+6, P2+7, P2+11
>> ECPN P1+2, NEWP+1, NEWP+6, SETP+1*, SETP+4
>> ECPNAME P2+11
ECPO DIE+1*, DIE+2, DIE+6!
>> ECPR DIE+1*, DIE+15, DIE+16
>> ECPROCED NEWP+6
ECPRV DIE+63!
ECPRVARY DIE+61, DIE+62, DIE+63!
ECPRVN DIE+63!
>> ECPTCD P1+2, SETP+2*, SETP+3*, SETP+4
>> ECPTSTAT DIE+23*, DIE+24, DIE+25, DIE+30, DIE+40, DIE+53, DIE+56
ECSCR DIE+75*, DIE+76, DIE+78!, DIE+80!
ECSTOP LIST+1, PICK+1!, NEWP!, PROS+1!, SELC+1*
>> ECU SET+2*
ECVAR1 DEL+8~*!
ECVST DEL+4*, DEL+8, DEL+11!
ECVV DEL+11*, DELP!
>> ECX NEWP*, NEWP+3*, NEWP+4, NEWP+6, P2+1
ECZZ DIE+81*!
>> I LIST*
IOF SELC+2
IOSL LIST, LISTP+3
>> JJ LISTP*
>> MM NEW+1*
>> NATN P1+3, SETP+1*, SETP+5
>> OK ASK+1*, NEWP*, P2+9*, P2+15*
>> SYN P1+3, SETP+1*, SETP+5
U SETP+3, DIE+1
VAEL DIE+50!
VAEL(1 DIE+41, DIE+48
VALQUIET DEL+11*!
>> X EDIT+1*, EDIT+2*, EDIT+3, ASK+4*, ASK+5, ASK+6, NEW+1, NEWC*, LIST, PICK*
, PICK+1*, PICK+2, P+5*, PROS+1*, LISTP+3, LISTP+4, DIE+86*, DEL+1*, DEL+2*, DEL+3
, DELP+2*, SELC+1*, SELC+2, SELC+3, SELC+4, SELC+6
Y DIE+12, DIE+15*, DIE+16!, DIE+18!, DIE+19, DIE+20!, DIE+34, DIE+78
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