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

Package: DSS Extracts

Routine: ECXAPRO2


Information

ECXAPRO2 ;ALB/JAP - PRO Extract Audit Report (cont) ;12/4/19 09:48

Source Information

Source file <ECXAPRO2.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
DSS Extracts 4 PROCESS^ECXAPRO  ^ECXAPRO3  ($$EXPORT,EXPDISP)^ECXUTL1  DEVICE^ECXUTLA  
Kernel 2 HOME^%ZIS  ^%ZISC  
VA FileMan 1 ^DIR  

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
DSS Extracts 1 ECXAPRO  

Entry Points

Name Comments DBIA/ICR reference
ASK ;further detail needed?
ASK2 ;select nppd group to be expanded
ASK3(ECXY) ;select nppd line item
CODE ;setup nppd codes
DISP ;display all records within nppd code group
HEADER ;header and page control

External References

Name Field # of Occurrence
HOME^%ZIS ASK3+30
^%ZISC ASK3+29
^DIR ASK+4, ASK2+15, ASK3+9, DISP+11, DISP+25, HEADER+3
PROCESS^ECXAPRO ASK3+18, ASK3+27
^ECXAPRO3 CODE+4
$$EXPORT^ECXUTL1 ASK3+14
EXPDISP^ECXUTL1 ASK3+20
DEVICE^ECXUTLA ASK3+23

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+2
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: ASK2+2
Function Call: WRITE
  • Prompt: !,?5,"1. WHEELCHAIRS AND ACCESSORIES"
  • Line Location: ASK2+3
Function Call: WRITE
  • Prompt: !,?5,"2. ARTIFICIAL LEGS"
  • Line Location: ASK2+4
Function Call: WRITE
  • Prompt: !,?5,"3. ARTIFICIAL ARMS AND TERMINAL DEVICES"
  • Line Location: ASK2+5
Function Call: WRITE
  • Prompt: !,?5,"4. BRACES AND ORTHOTICS"
  • Line Location: ASK2+6
Function Call: WRITE
  • Prompt: !,?5,"5. SHOES/ORTHOTICS"
  • Line Location: ASK2+7
Function Call: WRITE
  • Prompt: !,?5,"6. NEUROSENSORY AIDS"
  • Line Location: ASK2+8
Function Call: WRITE
  • Prompt: !,?5,"7. RESTORATIONS"
  • Line Location: ASK2+9
Function Call: WRITE
  • Prompt: !,?5,"8. OXYGEN AND RESPIRATORY"
  • Line Location: ASK2+10
Function Call: WRITE
  • Prompt: !,?5,"9. MEDICAL EQUIPMENT, MISC., ALL OTHER NEW"
  • Line Location: ASK2+11
Function Call: WRITE
  • Prompt: !,?5,"10. REPAIR",!!
  • Line Location: ASK2+12
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: ASK3+2
Function Call: WRITE
  • Prompt: !?5,BRC_".",?10,BR,?18,^TMP($J,"RMPRCODE",BR)
  • Line Location: ASK3+4
Function Call: WRITE
  • Prompt: !?5,BRC_".",?10,BR,?18,^TMP($J,"RMPRCODE",BR)
  • Line Location: ASK3+5
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK3+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK3+21
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DISP+24
Function Call: WRITE
  • Prompt: !
  • Line Location: HEADER+2
Function Call: WRITE
  • Prompt: !,ECXARRAY("TYPE")_" ("_ECXHEAD_") Extract Audit Report Detail",?72,"Page ",PG
  • Line Location: HEADER+6
Function Call: WRITE
  • Prompt: !,"DSS Extract Log #: "_ECXEXT
  • Line Location: HEADER+7
Function Call: WRITE
  • Prompt: !,"Date Range of Audit: "_ECXARRAY("START")_" to "_ECXARRAY("END")
  • Line Location: HEADER+8
Function Call: WRITE
  • Prompt: !,"Station: "_$P(ECXDIV,U,2)_" ("_$P(ECXDIV,U,3)_")"
  • Line Location: HEADER+9
Function Call: WRITE
  • Prompt: !,"Division: "_$P(ECXDIV,U,2)_" ("_$P(ECXDIV,U,3)_")"
  • Line Location: HEADER+10
Function Call: WRITE
  • Prompt: !,"Report Run Date/Time: "_ECXRUN
  • Line Location: HEADER+11
Function Call: WRITE
  • Prompt: !,LN,!,ECXCODE," -- ",^TMP($J,"RMPRCODE",ECXCODE),?74,"NPPD"
  • Line Location: HEADER+12
Function Call: WRITE
  • Prompt: !,"NAME",?5,"SSN",?10,"HCPCS",?17,"QTY",?26,"TYP",?30,"COST",?37,"DATE",?43,"HCPCS DESC",?64,"STN#",?72,"ENTRY DT"
  • Line Location: HEADER+13
Function Call: WRITE
  • Prompt: !,LN,!
  • Line Location: HEADER+14
Routine Call
  • %ZIS
  • Line Location:
    • ASK3+30
