ECXNUT ;ALB/JRC Nutrition DSS Extract ; 10/31/08 1:57pm
Source file <ECXNUT.m>
| Package | Total | Call Graph |
|---|---|---|
| DSS Extracts | 10 | $$GETDIV^ECXDEPT ^ECXKILL GETMEALS^ECXNUT1 $$CBOC^ECXSCX2 ^ECXTRAC ($$ECXDATE,$$ECXTIME,$$PATCAT,$$PRVCLASS)^ECXUTL ($$ENROLLM,$$INP,$$PRIMARY,ECXDEF)^ECXUTL2 $$PAT^ECXUTL3 ($$ENCNUM,$$HNCI,$$OBSPAT,$$SHAD)^ECXUTL4 NPRF^ECXUTL5 |
| Registration | 2 | $$TSDATA^DGACT $$EMGRES^DGUTL |
| Dietetics | 1 | DATA^FHDSSAPI |
| Kernel | 1 | $$NPI^XUSNPI |
| VA FileMan | 1 | IX1^DIK |
| 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 |
|---|---|---|
| BEG | ;entry point from option
|
|
| START | ; start package specific extract
|
|
| GET | ;gather extract data
|
|
| PAT(ECXDFN) | ;get/set patient data
; INPUT - ECXDFN = patient ien (DFN) ; OUTPUT - ECPAT array: ; ECPAT("SSN") ; ECPAT("NAME") ; returns 0 or 1 in ECXERR - 0=successful ; 1=error condition |
|
| FILE | ;file the n&fs extract record
|
|
| SETUP | ;Set required input for ECXTRAC.
|
| Name | Field # of Occurrence |
|---|---|
| $$TSDATA^DGACT | FILE+28 |
| $$EMGRES^DGUTL | GET+60 |
| IX1^DIK | FILE+46 |
| $$GETDIV^ECXDEPT | GET+40 |
| ^ECXKILL | BEG+3 |
| GETMEALS^ECXNUT1 | START+10 |
| $$CBOC^ECXSCX2 | GET+41 |
| ^ECXTRAC | BEG+3 |
| $$ECXDATE^ECXUTL | GET+30, FILE+40 |
| $$ECXTIME^ECXUTL | GET+29 |
| $$PATCAT^ECXUTL | GET+63 |
| $$PRVCLASS^ECXUTL | GET+7 |
| $$ENROLLM^ECXUTL2 | GET+27 |
| $$INP^ECXUTL2 | GET+33 |
| $$PRIMARY^ECXUTL2 | GET+44 |
| ECXDEF^ECXUTL2 | SETUP+2 |
| $$PAT^ECXUTL3 | PAT+10 |
| $$ENCNUM^ECXUTL4 | GET+66 |
| $$HNCI^ECXUTL4 | GET+51 |
| $$OBSPAT^ECXUTL4 | GET+48 |
| $$SHAD^ECXUTL4 | GET+54 |
| NPRF^ECXUTL5 | GET+57 |
| DATA^FHDSSAPI | START+7 |
| $$NPI^XUSNPI | GET+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADM | GET+3~, GET+33*, GET+35, GET+36, GET+37, GET+38 |
| ARRAY | START+2~, START+3*, START+4, START+13 |
| DA | FILE+21~, FILE+46*! |
| >> DATE | GET+7, GET+8, GET+29, GET+30, GET+33, GET+44, GET+66 |
| DIK | FILE+21~, FILE+46*! |
| EC23 | BEG+1~, FILE+23 |
| EC7 | BEG+1~, FILE+22*, FILE+23, FILE+44, FILE+46 |
| ECCLASS | GET+3~, GET+45*, FILE+32 |
| ECED | BEG+1~, START+3*, START+7 |
| ECFILE | BEG+1~, BEG+2, FILE+22, FILE+44, FILE+46, SETUP+2 |
| ECGRP | BEG+1~, SETUP+2 |
| ECHEAD | BEG+1~, GET+66, SETUP+1*, SETUP+2 |
| ECINST | BEG+1~, FILE+23 |
| ECODE | FILE+21~, FILE+23*, FILE+31*, FILE+32*, FILE+33*, FILE+34*, FILE+35*, FILE+36*, FILE+44 |
| ECODE1 | FILE+21~, FILE+37*, FILE+38*, FILE+39*, FILE+40*, FILE+41*, FILE+42*, FILE+43*, FILE+44 |
| ECORNPI | GET+3~, GET+8*, GET+9*, FILE+41 |
| ECPACK | BEG+1~, SETUP+2 |
| ECPAT | GET+3~, PAT+10 |
| ECPAT("AO STA | T" , GET+20 |
| ECPAT("AOL" | GET+20 |
| ECPAT("COUNTRY" | GET+19 |
| ECPAT("COUNTY" | GET+18 |
| ECPAT("DOB" | GET+17 |
| ECPAT("EC STA | T" , GET+20 |
| ECPAT("ECXOEF" | GET+23 |
| ECPAT("ECXOEFDT" | GET+24 |
| ECPAT("ELIG" | GET+17 |
| ECPAT("ENROLL | LOC" , GET+17 |
| ECPAT("ETHNIC" | GET+17 |
| ECPAT("IR STA | T" , GET+20 |
| ECPAT("MEANS" | GET+18 |
| ECPAT("MPI" | GET+17 |
| ECPAT("MST ST | AT" , GET+18 |
| ECPAT("NAME" | GET+17 |
| ECPAT("PHI" | GET+18 |
| ECPAT("POS" | GET+20 |
| ECPAT("POW LO | C" , GET+18 |
| ECPAT("POW ST | AT" , GET+18 |
| ECPAT("RACE1" | GET+17 |
| ECPAT("SEX" | GET+17 |
| ECPAT("SSN" | GET+17 |
| ECPAT("STATE" | GET+18 |
| ECPAT("VET" | GET+17 |
| ECPAT("ZIP" | GET+18 |
| ECPIECE | BEG+1~, SETUP+2 |
| >> ECPTNPI | GET+45*, FILE+41 |
| ECPTPR | GET+3~, GET+45*, FILE+32 |
| ECPTTM | GET+3~, GET+45*, FILE+32 |
| ECRN | BEG+1~, FILE+45* |
| ECRTN | BEG+1~, SETUP+2 |
| ECSD | START+2~, START+3*, START+7 |
| ECSD1 | BEG+1~, START+3 |
| ECVER | BEG+1~, SETUP+2 |
| ECXA | GET+3~, GET+33*, GET+34, GET+48, GET+66, FILE+23 |
| ECXADMDT | GET+3~, GET+35*, GET+66, FILE+40 |
| ECXAOL | GET+2~, GET+20*, FILE+34 |
| ECXAST | GET+2~, GET+20*, FILE+34 |
| ECXATNPI | GET+3~, GET+37* |
| ECXATT | GET+3~, GET+37* |
| ECXATTPC | GET+3~, GET+38* |
| ECXCAT | GET+3~, FILE+33 |
| ECXCBOC | GET+3~, GET+41*, FILE+39 |
| ECXCNTRY | GET+4~, GET+19*, FILE+42 |
| ECXCNTY | GET+2~, GET+18*, FILE+36 |
| ECXCVE | GET+3~, FILE+39 |
| ECXDATA | FILE+27~, FILE+28* |
| ECXDATA(7 | FILE+29 |
| ECXDATE | GET+2~, GET+30*, FILE+31 |
| >> ECXDFL | FILE+38 |
| ECXDFN | GET+13*, GET+14, GET+27, GET+33, GET+44, GET+51, GET+54, GET+60, GET+63, PAT~ , PAT+10, FILE+23 |
| >> ECXDLT | FILE+38 |
| ECXDOB | GET+2~, GET+17*, FILE+32 |
| ECXDOM | GET+3~, GET+38*, FILE+37 |
| ECXELIG | GET+2~, GET+17*, FILE+34 |
| ECXENC | GET+3~, GET+66*, GET+67, FILE+37 |
| ECXENRL | GET+2~, GET+17*, FILE+33 |
| ECXERI | GET+3~, GET+60*, FILE+40 |
| ECXERR | GET+3~, GET+14*, GET+15, PAT+9*, PAT+11*, PAT+12 |
| ECXEST | GET+2~, GET+20*, FILE+35 |
| ECXETH | GET+2~, GET+17*, FILE+33 |
| ECXFAC | GET+3~, GET+36*, GET+40, GET+41 |
| >> ECXFDD | FILE+38 |
| >> ECXFPD | FILE+37 |
| >> ECXFPF | FILE+38 |
| ECXHNCI | GET+3~, GET+51*, FILE+35 |
| >> ECXKEY | FILE+38 |
| >> ECXLOGIC | FILE+41, FILE+42, FILE+43 |
| ECXMN | GET+2~, GET+35* |
| ECXMNS | GET+2~, GET+18*, FILE+36 |
| ECXMPI | GET+2~, GET+17*, FILE+32 |
| ECXMST | GET+2~, GET+18*, FILE+35 |
| ECXNPRFI | GET+3~, GET+57~, FILE+39 |
| ECXOBS | GET+3~, GET+48*, GET+66, FILE+37 |
| ECXOEF | GET+4~, GET+23*, FILE+41 |
| ECXOEFDT | GET+4~, GET+24*, FILE+41 |
| ECXORDPC | GET+2~, GET+7*, FILE+31 |
| >> ECXORDPH | GET+7, GET+8, GET+10*, FILE+31 |
| ECXPAT | PAT+10! |
| >> ECXPATCAT | GET+63*, FILE+43 |
| ECXPDIV | GET+3~, GET+40*, FILE+37 |
| ECXPHI | GET+2~, GET+18*, FILE+35 |
| ECXPLOC | GET+2~, GET+18*, FILE+35 |
| ECXPNM | GET+2~, GET+17*, FILE+23 |
| ECXPOS | GET+2~, GET+20*, FILE+34 |
| ECXPRIOR | GET+3~, FILE+34 |
| ECXPRNPI | GET+3~, GET+37* |
| ECXPRV | GET+3~, GET+37* |
| ECXPRVPC | GET+3~, GET+38* |
| ECXPST | GET+2~, GET+18*, FILE+35 |
| ECXPTYPE | GET+3~, FILE+39 |
| >> ECXQTY | FILE+38 |
| ECXRC1 | GET+2~, GET+17*, FILE+33 |
| ECXRST | GET+2~, GET+20*, FILE+34 |
| ECXSEX | GET+2~, GET+17*, FILE+32 |
| >> ECXSHADI | GET+54*, FILE+43 |
| ECXSPC | GET+2~, GET+35*, GET+48, GET+66, FILE+28, FILE+29*, FILE+31 |
| ECXSSN | GET+2~, GET+17*, GET+66, FILE+23 |
| ECXSTAT | GET+3~, FILE+33 |
| ECXSTATE | GET+2~, GET+18*, FILE+36 |
| >> ECXTFU | FILE+41 |
| ECXTM | GET+2~, GET+29*, FILE+31 |
| ECXUESTA | GET+3~, FILE+39 |
| ECXVET | GET+2~, GET+17*, FILE+33 |
| ECXWRD | GET+3~, GET+36* |
| ECXYM | BEG+1~, GET+30, FILE+40 |
| ECXZIP | GET+2~, GET+18*, FILE+37 |
| >> FHDFN | GET+13 |
| OK | PAT+7~, PAT+10*, PAT+11 |
| >> P | GET+34 |
| U | GET+9, GET+13, GET+33, GET+35, GET+36, GET+37, GET+38, GET+45, FILE+23, FILE+31 , FILE+32, FILE+33, FILE+34, FILE+35, FILE+36, FILE+37, FILE+38, FILE+39, FILE+40, FILE+41 , FILE+42, FILE+43 |
| W | GET+3~, GET+36* |
| X | GET+3~, GET+44*, GET+45, PAT+7~ |