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

Package: Event Capture

Routine: ECMLMP


Information

ECMLMP ;ALB/ESD - Multiple procedure dates and procedures ;22 AUG 1997 11:11

Source Information

Source file <ECMLMP.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
List Manager 4 EN^VALM  ($$FTIME,$$SETSTR,CLEAR,FULL,PAUSE)^VALM1  CLEAN^VALM10  EN^VALM2  
Event Capture 2 INIT^ECMLMP  ($$ASKPRDT,ASKPRO)^ECMUTL  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Kernel 1 DISP^XQORM1  

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

Package Total Caller Graph
Event Capture 7 EC MUL ADD PROCDT  EC MUL DEL PROCDT  EC MUL PROC ADD  EC MUL PROC DEL  EC MUL PROCEDURES  ECMLMD  ECMLMP  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
EN ;- ListMan entry point
HDR ;- Display location, provider #1, DSS Unit, and Category as header
INIT ;- Initialize variables and call BLD which does processing
BLD ;- Combine arrays and build lines with data for display
BLDLM ;- Build each line for display and create ^TMP("ECMPIDX",$J) array
SET(X) ;- Create display array ^TMP("ECMP",$J)
HLPS ;- Brief help
HELP ;- Help for list
HLPQ
EXIT ;- Clean up and exit
COMBINE ;- Combine proc date array and procedure array
PRDTDEL ;- Entry point for EC MUL DEL PROCDT protocol
PRDTDLQ
PRDEL ;- Entry point for EC MUL PROC DEL protocol
PRDELQ
PRDTADD ;- Entry point for EC MUL ADD PROCDT protocol
PRDTADQ
PRADD ;- Entry point for EC MUL ADD PROC protocol
PRADDQ
HELPTXT ; -- help text

External References

Name Field # of Occurrence
INIT^ECMLMP PRDTDEL+14, PRDEL+14, PRDTADD+8, PRADD+8
$$ASKPRDT^ECMUTL PRDTADD+5
ASKPRO^ECMUTL PRDTADD+7, PRADD+7
$$CPT^ICPTCOD BLDLM+9
EN^VALM EN+2
$$FTIME^VALM1 BLDLM+5
$$SETSTR^VALM1 HDR+3, HDR+5
CLEAR^VALM1 HELP+3, EXIT+5
FULL^VALM1 PRDTDEL+4, PRDEL+4, PRDTADD+4, PRADD+4
PAUSE^VALM1 HELP+2, HELP+4, HELP+6, PRDTDEL+12, PRDEL+12, PRDTADD+6, PRADD+9
CLEAN^VALM10 INIT+3, EXIT+5
EN^VALM2 PRDTDEL+5, PRDEL+5
DISP^XQORM1 HLPS+2

Interaction Calls

Name Line Occurrences
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 procedure date could not be found. <<<"
  • Line Location: PRDTDEL+12
Function Call: WRITE
  • Prompt: !!,*7,">>> This procedure could not be found. <<<"
  • Line Location: PRDEL+12
Function Call: WRITE
  • Prompt: !!,*7,">>> No Procedure Date entered. <<<"
  • Line Location: PRDTADD+6
Function Call: WRITE
  • Prompt: !!,*7,">>> At least one procedure date must exist before adding a procedure.",!," Please add a procedure date first. <<<"
  • Line Location: PRADD+9
