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

Package: DSS Extracts

Routine: ECXFELOC


Information

ECXFELOC ;BIR/DMA,CML-Print Feeder Locations; [ 05/07/96 8:41 AM ] ;5/20/19 11:24

Source Information

Source file <ECXFELOC.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$HTFM^XLFDT  
DSS Extracts 2 ($$GETDIV,$$RADDIV)^ECXDEPT  ($$EXPORT,EXPDISP)^ECXUTL1  
VA FileMan 2 ^DIC  ^DIR  
Outpatient Pharmacy 1 PSS^PSO59  

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

Package Total Caller Graph
DSS Extracts 1 ECXFELOC  
Event Capture 1 ECXFELOC  

Entry Points

Name Comments DBIA/ICR reference
EN ;entry point from option
START ;queued entry point
LAB
ECS
IV
CLI
PRE
V6
RAD
NUR ;S EC=0 F S EC=$O(^NURSF(211.4,EC)) Q:'EC I $D(^(EC,0)) S EC1=$P(^(0),U),EC1=$P($G(^SC(+EC1,0)),U),^TMP($J,"NUR",EC,EC)=EC1 ;132
SUR ;174, Updated surgery section
UDP
DEN ;S EC=0 F S EC=$O(^DENT(225,EC)) Q:'EC I $D(^(EC,0)) S EC1=$P(^(0),U),^TMP($J,"DEN",EC1,EC)="Dental "_EC1
PRO ;Prosthetics Location Information. API added in patch 136
PRINT ;
OUT
HEAD ;
FEED1 ;or location names
FEED2 ;service location names

External References

Name Field # of Occurrence
^%ZIS EN+13
^%ZISC EN+14, OUT+3
^%ZTLOAD EN+14
^DIC PRO+5
^DIR EN+5, OUTHEAD+2
$$GETDIV^ECXDEPT IVCLI+1, UDP
$$RADDIV^ECXDEPT LABECSRADSUR+20, SUR+25, SUR+30, SUR+33, SUR+37, SUR+41, SUR+42
PRO+7
$$EXPORT^ECXUTL1 EN+7
EXPDISP^ECXUTL1 EN+12
PSS^PSO59 PRE
$$HTFM^XLFDT START+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Print list of feeder locations.",!
  • Line Location: EN+1
Function Call: WRITE
  • Prompt: !,"Select : 1. CLI",!,?9,"2. ECS",!,?9,"3. IVP",!,?9,"4. LAB",!,?9,"5. PRE",!,?9,"6. PRO",!,?9,"7. RAD",!,?9,"8. SUR",!,?9,"9. UDP",!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $Y!($E(IOST)="C")
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: !,?15,"Feeder Location List For Feeder System ",EC,?70,"Page: ",PG,!!,"FEEDER LOCATION",?18,"DIVISION",?28,"DESCRIPTION",!,LN
  • Line Location: HEAD+3
Routine Call
  • %ZIS
  • Line Location:
    • EN+13
Routine Call
  • DIC
  • Line Location:
    • PRO+5
Routine Call
  • DIR
  • Line Location:
    • EN+5
    • OUT
    • HEAD+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] IVUDP
