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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ECXPRO1

Package: DSS Extracts

Routine: ECXPRO1


Information

ECXPRO1 ;ALB/GTS - Prosthetics Extract for DSS (Continued) ;2/27/19 15:47

Source Information

Source file <ECXPRO1.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
DSS Extracts 2 ECXMISLN^ECXPRO2  $$CPT^ECXUTL3  
VA FileMan 2 $$GET1^DIQ  EN^DIQ1  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Kernel 1 $$RJ^XLFSTR  

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

Package Total Caller Graph
DSS Extracts 3 ECXPRO  ECXPROCT  ECXUPRO1  

Entry Points

Name Comments DBIA/ICR reference
NTEG(ECXDFN,ECXLNE,ECXPIEN,ECXN0,ECXNLB,ECINST,ECXFORM) ;** Check for required fields
; Input
; ECXDFN - ien in file #2
; ECXLNE - line number variable (passed by reference)
; ECXPIEN - IEN for the Prosthetics record
; ECXN0 - zero node of the Prosthetics record
; ECXNLB - LB node of the Prosthetics record
; ECINST - station number being extracted
; ECXFORM - Form Requested On
; Output (to be KILLed by calling routine)
; ^TMP("ECX-PRO EXC",$J) - Array for the exception message
; ECXLNE - The number of the next line in the msg
; ECXSTAT2 - Patient Station Number
; ECXDATE - Delivery Date of Prosthesis
; ECXTYPE - Type of Transaction work performed
; ECXSRCE - Source of prosthesis
; ECXHCPCS - CPT/HCPCS code for prosthesis
; ECXRQST - Requesting Station
; ECXRCST - Receiving Station
; ECXPHCPC - PSAS HCPCS code; if 'unknown', then use CPT/HCPCS code
; ECXPHPCD - PSAS HCPCS Code Description ;187
; ECXNPPDC - NPPD code for repairs or new issues
; ECXHCPCD - PSAS HCPCS/CPT HCPCS Description
; Output (KILLed by NTEG)
; ECXMISS - 1 indicates missing information
; ECXGOOD - 0 indicates record should not be extracted
CHK ;*Check variables
; Input
; Variables set in and Output from NTEG^ECXPRO1
; Output
; ^TMP("ECX-PRO EXC",$J, - Global of records with integrity problems
PROSINFO(ECXDA,ECXLB,ECX0,ECXFORM) ;*Get Prosthetics Information

External References

Name Field # of Occurrence
$$GET1^DIQ NTEG+48, NTEG+49
EN^DIQ1 NTEG+33, NTEG+52, NTEG+64, NTEG+75
ECXMISLN^ECXPRO2 CHK+32
$$CPT^ECXUTL3 NTEG+44
$$CPT^ICPTCOD NTEG+57
$$RJ^XLFSTR PROSINFO+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] Classic Fileman Calls
^RMPR(661.1 - [#661.1] Classic Fileman Calls,  GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ICPT - [#81] NTEG+43
^RMPR(660 - [#660] NTEG+39, NTEG+46, PROSINFO+21, PROSINFO+27

Label References

Name Line Occurrences
CHK NTEG+79

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CPTSTR NTEG+28~
DA NTEG+32*, NTEG+33!, NTEG+51*, NTEG+53, NTEG+54, NTEG+55!, NTEG+63*, NTEG+64!, NTEG+74*, NTEG+75!
DIC NTEG+32*, NTEG+33!, NTEG+51*, NTEG+55!, NTEG+63*, NTEG+64!, NTEG+74*, NTEG+75!
DIQ NTEG+32*, NTEG+33!, NTEG+51*, NTEG+55!, NTEG+63*, NTEG+64!, NTEG+74*, NTEG+75!
DIQ(0 NTEG+32*, NTEG+51*, NTEG+63*, NTEG+74*
DR NTEG+32*, NTEG+33!, NTEG+51*, NTEG+55!, NTEG+63*, NTEG+64!, NTEG+74*, NTEG+75!
ECINST NTEG~, NTEG+34
ECX0 PROSINFO~, PROSINFO+22, PROSINFO+27
>> ECXBILST PROSINFO+21*
>> ECXCMOD NTEG+43*, NTEG+44
>> ECXCTAMT PROSINFO+21*, PROSINFO+27*, PROSINFO+29*, PROSINFO+33*, PROSINFO+38*, PROSINFO+42
ECXDA PROSINFO~, PROSINFO+21, PROSINFO+27
>> ECXDATE NTEG+42*, CHK+15
ECXDFN NTEG~, CHK+9
ECXDIC NTEG+31!, NTEG+33!, NTEG+55!, NTEG+64!, NTEG+75!
ECXDIC( NTEG+53, NTEG+54
ECXDIC(4 NTEG+33, NTEG+64, NTEG+75
ECXFORM NTEG~, NTEG+60, NTEG+65, NTEG+68, NTEG+71, NTEG+76, CHK+23, CHK+26, CHK+28, PROSINFO~
, PROSINFO+28
ECXGOOD NTEG+27~, NTEG+29*, NTEG+34*, NTEG+37*, NTEG+38*, NTEG+39*, NTEG+40*, NTEG+68*, NTEG+79, NTEG+80
CHK+21*, CHK+31*
>> ECXGRPR PROSINFO+27*
>> ECXHCPCS NTEG+43*, NTEG+44*, NTEG+56, CHK+21
ECXLB PROSINFO~, PROSINFO+29
>> ECXLLC PROSINFO+21*, PROSINFO+29*, PROSINFO+34*, PROSINFO+39*, PROSINFO+42
>> ECXLMC PROSINFO+21*, PROSINFO+29*, PROSINFO+35*, PROSINFO+40*, PROSINFO+42
ECXLNE NTEG~, CHK+32
>> ECXLOGIC PROSINFO+20, PROSINFO+42
ECXMISS NTEG+27~, CHK+6*, CHK+7*, CHK+8*, CHK+9*, CHK+10*, CHK+12*, CHK+14*, CHK+15*, CHK+16*
CHK+17*, CHK+18*, CHK+19*, CHK+20*, CHK+22*, CHK+24*, CHK+25*, CHK+26*, CHK+27*, CHK+29*
CHK+30, CHK+32
ECXN0 NTEG~, NTEG+29, NTEG+37, NTEG+38, NTEG+40, NTEG+42, NTEG+43
>> ECXNCOST PROSINFO+42*
ECXNLB NTEG~, NTEG+61, NTEG+72
>> ECXNLLC PROSINFO+42*
>> ECXNLMC PROSINFO+42*
>> ECXNPPDC NTEG+29*, NTEG+48*, NTEG+49*
>> ECXPHCPC NTEG+46*, NTEG+48, NTEG+49, NTEG+50, NTEG+51, NTEG+53*, NTEG+56*, NTEG+57
>> ECXPHCPD NTEG+54*
>> ECXPHPCD NTEG+57*
ECXPIEN NTEG~, NTEG+39, NTEG+46, CHK+32
>> ECXQTY PROSINFO+22*, PROSINFO+23*, PROSINFO+26*
>> ECXRCST NTEG+29*, NTEG+72*, NTEG+73, NTEG+74, NTEG+75*, NTEG+76*, CHK+29
>> ECXRQST NTEG+29*, NTEG+61*, NTEG+62, NTEG+63, NTEG+64*, NTEG+65*, CHK+24
>> ECXSRCE NTEG+42*, CHK+19
>> ECXSTAT2 NTEG+29*, NTEG+30, NTEG+32, NTEG+33*, NTEG+34, CHK+7
>> ECXTYPE NTEG+42*, NTEG+48, NTEG+49, CHK+17
MAXAMT PROSINFO+19~, PROSINFO+20*, PROSINFO+33, PROSINFO+34, PROSINFO+35
U NTEG+29, NTEG+37, NTEG+38, NTEG+39, NTEG+40, NTEG+42, NTEG+43, NTEG+46, NTEG+57, NTEG+61
, NTEG+68, NTEG+72, CHK+8, CHK+10, CHK+12, CHK+14, CHK+16, CHK+18, CHK+20, CHK+22
CHK+25, CHK+27, PROSINFO+21, PROSINFO+22, PROSINFO+27, PROSINFO+29
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All