Routine Call
  • VALM
  • Line Location:
    • EN+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^EC(725 - [#725] BLDLM+8
^TMP("ECM" INIT+4!, BLD+5, BLD+6, BLDLM+6, BLDLM+7, BLDLM+10, BLDLM+12, BLDLM+16, BLDLM+18, BLDLM+20
, BLDLM+21, BLDLM+23, BLDLM+27, EXIT+3!, COMBINE+7*, COMBINE+8*
^TMP("ECMP" INIT+4!, INIT+18*, SET+2*, SET+3*, EXIT+3!
^TMP("ECMPIDX" INIT+4!, BLDLM+16*, BLDLM+23*, PRDTDEL+8, PRDEL+8
^TMP("ECPRDT" EXIT+2!, COMBINE+4, PRDTDEL+10, PRDTDEL+11!, PRDTDEL+13, PRDEL+13!, PRADD+9
^TMP("ECPROC" EXIT+2!, COMBINE+5, COMBINE+6, COMBINE+8, PRDTDEL+13!, PRDEL+9, PRDEL+11!, PRDEL+13, PRDTADD+7, PRDTADD+8
, PRADD+5

Label References

Name Line Occurrences
BLD INIT+17
BLDLM BLD+6
COMBINE BLD+2
HLPQ HELP+2
HLPS HELP+2, HELP+6
PRDTADQ PRDTADD+6
SET BLDLM+14, BLDLM+22, BLDLM+28, BLDLM+29

Naked Globals

Name Field # of Occurrence
^( PRDTDEL+8, PRDEL+8, PRDEL+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BL INIT+2~, INIT+8*, BLDLM+4, BLDLM+5, BLDLM+6, BLDLM+11, BLDLM+12, BLDLM+19, BLDLM+21, BLDLM+22
, BLDLM+27, BLDLM+29
DC INIT+2~, INIT+10*, BLDLM+5
DW INIT+2~, INIT+10*, BLDLM+5
ECADD PRDTADD+2~, PRDTADD+3*, PRDTADD+5*, PRDTADD+6, PRDTADD+7, PRDTADD+8
ECAP PRADD+2~, PRADD+5*, PRADD+6, PRADD+7, PRADD+9
>> ECCAT HDR+5, PRDTADD+7, PRADD+7
ECCPT BLDLM+2~, BLDLM+7*, BLDLM+8*, BLDLM+9*, BLDLM+10
ECDAT PRDTDEL+8!*, PRDTDEL+9, PRDTDEL+16!
ECDATE PRDTDEL+2~, PRDTDEL+9*, PRDTDEL+11
ECDP PRDTDEL+2~, PRDTDEL+10*, PRDTDEL+11, PRDEL+2~, PRDEL+9*, PRDEL+11
>> ECDSSU HDR+4, PRDTADD+5, PRDTADD+7, PRADD+7
ECFND PRDTDEL+2~, PRDTDEL+6*, PRDTDEL+10, PRDTDEL+11*, PRDTDEL+12, PRDTDEL+14, PRDEL+2~, PRDEL+6*, PRDEL+9, PRDEL+11*
, PRDEL+12, PRDEL+14
ECI PRDEL+8!*, PRDEL+10, PRDEL+16!
>> ECL HDR+2, PRDTADD+7, PRADD+7
>> ECLN HDR+2
ECN PRDEL+9!*, PRDEL+10, PRDEL+16!
ECNT BLD+4~, BLD+6*, BLDLM+6, BLDLM+7, BLDLM+10, BLDLM+12, BLDLM+16, BLDLM+18, BLDLM+20, BLDLM+21
, BLDLM+23, BLDLM+27, COMBINE+2~, COMBINE+3*, COMBINE+7*, COMBINE+8
ECPCNT INIT+2~, INIT+7*, BLDLM+3*, BLDLM+4, BLDLM+16, BLDLM+23, SET+3
ECPD BLD+4~, BLD+5*, BLD+6, BLDLM+5, BLDLM+6, BLDLM+7, BLDLM+9, BLDLM+10, BLDLM+12, BLDLM+16
, BLDLM+18, BLDLM+20, BLDLM+21, BLDLM+23, BLDLM+27
ECPDT COMBINE+2~, COMBINE+3*
ECPR BLDLM+2~, BLDLM+10*, BLDLM+11, COMBINE+2~, COMBINE+3*, COMBINE+6*, COMBINE+7
ECSEL PRDTDEL+2~, PRDTDEL+6*, PRDTDEL+7*, PRDTDEL+8, PRDEL+2~, PRDEL+6*, PRDEL+7*, PRDEL+8
>> ECU(1 HDR+3
ECX BLD+4~, BLDLM+2!, BLDLM+3*, BLDLM+4*, BLDLM+5*, BLDLM+6*, BLDLM+11*, BLDLM+12*, BLDLM+14, BLDLM+19*
, BLDLM+21*, BLDLM+22!*, BLDLM+25!, BLDLM+26*, BLDLM+27*, BLDLM+28, BLDLM+29!*, COMBINE+2~, COMBINE+3*, COMBINE+4*
, COMBINE+7, COMBINE+8
ECY COMBINE+2~, COMBINE+3*, COMBINE+5*, COMBINE+6, COMBINE+8
ECZ HELP+1*, HELP+4*, HLPQ!
I HELP+4*, HLPQ!
IC INIT+2~, INIT+9*, BLDLM+4
IW INIT+2~, INIT+9*, BLDLM+4
MC INIT+2~, INIT+15*, BLDLM+21
MOD BLDLM+18!, BLDLM+19*, BLDLM+20*, BLDLM+21
MW INIT+2~, INIT+15*, BLDLM+21
NC INIT+2~, INIT+11*, BLDLM+6
NW INIT+2~, INIT+11*, BLDLM+6
PC INIT+2~, INIT+12*, BLDLM+11
PW INIT+2~, INIT+12*, BLDLM+11
RC INIT+2~, INIT+14*, BLDLM+27
RW INIT+2~, INIT+14*, BLDLM+27
U BLDLM+9
>> VALMBCK HELP+6*, PRDTDEL+3*, PRDTDEL+15*, PRDEL+3*, PRDEL+15*, PRDTADD+3*, PRDTADQ*, PRADD+3*, PRADD+10*
>> VALMCNT INIT+7*, INIT+18, BLDLM+16, SET+2*, SET+3
VALMDDF EXIT+4!
VALMDDF("INDEX" INIT+9
VALMDDF("MODIFIER" INIT+15
VALMDDF("PROC DT" , INIT+10,  NUM" , INIT+11
VALMDDF("PROCEDURE" INIT+12
VALMDDF("REASON" INIT+14
VALMDDF("VOL" INIT+13
>> VALMHDR(1 HDR+2*, HDR+3*
>> VALMHDR(2 HDR+4*, HDR+5*
>> VALMWD BLDLM+3, BLDLM+4, BLDLM+5, BLDLM+6, BLDLM+11, BLDLM+12, BLDLM+21, BLDLM+27
VALMY PRDTDEL+2~, PRDEL+2~
VALMY( PRDTDEL+7, PRDEL+7
VC INIT+2~, INIT+13*, BLDLM+12
VW INIT+2~, INIT+13*, BLDLM+12
X INIT+2~, INIT+9*, INIT+10*, INIT+11*, INIT+12*, INIT+13*, INIT+14*, INIT+15*, SET~, SET+2
, HLPS+2*, HELP+2
>> XQORNOD(0 PRDTDEL+5, PRDEL+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