VPRDPXIM ;SLC/MKB -- Immunizations extract ;8/2/11 15:29
Source file <VPRDPXIM.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 3 | $$FIND1^DIC $$EXTERNAL^DILFD $$GET1^DIQ |
| PCE Patient Care Encounter | 2 | ENCEVENT^PXAPI VIMM^PXPXRM |
| CPT HCPCS Codes | 1 | $$CPT^ICPTCOD |
| Kernel | 1 | ($$NS,$$STA)^XUAF4 |
| Virtual Patient Record | 1 | ($$ESC,$$FAC)^VPRD |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(DFN,BEG,END,MAX,IFN) | ; -- find patient's immunizations
|
|
| SORT(DFN,START,STOP) | ; -- build ^TMP("VPRIMM",$J,9999999-DATE,DA)=IMM^DATE in range
; from ^PXRMINDX(9000010.11,"PI",DFN,IMM,DATE,DA) |
|
| EN1(IEN,IMM) | ; -- return an immunization in IMM("attribute")=value
; Expects ^TMP("VPRIMM",$J,VPRIDT,VPRN)=IMM^DATE from EN/SORT |
|
| VST | ; look for values added by PX*1*210
|
|
| LOT | ; lot number, information
|
|
| VIS | ; vaccine information sheet
|
|
| CVX | ; CVX, CPT mappings
|
|
| XML(IMM) | ; -- Return immunizations as XML
|
|
| ADD(X) | ; -- Add a line @VPR@(n)=X
|
|
| LOOP() | ; -- build sub-items string from NAMES and X
|
| FileNo | Call Tags |
|---|---|
| ^PXD(811.1 - [#811.1] | FIND1^DIC, GET1^DIQ |
| ^AUPNVIMM - [#9000010.11] | EXTERNAL^DILFD |
| ^AUTTIMM - [#9999999.14] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PXRMINDX(9000010.11 | EN+8, EN+9, SORT+3, SORT+4, SORT+6 |
| ^SC - [#44] | VST+7 |
| ^TMP("PXKENC" | EN+13!, EN+21!, VST+2, VST+3, VST+8, VST+10 |
| ^TMP("VPRIMM" | EN+7!, EN+11*, EN+13!, EN+17, EN+18, EN+21!, SORT+2!, SORT+6*, EN1+3 |
| ^VA(200 - [#200] | VST+11 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ATT | XML+1~, XML+3*, XML+4, XML+5, XML+6, XML+7, XML+8, XML+10, XML+11, XML+12 , XML+13 |
| BEG | EN~, EN+2*, EN+16 |
| CPT | CVX+9~*, CVX+10 |
| DA | SORT+2~, SORT+6* |
| DATE | EN+7~, EN+9*, EN+10, EN+11, SORT+2~, SORT+4*, SORT+5, SORT+6 |
| DFN | EN~, EN+1*, EN+8, EN+9, EN+16, SORT~, SORT+3, SORT+4, SORT+6 |
| END | EN~, EN+2*, EN+16 |
| FAC | EN1+2~, VST+4*, VST+5, VST+6 |
| I | EN1+2~, VST+10*, VIS+1*, VIS+2, VIS+3, XML+1~, XML+7*, XML+8 |
| IDT | SORT+2~, SORT+5*, SORT+6 |
| IEN | EN1~, EN1+4, EN1+5, VST+8 |
| IFN | EN~, EN+6, EN+9, EN+10, EN+11, EN+12 |
| IMM | EN1~, EN1+2!, XML~ |
| IMM( | XML+3, XML+7, XML+8, XML+11 |
| IMM("administered" | EN1+4* |
| IMM("bodySite" | LOT+9* |
| IMM("comment" | EN1+11* |
| IMM("contraindicated" | EN1+10* |
| IMM("cpt" | CVX+5*, CVX+10* |
| IMM("cvx" | CVX+1*, CVX+2* |
| IMM("documentedBy" | LOT+2* |
| IMM("dose" | LOT+10*, LOT+12* |
| IMM("encounter" | EN1+12* |
| IMM("expirationDate" | LOT+6* |
| IMM("facility" | VST+5*, VST+6*, VST+12* |
| IMM("id" | EN1+4* |
| IMM("location" | VST+1*, VST+7* |
| IMM("lot" | LOT+4* |
| IMM("manufacturer" | LOT+5* |
| IMM("name" | EN1+6*, EN1+7* |
| IMM("orderingProvider" | LOT+1* |
| IMM("provider" | VST+11*, VST+13* |
| IMM("reaction" | EN1+9* |
| IMM("route" | LOT+8* |
| IMM("series" | EN1+8* |
| IMM("source" | LOT+7* |
| IMM("units" | LOT+13* |
| IMM("vis" | VIS+3* |
| IMZ | EN+7~, EN+8*, EN+9, EN+11, SORT+2~, SORT+3*, SORT+4, SORT+6 |
| LOC | EN1+2~, VST+4*, VST+6, VST+7 |
| LOT | EN1+2~, LOT+3*, LOT+4 |
| MAX | EN~, EN+2*, EN+17, EN+18 |
| NAMES | XML+1~, XML+4*, LOOP+2 |
| P | LOOP+1~, LOOP+2* |
| START | SORT~, SORT+5 |
| STOP | SORT~, SORT+5 |
| STR | LOOP+1~*, LOOP+2*, LOOP+3 |
| TAG | LOOP+1~, LOOP+2* |
| TMP | EN1+2~, EN1+3*, EN1+4, EN1+7, CVX+2, CVX+7 |
| U | EN+11, SORT+6, EN1+4, EN1+6, VST+1, VST+4, VST+5, VST+7, VST+9, VST+10 , VST+11, VST+12, LOT+4, LOT+5, LOT+7, LOT+8, LOT+9, VIS+3, CVX+5, CVX+9 , CVX+10, LOOP+2 |
| VISIT | EN1+2~, EN1+12*, VST+2, VST+3, VST+8, VST+10 |
| >> VPR | ADD+2 |
| VPRCNT | EN+2*, EN+3~, EN+16*, EN+17, EN+18, EN+20* |
| >> VPRI | ADD+1*, ADD+2 |
| VPRIDT | EN+3~, EN+10*, EN+11, EN+17*, EN+18, EN1+3 |
| VPRITM | EN+3~, EN+8, EN+12, EN+19!, EN+20 |
| VPRM | EN1+2~, EN1+5 |
| VPRM("ADMIN R | OUTE" , LOT+8 |
| VPRM("ADMIN S | ITE" , LOT+9 |
| VPRM("CODES" | CVX+3 |
| VPRM("COMMENTS" | EN1+11 |
| VPRM("CONTRAINDICATED" | EN1+10 |
| VPRM("CVX" | CVX+1 |
| VPRM("DOCUMENTER" | LOT+2 |
| VPRM("DOSAGE" | LOT+10 |
| VPRM("DOSE UN | ITS" , LOT+13 |
| VPRM("DOSE" | LOT+12 |
| VPRM("ENCOUNT | ER PROVIDER" , VST+13 |
| VPRM("EXPIRAT | ION DATE" , LOT+6 |
| VPRM("FACILITY" | VST+12 |
| VPRM("IMMUNIZATION" | EN1+6 |
| VPRM("INFO SO | URCE" , LOT+7 |
| VPRM("LOCATION" | VST+1 |
| VPRM("LOT NUM | BER" , LOT+3 |
| VPRM("MANUFACTURER" | LOT+5 |
| VPRM("ORDERIN | G PROVIDER" , LOT+1 |
| VPRM("REACTION" | EN1+9 |
| VPRM("SERIES" | EN1+8 |
| VPRM("VIS OFF | ERED" , VIS+1, VIS+2 |
| VPRM("VISIT" | EN1+12 |
| VPRN | EN+3~, EN+10*, EN+18*, EN+19, EN1+3 |
| >> VPRTOTL | XML+2* |
| X | EN1+2~, EN1+6*, EN1+8*, EN1+9*, VST+1*, VST+9*, VST+10*, VST+11, VST+12*, VST+13* , LOT+1*, LOT+2*, LOT+5*, LOT+6*, LOT+7*, LOT+8*, LOT+9*, LOT+10*, LOT+12*, LOT+13* , VIS+2*, VIS+3, CVX+1*, CVX+2*, CVX+3*, CVX+4*, CVX+5, CVX+7*, CVX+8, XML+1~ , XML+8*, XML+11*, XML+12, XML+13, ADD~, ADD+2, LOOP+2 |
| X0 | EN1+2~, VST+3*, VST+4 |
| X12 | EN1+2~, VST+8*, VST+9 |
| X13 | EN1+2~, VST+8* |
| X2 | EN1+2~ |
| Y | CVX+8*, CVX+9, XML+1~, XML+8*, XML+9, XML+11*, XML+12*, XML+13* |