^DIC(40.7 - [#40.7] CLI
^DIC(59 PRE+2
^ECD - [#724] ECSECS+1
^ECJ - [#720.3] ECS
^ECK( ECS+1
^ECX(727.811 - [#727.811] SUR+9
^ECX(727.826 - [#727.826] PRO+2
^LRO(68 - [#68] LAB
^RA(79 - [#79] RAD
^RA(79.2 - [#79.2] RAD
^SC - [#44] CLICLI+1
^TMP($J EN+9!, EN+10*, START+3!, LAB*, ECS*, ECS+1*, IV*, CLI+1*, PRE+2*, V6*
, RAD*, SUR+2!, SUR+4*, SUR+5*, SUR+20*, SUR+25*, SUR+30*, SUR+33*, SUR+37*, SUR+41*
SUR+42*, SUR+43!, UDP*, PRO+7*, PRINT+1, PRINT+2*, OUT+2!

Label References

Name Line Occurrences
CLI START+4
ECS START+4
HEAD PRINT+1, PRINT+3
IV START+4
LAB START+4
OUT EN+14
PRE START+4
PRINT START+5
PRO START+4
RAD START+4
START EN+11
SUR START+4
UDP START+4
V6 PRE

Naked Globals

Name Field # of Occurrence
^( ECSECS+1, CLIPRE+2, V6RADPRINT+2, PRINT+3
^(0 ECSECS+1, IVCLIPRE+2, RADSUR+9, UDP

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+13!*
ARRAY PRE~*, V6V6+1
CNT EN+2~, EN+10*, PRINT+2*
DAT CLI+1*, OUT+2!
>> DIC PRO+5*
>> DIC(0 PRO+5*
DIR EN+2~, EN+6!, OUT!, HEAD+2!
DIR("?" EN+3*
DIR("A" EN+4*
DIR("B" EN+4*
DIR(0 EN+5*, OUT*, HEAD+2*
DIRUT EN+2~, EN+5
DIV SUR+1~, SUR+9*, SUR+16, SUR+20, SUR+25, SUR+30, SUR+33, SUR+37, SUR+41, SUR+42
PRO+1~, PRO+4*, PRO+5, PRO+6, PRO+7
DT START+2*, CLI+1
DTOUT EN+2~
DUOUT EN+2~
EC START+1~, START+4*, LAB*, ECS*, ECS+1*, IV*, CLI*, CLI+1, PRE+2*, V6*
, RAD*, SUR+1~, SUR+9*, SUR+11, SUR+13, SUR+15, SUR+18, SUR+23, SUR+27, SUR+28
SUR+32, SUR+35, SUR+36, SUR+40, UDP*, PRINT+1*, PRINT+2, OUT+2!, HEAD+3
EC1 LAB*, ECS*, ECS+1*, IV*, CLI*, CLI+1, PRE+2*, V6*, RAD*, UDP*
PRINT+1*, PRINT+2, PRINT+3, OUT+2!
EC2 ECS*, ECS+1*, PRINT+1*, PRINT+2, PRINT+3, OUT+2!
EC3 OUT+2!
EC31 SUR+1~, SUR+28*
ECD CLI*, CLI+1, RAD*, OUT+2!
ECD1 RAD*, OUT+2!
ECF1 SUR+1~, SUR+11*, SUR+12, SUR+13*, SUR+14*, SUR+15*, SUR+16, SUR+20, SUR+25, SUR+30
SUR+33, SUR+37, SUR+41, SUR+42
ECFL SUR+1~, SUR+16*, SUR+19, SUR+24, SUR+29, SUR+33, SUR+35, SUR+37, SUR+39, SUR+41
SUR+42
ECFLX SUR+1~, SUR+19*, SUR+20, SUR+24*, SUR+25, SUR+29*, SUR+30
ECFX SUR+1~, SUR+28*, SUR+29, SUR+30
ECLIST START+1~, START+4*
>> ECQ SUR+23*, SUR+27*, SUR+32*, SUR+36*, SUR+40*
ECS CLI*, CLI+1, OUT+2!
ECSC CLI*, CLI+1, OUT+2!
ECXPORT EN+2~, EN+7*, EN+8, START+3, PRINT+1, PRINT+2, OUTOUT+2, OUT+3
ECY EN+2~, EN+6*, START+4
F1 SUR+1~, SUR+4*
F1NM SUR+1~, SUR+4*, SUR+5
F1SUB SUR+1~, SUR+4*, SUR+5
F2 SUR+1~, SUR+5*
F2NM SUR+1~, SUR+5*
F2SUB SUR+1~, SUR+5*
FL SUR+1~
FL( SUR+5*, SUR+30
FL("A" SUR+25
FL("I" SUR+20
ID CLI+1*, OUT+2!
IEN PRO+1~, PRO+2*
IO START+5
IO("Q" EN+14
IOF OUT+3, HEAD+3
IOSL PRINT+3
IOST OUTOUT+3, HEAD+1, HEAD+2, HEAD+3
J SUR+1~, SUR+9*
JJ OUT+1*, OUT+2!, HEAD+1*
LN START+3*, OUT+2!, HEAD+3
LOC PRO+1~, PRO+2*, PRO+3*, PRO+4, PRO+6, PRO+7
LOC( PRO+2*, PRO+3
ORDER PRO+1~, PRO+6*, PRO+7
PG START+3*, OUT+2!, HEAD+2, HEAD+3*
POP EN+13, OUT+2!
QFLG EN+1*, START+3*, PRINT+1, PRINT+3, OUTOUT+2!, HEAD+2*
RD CLI+1*, OUT+2!
SIEN EN+2~, LAB*
SS OUT+1*, OUT+2!, HEAD+1*
U LABECSECS+1, IVCLICLI+1, PRE+2, V6RADSUR+4
SUR+5, SUR+9, SUR+11, SUR+13, SUR+15, SUR+18, SUR+20, SUR+23, SUR+25, SUR+27
SUR+28, SUR+30, SUR+32, SUR+33, SUR+35, SUR+36, SUR+37, SUR+40, SUR+41, SUR+42
UDPPRO+2, PRO+7, PRINT+2, PRINT+3
X EN+2~, SUR+1~, SUR+4*, SUR+5*, PRO+1~, PRO+5*, OUT+2!
Y EN+2~, EN+6, PRO+5, PRO+7, OUT+2!, HEAD+2
ZTDESC EN+2~, EN+14*
>> ZTQUEUED OUT+3
>> ZTREQ OUT+3*
ZTRTN EN+2~, EN+14*
ZTSAVE EN+2~
ZTSAVE("ECY" EN+14*

Marked Items

Name Field # of Occurrence
$T(FEED1+F1 SUR+4
$T(FEED2+F2 SUR+5
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