ECXPRO1 ;ALB/GTS - Prosthetics Extract for DSS (Continued) ;2/27/19 15:47
Source file <ECXPRO1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^ICPT - [#81] | NTEG+43 |
| ^RMPR(660 - [#660] | NTEG+39, NTEG+46, PROSINFO+21, PROSINFO+27 |
| Name | Line Occurrences |
|---|---|
| CHK | NTEG+79 |
| >> | 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 |
