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 |  Marked Items  | All
Print Page as PDF
Routine: ECMLMN

Package: Event Capture

Routine: ECMLMN


Information

ECMLMN ;ALB/ESD - Multiple patients processing ;26 AUG 1997 14:42

Source Information

Source file <ECMLMN.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
List Manager 4 EN^VALM  ($$FTIME,$$SETSTR,CLEAR,FULL,PAUSE)^VALM1  (CLEAN,CNTRL)^VALM10  EN^VALM2  
Event Capture 3 INIT^ECMLMN  ($$ASKORD,$$ASKPAT,$$INOUT,$$PCEDAT,ASKELIG,REMOVE)^ECMUTL1  DSPSTAT^ECUTL0  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Kernel 1 DISP^XQORM1  
Registration 1 PID^VADPT6  

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

Package Total Caller Graph
Event Capture 5 EC MUL ADD PAT  EC MUL DEL PAT  EC MUL PATIENTS  ECMLMD  ECMLMN  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ;- Entry point for multiple patients (part of Multiple Dates/Procs option)
ENPAT(ECFL,ECONE) ;- Ask patient name, ordering section, inpat/outpat,
; dx, assoc clinic, and classification questions
; (AO, IR, EC, SC, MST, HNC, CV, SHAD)
SEL
ENPATQ
BLDPAT ;- Build ^TMP("ECPAT",$J) array with patient data
HDR ;- Header
INIT ;-- Init vars and display selected procedures for patient(s)
BLD ;- Get data from array for screen display
BLDLM ;- Display patient data
SET(X) ;- Create ^TMP("ECMPT",$J) array for screen display
PRDSP ;- Display selected procedure dates/times and procedures
PRDSPQ
HLPS ;- Brief help
HELP ;- Help for list
HLPQ
EXIT ;- Clean up and exit
PATDEL ;- Entry point for EC MUL PAT DEL protocol
PATDELQ
REMOVNM(ECI) ;- Remove patient name from array which tracks dup patients
ADDPAT ;- Entry point for EC MUL PAT ADD protocol
ADDPATQ
HELPTXT ; - Help text

External References

