ECXPRO1 ;ALB/GTS - Prosthetics Extract for DSS (Continued) ;2/27/19 15:47
Source file <ECXPRO1.m>
| 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
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | Classic Fileman Calls |
| ^RMPR(661.1 - [#661.1] | Classic Fileman Calls, GET1^DIQ |
