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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: ECED1

Package: Event Capture

Routine: ECED1


Information

ECED1 ;BIR/MAM,JPW-Event Capture Data Entry (cont'd) ;6 Mar 96

Source Information

Source file <ECED1.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Event Capture 7 NEW^ECED2  EDIT^ECED3  CATS^ECHECK1  MSG1^ECMUTL1  $$GETPPRV^ECPRVMUT  $$MOD^ECUTL  ($$INOUTPT,DSPSTAT,INOUTERR)^ECUTL0  
VA FileMan 2 ^%DT  ^DIC  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Kernel 1 $$FMTE^XLFDT  
Registration 1 2^VADPT  

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 ECED  

Entry Points

Name Comments DBIA/ICR reference
CAT ;cat & set unit info
PAT ;get pat
ASKD ;get proc date
PR
PROS ; display procedures
SELP
LIST ; list procedures
HDR ; heading
SEL ; select procedure
SET ; set EC array
SET1
DATE ;ask date

External References

Name Field # of Occurrence
^%DT DATE+5
^DIC PAT+2
NEW^ECED2 PROS+2, PROS+10, SELP+1
EDIT^ECED3 PROS+9, SELP+3
CATS^ECHECK1 CAT+2
MSG1^ECMUTL1 PROS+6
$$GETPPRV^ECPRVMUT SET1+5
$$MOD^ECUTL SET+13
$$INOUTPT^ECUTL0 ASKD+4
DSPSTAT^ECUTL0 ASKD+8
INOUTERR^ECUTL0 ASKD+5
$$CPT^ICPTCOD SET+11
2^VADPT PAT+3
$$FMTE^XLFDT LIST+2, DATE+6

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Location: "_ECLN,!,"DSS Unit: "_ECDN,!
  • Line Location: CAT+1
Function Call: WRITE
  • Prompt: !!,"WARNING "_"[PATIENT DIED ON "_$P(VADM(6),U,2)_"] ",!!
  • Line Location: PAT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PROS+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PROS+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SELP+0
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SELP+2
Function Call: WRITE
  • Prompt: !!,"Enter N to create a new procedure, or the number corresponding to the",!,"procedure that you want to edit or delete. Enter ^ quit.",!!,"Press <RET> to continue "
  • Line Location: SELP+2
Function Call: WRITE
  • Prompt: !!,CNT_".",?5,"Category : "_$E($P(EC(CNT),"^",2),1,23),?41,"Pr. Date: ",ECDTM,?67,$P(EC(CNT),"^",4),!,?5,"Procedure: "_$E($P(EC(CNT),"^",3),1,50)_" ("_$P(EC(CNT),"^",6)_")",?67,$E($P(EC(CNT),"^",5),1,13)
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !?6,"Modifier: "," - ",MOD," ",$E(EC(CNT,"MOD",MOD),1,55)
  • Line Location: LIST+6
Function Call: WRITE
  • Prompt: !?5,"Procedure Reason: "_$P(EC(CNT),"^",9)
  • Line Location: LIST+7
Function Call: WRITE
  • Prompt: @IOF,!,"Location: "_ECLN,?40,"Service: "_ECSN,!,"Section: "_ECMN,?40,"DSS Unit: "_ECDN
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Patient: "_ECPAT,?40,"Procedure Date: "_ECDATE
  • Line Location: HDR+1
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+1
Function Call: WRITE
  • Prompt: !!,"To create a new procedure, type N. If you would like to edit or delete",!,"one of the procedures listed, enter the corresponding number. Press <RET>",!,"to continue the list, or ^ to quit."
  • Line Location: SEL+5
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SEL+6
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: SEL+6
Function Call: WRITE
  • Prompt: !!,"Event Capture patient data missing.",!!
  • Line Location: SET+2
Function Call: WRITE
  • Prompt: !!,"You must enter both DATE and TIME to create a new procedure record.",!!
  • Line Location: DATE+2
Routine Call
  • DIC
  • Line Location:
    • PAT+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" |opt
^DD(720 |sort
^DIC(4 - [#4] |sort
^DIC(40.7 - [#40.7] |sort
^DIC(49 - [#49] CAT+4
^EC(725 - [#725] SET+9, SET+16
^EC(726 - [#726] SET+4
^ECC(723 - [#723] CAT+4, SET1+2
^ECD - [#724] CAT+3, |inpt, |sort
^ECH - [#721] SET+2, SET+3, SET+12
^ECH("ADT" PR
^ECJ - [#720.3] SET+8
^ECJ("AP" SET+7
^ECL - [#720.5] SET1+9
^ECP( |sort
^ECR - [#720.4] SET1+9
^ECT(731.5 - [#731.5] |inpt
^ECX(727 - [#727] |sort
^ECX(727.2 - [#727.2] |sort
^ECX(728.441 - [#728.441] |sort
^LAB(69.9 - [#69.9] |opt
^PS(59.7 - [#59.7] |opt
^RMPR(660 - [#660] |sort
^SC - [#44] SET1+4
^TMP("ECLKUP" PAT+2!
^TMP("ECMP" |list
^TMP("ECMPT" |list
^XUTL("PSG" |opt
^XUTL("XQ" |opt

Label References

Name Line Occurrences
DATE ASKD+1, PROS+2, PROS+10, SELP+1
HDR PROS+1, PROS+7, PROS+8, SELPSEL+2, SEL+6
LIST PROS+7
PAT PAT+3, PROS+1, PROS+8, SELP
PR PROS+2, PROS+9, PROS+10, SELP+1, SELP+3
PROS SELP+2
SEL LIST+1
SET PR
SET1 SET+15, SET+17

Naked Globals

Name Field # of Occurrence
^(0 CAT+4, SET+4, SET+16, SET1+2, SET1+4, |inpt, |sort
^(1 |inpt
^(2 |sort
^(20 |opt

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+5!*
%DT("A" DATE+5*
%DT("B" DATE+5*
%DT(0 DATE+5*
ARR SET+12!, SET+13!
ARR( SET+14
>> CNT PAT+2*, PR*, PR+1*, PROS+2*, PROS+7*, PROS+9*, PROS+10*, SELP+1*, SELP+2*, SELP+3*
LIST+2, LIST+3, LIST+4, LIST+5, LIST+6, LIST+7, SEL+2*, SEL+6*, SET+2, SET+3
SET+12, SET+13, SET1+5, SET1+10, SET1+11, SET1+13
>> CNT1 PROS+7*, SELP+2
>> D(0 |sort*
>> D0 |sort
>> D1 |sort
>> D2 |sort
>> DA |inpt
>> DFN PAT+3*
DIC PAT+2!*
DIC("A" PAT+2*
DIC(0 PAT+2*
>> DISX(1 |sort*
>> DISX(2 |sort*
>> DISX(3 |sort*
DTIME PAT+6, SELPSELP+2, SEL+1, SEL+6
DUZ |opt
EC PAT+2!, PROS+2!, PROS+9*!, PROS+10!, SELP+1!, SELP+3*!
EC( PR*, PROS+7, SELP+2, LIST+2, LIST+3, LIST+4, LIST+5, LIST+6, LIST+7, SEL+4
SET+2, SET+3, SET+12, SET+13, SET1+5, SET1+10*, SET1+11*, SET1+13*
EC(0 PR+1
EC(1 PROS+2, PROS+6
>> EC4 SET1+3*, SET1+4, SET1+10
>> EC4N SET1+4*
>> ECCH SET+3*, SET+4, SET+5, SET+6, SET+7, SET1+1, SET1+3, SET1+9
>> ECCN SET+4*, SET1+10
>> ECCPT SET+9*, SET+10, SET+11
>> ECD CAT+3, PR
>> ECDAT SET1+5*
>> ECDATE HDR+1, DATE+6*
>> ECDDT CAT+3*, DATE+5
>> ECDFN PAT+2*, PAT+3, ASKD+4, PR
>> ECDN CAT+1, HDR+1
>> ECDSS |inpt
>> ECDSSU |inpt
>> ECDT ASKD+4, PRDATE+1, DATE+2, DATE+6*
>> ECDT1 PRDATE+6*
>> ECDTM LIST+2*, LIST+3, SET+3*, SET+11, SET1+11
>> ECFFLG |ptcl*
>> ECFN PR*
ECHOICE PROS+7!, PROS+9, PROS+10, LIST+1, SEL+1*, SEL+3*, SEL+4*
>> ECID SET1+3*, SET1+10
ECIOFLG ASKD+8*, PROS+6!
>> ECJLP PAT+1*, PROS+2*, PROS+10*, SELP+1*, DATE+1, DATE+2
>> ECL PR, |inpt
>> ECLN CAT+1, HDR+1
>> ECM CAT+3*, CAT+4
>> ECMN CAT+4*, HDR+1
ECMOD SET+13!, SET1+13, SET1+14!
ECMOD( SET+14*
ECMOD("" SET1+12
ECMODF SET+12!, SET+13*
>> ECNFLG |ptcl*
>> ECON SET1+2*, SET1+10
>> ECOUT PAT+1*, PAT+2*, ASKD+1, PR+1*, PROS+1, PROS+2, PROS+8, PROS+10, SELP+1, SEL+1*
SET+2*, DATE+5*
ECPAT PAT+2*, PROS+1!, PROS+8!, SELP!, HDR+1
>> ECPCE CAT+5*
>> ECPN SET+16*, SET+18*, SET+19*, SET1*, SET1+10
>> ECPRR("PCEPR" |inpt
>> ECPRR("PROCDT" |inpt
>> ECPRR("VOL" |inpt
ECPRS SET1+9*, SET1+14!
ECPRSL SET1+9*, SET1+14!
ECPRSN SET1+9*, SET1+10, SET1+14!
>> ECPSY SET+7*, SET+8
>> ECPSYN SET+3*, SET+8*, SET1
>> ECPTCD SET+3*, SET+10*, SET+11*, SET1
>> ECPTR("CLIN" |inpt
>> ECPTR("DFN" |inpt
>> ECPTR("DX" |inpt
>> ECPTSTAT ASKD+4*, ASKD+5, ASKD+8
ECPXD SET+1~, SET+10*, SET+11*, SET+18
>> ECS CAT+3*, CAT+4
>> ECSN CAT+4*, HDR+1
>> ECT |opt*
>> ECT1 |opt*
>> ECTEMP SET+4*, SET+5*, SET+9, SET+16, SET1+1*, SET1+2
>> ECTEST SET+5*, SET+9, SET+15, SET+17
>> ECU(1 |inpt
>> ECU(2 |inpt
>> ECU(3 |inpt
>> ECUN SET1+5*, SET1+6*, SET1+10
ECUP PAT+3~, PAT+6*
>> ECV SET1+3*, SET1+10
>> ECXED |prnt
>> ECXSD |prnt
FLAG |opt*!
>> GMRCEN |ptcl*
>> HARDSHIP |ptcl
>> HARDSHIP("MTIEN" |ptcl
>> I PR*, PROS+7*
>> I(0 |sort*
IBNOD |ptcl!
IBNOD(0 |ptcl*
IOF HDR+1, |help, |help, |opt, |opt
IOSL LIST+1
>> LN |prnt*
MOD LIST+5~*, LIST+6, SET+12!, SET+14*
>> NODE CAT+3*, CAT+5
U PAT+5, SET+11, SET+14, SET+18, |sort
>> VADM(6 PAT+3, PAT+5
>> X PR*, SELP*, SELP+1, SELP+2*, SELP+3, LIST+1, SEL+1*, SEL+2, SEL+3, SEL+4
SEL+6*, |inpt*, |opt*, |sort*
>> XQORM("B" |ptcl*
>> XQORNOD(0 |ptcl
>> XQUIT |opt*
>> Y PAT+2, DATE+5, DATE+6, |inpt*
>> Y(1 |sort*
>> Y(2 |sort*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All