Name Field # of Occurrence
INIT^ECMLMN PATDEL+12, ADDPAT+6
$$ASKORD^ECMUTL1 SEL+18
$$ASKPAT^ECMUTL1 SEL+4
$$INOUT^ECMUTL1 SEL+9
$$PCEDAT^ECMUTL1 SEL+27
ASKELIG^ECMUTL1 SEL+12
REMOVE^ECMUTL1 SEL+19, SEL+28
DSPSTAT^ECUTL0 SEL+15
$$CPT^ICPTCOD PRDSP+14
PID^VADPT6 BLD+4
EN^VALM EN+8
$$FTIME^VALM1 PRDSP+10
$$SETSTR^VALM1 HDR+3, HDR+5, PRDSP+5, PRDSP+10, PRDSP+11, PRDSP+16, PRDSP+20
CLEAR^VALM1 HELP+3, EXIT+5
FULL^VALM1 PATDEL+4, ADDPAT+4
PAUSE^VALM1 HELP+2, HELP+4, HELP+6, PATDEL+11, ADDPAT+7
CLEAN^VALM10 INIT+4, EXIT+5
CNTRL^VALM10 PRDSP+6
EN^VALM2 PATDEL+5
DISP^XQORM1 HLPS+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ENPATQ+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: HLPS+2
Function Call: WRITE
  • Prompt: !,$S(ECZ["$PAUSE":"",1:ECZ)
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !,"Possible actions are the following:"
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !!,*7,">>> This patient could not be found. <<<"
  • Line Location: PATDEL+11
Function Call: WRITE
  • Prompt: !!,*7,">>> No patient entered. <<<"
  • Line Location: ADDPAT+7
Routine Call
  • VALM
  • Line Location:
    • EN+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^EC(725 - [#725] PRDSP+13
^ECJ("AP" SEL+24
^TMP("ECMPIDX" SEL+24, PRDSP+8, PRDSP+10, PRDSP+11, PRDSP+12, PRDSP+14, PRDSP+15, PRDSP+19, PRDSP+20
^TMP("ECMPT" INIT+3!, INIT+13*, SET+2*, SET+3*, EXIT+3!
^TMP("ECMPTIDX" INIT+3!, BLDLM+13*, BLDLM+16*, PATDEL+8
^TMP("ECPAT" SEL+5, SEL+6, BLDPAT+4*, BLDPAT+5*, BLDPAT+6*, BLDPAT+9*, BLDPAT+10*, BLD+3, BLDLM+5, BLDLM+13
, BLDLM+15, BLDLM+16, EXIT+3!, PATDEL+9, PATDEL+10!
^TMP("ECPLST" REMOVNM+5, REMOVNM+6!

Label References

Name Line Occurrences
BLD INIT+12
BLDLM BLD+5
BLDPAT SEL+29
ENPAT EN+5, ADDPAT+5
ENPATQ SEL+5, SEL+6, SEL+9, SEL+19, SEL+28
HLPQ HELP+2
HLPS HELP+2, HELP+6
PRDSP BLD+6
REMOVNM PATDEL+10
SEL ENPATQ
SET BLDLM+8, PRDSP+4, PRDSP+5, PRDSP+17, PRDSP+21, PRDSP+23

Naked Globals

Name Field # of Occurrence
^( PATDEL+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BL INIT+2~, INIT+7*, BLDLM+4, BLDLM+5, BLDLM+6
DC INIT+2~
DFN BLD+2~, BLD+4!*
DW INIT+2~
ECADD ADDPAT+2~
>> ECCAT SEL+24, HDR+5
ECCPT PRDSP+2~, PRDSP+12*, PRDSP+13*, PRDSP+14*, PRDSP+15
ECDAT PATDEL+8!*, PATDEL+10, PATDEL+14!
ECDFN BLD+2~, BLD+3*, BLD+4, BLDLM+5, BLDLM+13, BLDLM+15, BLDLM+16
>> ECDSSU SEL+12, SEL+24, SEL+27, HDR+4
ECFL ENPAT~, SEL+1*, SEL+5*
ECFND PATDEL+2~, PATDEL+6*, PATDEL+9, PATDEL+10*, PATDEL+11, PATDEL+12
ECGO EN+2~, EN+5, EN+8
ECI PATDEL+2~, PATDEL+9*, PATDEL+10, REMOVNM~, REMOVNM+2, REMOVNM+6
>> ECL SEL+24, HDR+2
>> ECLN HDR+2
ECNODE BLDPAT+2~, BLDPAT+7*, BLDPAT+9
ECNUM BLDPAT+2~, BLDPAT+3*, BLDPAT+8*, BLDPAT+9
ECNXT EN+2~, SEL!, SEL+4*, SEL+5, SEL+6, ENPATQ
ECOK ADDPAT+2~, ADDPAT+5, ADDPAT+6, ADDPAT+7
ECONE ENPAT~, ENPATQ
ECORD EN+2~, SEL!, SEL+18*, SEL+19, BLDPAT+6
ECPAT EN+2~, SEL!, SEL+4, SEL+9, SEL+12, SEL+19, SEL+28, BLDPAT+4, BLDPAT+5, BLDPAT+6
, BLDPAT+9, BLDPAT+10
ECPCE EN+2~, SEL!, SEL+27
ECPCE( BLDPAT+9
ECPCE("CLIN" BLDPAT+9
ECPCE("DX" BLDPAT+9
ECPCE("DXS" BLDPAT+10
ECPCE("I/O" SEL+12, SEL+15
ECPCEQ EN+2~, SEL!, SEL+27*, SEL+28, SEL+29
ECPLST EXIT+2!
ECPR PRDSP+2~, PRDSP+15*, PRDSP+16
ECPTCNT INIT+2~, INIT+6*, BLDLM+3*, BLDLM+4, BLDLM+13, BLDLM+16, SET+3
ECS EN+2~, SEL!, SEL+1*, SEL+24*, SEL+27
ECSEL PATDEL+2~, PATDEL+6*, PATDEL+7*, PATDEL+8
>> ECU(1 HDR+3
ECX BLD+2~, BLDLM+2!, BLDLM+3*, BLDLM+4*, BLDLM+5*, BLDLM+6*, BLDLM+8, REMOVNM+3~, REMOVNM+4*, REMOVNM+5*
, REMOVNM+6
ECZ HELP+1*, HELP+4*, HLPQ!
I PRDSP+2~, PRDSP+3*, PRDSP+8*, PRDSP+10, PRDSP+11, PRDSP+12, PRDSP+14, PRDSP+15, PRDSP+19, PRDSP+20
, HELP+4*, HLPQ!
IC INIT+2~, INIT+8*, BLDLM+4
>> IORVOFF PRDSP+6
>> IORVON PRDSP+6
IW INIT+2~, INIT+8*, BLDLM+4
J PRDSP+2~, PRDSP+19*, PRDSP+20
NC INIT+2~
NW INIT+2~
PC INIT+2~, INIT+9*, BLDLM+5
PW INIT+2~, INIT+9*, BLDLM+5
RC INIT+2~
RW INIT+2~
SC INIT+2~, INIT+10*, BLDLM+6
SW INIT+2~, INIT+10*, BLDLM+6
VA BLD+2~
VA("PID" BLDLM+6
VAERR BLD+2~
>> VALMBCK HELP+6*, PATDEL+3*, PATDEL+13*, ADDPAT+3*, ADDPAT+8*
>> VALMCNT INIT+6*, INIT+13, BLDLM+13, SET+2*, SET+3, PRDSP+6
VALMDDF EXIT+4!
VALMDDF("INDEX" INIT+8
VALMDDF("PATIENT" INIT+9
VALMDDF("SSN" INIT+10
>> VALMHDR(1 HDR+2*, HDR+3*
>> VALMHDR(2 HDR+4*, HDR+5*
>> VALMWD BLDLM+3, BLDLM+4, BLDLM+5, BLDLM+6, PRDSP+16, PRDSP+20
VALMY PATDEL+2~
VALMY( PATDEL+7
X INIT+2~, INIT+8*, INIT+9*, INIT+10*, SET~, SET+2, PRDSP+2~, PRDSP+9*, PRDSP+10*, PRDSP+11*
, PRDSP+16*, PRDSP+17, PRDSP+19*, PRDSP+20*, PRDSP+21, HLPS+2*, HELP+2
>> XQORNOD(0 PATDEL+5
Y HELP+4, HLPQ!

Marked Items

Name Field # of Occurrence
$T(HELPTXT+I HELP+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items  | All