Routine Call
  • DIR
  • Line Location:
    • ASK+4
    • ASK2+15
    • ASK3+9
    • DISP+11
    • DISP+25
    • HEADER+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J ASK3+3, ASK3+4, ASK3+5, ASK3+15!, ASK3+16*, ASK3+27, CODE+3, CODE+5*, DISP+6, DISP+13
, DISP+14, DISP+19*, HEADER+12

Label References

Name Line Occurrences
ASK2 ASK+7, ASK2+20
ASK3 ASK2+17
CODE ASK2+1
DISP ASK3+19, ASK3+28
HEADER DISP+5, DISP+16, DISP+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BR ASK3+1~, ASK3+2*, ASK3+3*, ASK3+4, ASK3+5
BRC ASK3+1~, ASK3+2*, ASK3+4*, ASK3+5*, ASK3+7
CNT ASK3+1~, ASK3+17*, DISP+19*
CODE ASK3+1~, ASK3+2!
CODE( ASK3+4*, ASK3+5*, ASK3+11
COST DISP+2~, DISP+18*, DISP+19, DISP+20
DATE DISP+2~, DISP+18*, DISP+19, DISP+20
DESC DISP+2~, DISP+18*, DISP+19, DISP+20
DIR ASK+4!, ASK2+15!, ASK3+9!, DISP+2~, DISP+11!, DISP+25!, HEADER+3!
DIR("A" ASK+3*, ASK2+14*, ASK3+8*
DIR("B" ASK+3*
DIR(0 ASK+3*, ASK2+13*, ASK3+7*, DISP+11*, DISP+25*, HEADER+3*
DIRUT ASK2+19!, DISP+2~
DTOUT ASK+5, ASK+7, ASK2+16, ASK2+18, ASK2+19!, ASK3+10, DISP+2~
DUOUT ASK+5, ASK+7, ASK2+16, ASK2+19!, ASK3+10, DISP+2~
>> ECXALL HEADER+9, HEADER+10
>> ECXARRAY("END" HEADER+8
>> ECXARRAY("START" HEADER+8
>> ECXARRAY("TYPE" HEADER+6
>> ECXCODE ASK3+11*, DISP+6, DISP+13, DISP+14, DISP+19, HEADER+12
ECXDESC ASK3+12*, ASK3+23, ASK3+26!
>> ECXDIV HEADER+9, HEADER+10
>> ECXEXT DISP+19, HEADER+7
>> ECXHEAD HEADER+6
ECXPGM ASK3+12*, ASK3+23, ASK3+26!
ECXPORT ASK3+1~, ASK3+14*, DISP+5, DISP+7, DISP+16, DISP+19, DISP+21
>> ECXRUN HEADER+11
ECXSAVE ASK3+23, ASK3+26!
ECXSAVE("ECXALL" ASK3+13*
ECXSAVE("ECXARRAY(" ASK3+13*
ECXSAVE("ECXCODE" ASK3+13*
ECXSAVE("ECXDIV(" ASK3+13*
ECXSAVE("ECXHEAD" ASK3+13*
ECXSAVE("ECXPRIME" ASK3+13*
ECXSAVE("ECXREPT" ASK3+13*
ECXSAVE("POP" ASK3+23
ECXSAVE("ZTSK" ASK3+25
ECXY ASK3~, ASK3+4, ASK3+5
HCPCS DISP+2~, DISP+18*, DISP+19, DISP+20
>> I CODE+4*
IO ASK3+29, DISP+3
IO(0 ASK3+29
IOF ASK2+2, ASK3+2, HEADER+5
IOSL DISP+16, DISP+22
IOST DISP+9, DISP+23, HEADER+1, HEADER+5
JJ DISP+2~, DISP+10*, DISP+24*, HEADER+2*
LN DISP+2~, DISP+4*, HEADER+12, HEADER+14
LOC DISP+2~, DISP+18*, DISP+19, DISP+20
NPPDED DISP+2~, DISP+18*, DISP+19, DISP+20
NULINE CODE+2~, CODE+4*, CODE+5
PG DISP+2~, DISP+4*, HEADER+3, HEADER+5*, HEADER+6
PTNAM DISP+2~, DISP+15*, DISP+19, DISP+20
QFLG DISP+2~, DISP+4*, DISP+9, DISP+13, DISP+16, DISP+21, DISP+22, DISP+23, HEADER+3*, HEADER+4
QTY DISP+2~, DISP+18*, DISP+19, DISP+20
RDX DISP+2~, DISP+12*, DISP+13*, DISP+14
RDXX DISP+2~, DISP+14*, DISP+15, DISP+17, DISP+18
SS DISP+2~, DISP+10*, DISP+24*, HEADER+2*
SSN DISP+2~, DISP+15*, DISP+19, DISP+20
TYPE DISP+2~, DISP+17*, DISP+19, DISP+20
U DISP+15, DISP+17, DISP+18, DISP+19, HEADER+9, HEADER+10
X ASK+1!
Y ASK+1!, ASK+5, ASK2+17, ASK3+11, HEADER+3

Marked Items

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