Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

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

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
Info |  Source |  Entry Points |  Interaction Calls