HMPDJ09 ;SLC/MKB,ASMR/RRB,OB,MAT,CPC,HM - PCE;Apr 13, 2016 16:04:25
Source file <HMPDJ09.m>
| Package | Total | Call Graph |
|---|---|---|
| Enterprise Health Management Platform | 6 | $$FAC^HMPD ADD^HMPDJ $$NAME^HMPDJ04 ADD^HMPMETA $$EN^HMPSTMP ($$JSONDT,$$SETNCS,$$SETUID,$$SETVURN,FACILITY,SETTEXT)^HMPUTILS |
| VA FileMan | 3 | $$FIND1^DIC $$EXTERNAL^DILFD ($$GET1,GETS)^DIQ |
| Kernel | 1 | ($$NS,$$STA)^XUAF4 |
| List Manager | 1 | $$LOWER^VALM1 |
| PCE Patient Care Encounter | 1 | ENCEVENT^PXAPI |
| 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 |
|---|---|---|
| PX(FNUM) | ; -- PCE item(s)
|
|
| PXA(ID) | ; -- find ID in ^PXRMINDX(FNUM), fall thru to PX1 if successful
|
|
| PX1 | ; -- PCE ^TMP("HMPPX",$J,HMPIDT,ID)=ITM^DATE for FNUM
|
|
| POV | ||
| CPT | ||
| IM | ||
| HF | ||
| SK | ||
| PXQ | ;finish
|
|
| SORT | ; -- build ^TMP("HMPPX",$J,9999999-DATE,DA)=ITEM^DATE in range
|
|
| PI | ; from ^PXRMINDX(FNUM,"PI",DFN,ITEM,DATE,DA)
|
|
| PPI | ; from ^PXRMINDX(FNUM,"PPI",DFN,TYPE,ITEM,DATE,DA)
|
|
| PTF | ; from ^PXRMINDX(45,"ICD9","PNI",DFN,TYPE,ITEM,DATE,DA)
|
|
| VIML(LOT,IMDATA) | ;VIMM2.0 Return IMMUNIZATION LOT data (Lot #, Expiration Date, and Mfr. can also be in COMMENTS)
|
|
| VIMM(DA,IMDATA,VISIT) | ;VIMM2.0 Return data for a specified V IMMUNIZATION entry.
|
|
| VIMIMM(IMMCODE,IMDATA) | ;VIMM2.0 Return data for an IMMUNIZATION entry.
|
|
| VIMVIS(DATA) | ;VIMM2.0 Return an IMMUNIZATION's VACCINE INFORMATION STATEMENT(s).
|
|
| VIMVISNW(DATA,IMDATA) | ;US14129 - Add VIS data to extract
|
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | IM+4, IM+33 |
| $$EXTERNAL^DILFD | PX1+16, POV+3, CPT+3, CPT+6, IM+23, HF+4 |
| $$GET1^DIQ | PX1+30, IM+31, IM+34, HF+2, HF+5, VIMM+30, VIMVISNW+9 |
| GETS^DIQ | PX1+23, VIML+4, VIMM+5, VIMIMM+4, VIMVISNW+6 |
| $$FAC^HMPD | PX1+27 |
| ADD^HMPDJ | PXQ+5 |
| $$NAME^HMPDJ04 | PX1+18 |
| ADD^HMPMETA | PXQ+4 |
| $$EN^HMPSTMP | PXQ+1 |
| $$JSONDT^HMPUTILS | PX1+14, PX1+15, IM+8, IM+16, SK+2, VIMVIS+6, VIMVISNW+5, VIMVISNW+7 |
| $$SETNCS^HMPUTILS | POV+2, CPT+2, IM+36 |
| $$SETUID^HMPUTILS | PX1+11, PX1+17, PX1+30, IM+21, IM+24, IM+31 |
| $$SETVURN^HMPUTILS | HF+1, HF+3 |
| FACILITY^HMPUTILS | PX1+28 |
| SETTEXT^HMPUTILS | VIMIMM+10 |
| ENCEVENT^PXAPI | IM+26 |
| $$LOWER^VALM1 | HF+1 |
| $$NS^XUAF4 | PX1+26 |
| $$STA^XUAF4 | PX1+26 |
| FileNo | Call Tags |
|---|---|
| ^DI(.85 - [#.85] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
| ^PXD(811.1 - [#811.1] | FIND1^DIC, GET1^DIQ |
| ^AUPNVSIT - [#9000010] | GETS^DIQ |
| ^AUPNVPOV - [#9000010.07] | EXTERNAL^DILFD |
| ^AUPNVIMM - [#9000010.11] | EXTERNAL^DILFD, GET1^DIQ, GETS^DIQ |
| ^AUPNVCPT - [#9000010.18] | EXTERNAL^DILFD |
| ^AUTTIVIS - [#920] | GETS^DIQ |
| ^AUTTIMM - [#9999999.14] | GETS^DIQ |
| ^AUTTIML - [#9999999.41] | FIND1^DIC |
| ^AUTTHF - [#9999999.64] | EXTERNAL^DILFD, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PXRMINDX( | PI+2, PI+3, PI+5, PPI+1, PPI+2, PPI+3, PPI+5, PPI+8, PPI+9, PPI+10 , PPI+12 |
| ^PXRMINDX(45 | PTF+14, PTF+15, PTF+16, PTF+17, PTF+18, PTF+20 |
| ^TMP("HMPPX" | PX+3, PX+4, PX+5!, PXA+2!, PXA+8*, PXA+14*, PXA+15, PX1+9, SORT+1!, PI+5* , PPI+5*, PPI+12*, PTF+20* |
| ^TMP("PXKENC" | IM+26, IM+27, IM+29 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADMIN1 | VIMM+1~ |
| ARR | VIML+1~, VIML+3*, VIML+4, VIMM+1~, VIMM+4*, VIMM+5, VIMIMM+1~, VIMIMM+3*, VIMIMM+4 |
| COLL | PX1+1~, PX1+10*, PX1+11, PXQ+1, PXQ+4, PXQ+5 |
| COUNT | VIMM+29~, VIMM+30*, VIMM+32*, VIMM+33, VIMM+35 |
| CPT | IM+35~*, IM+36, IM+37 |
| CT | VIMM+29~, VIMM+31*, VIMM+32*, VIMM+33*, VIMM+34*, VIMM+35 |
| DA | SORT+1~, PI+5*, PPI+5*, PPI+12*, VIMM~, VIMM+3 |
| DATA | VIML+1~, VIMM+1~, VIMM+50, VIMM+52, VIMIMM+1~, VIMVIS~, VIMVISNW~ |
| DATA( | VIML+7, VIML+8, VIMM+9, VIMM+12, VIMM+13, VIMM+16, VIMM+19, VIMM+22, VIMM+25, VIMM+38 , VIMM+41, VIMM+44, VIMM+47, VIMIMM+7, VIMIMM+10, VIMVIS+3, VIMVIS+4, VIMVIS+5, VIMVIS+6, VIMVISNW+2 , VIMVISNW+3, VIMVISNW+4, VIMVISNW+5 |
| DATA(920 | VIMVISNW+7, VIMVISNW+9 |
| DATE | PXA+1~, PXA+7*, PXA+8, PXA+13*, PXA+14, SORT+1~, PI+3*, PI+4, PI+5, PPI+3* , PPI+4, PPI+5, PPI+10*, PPI+11, PPI+12 |
| >> DFN | PXA+3, PXA+4, PXA+10, PX1+4, PX1+11, PX1+17, IM+21, IM+24, PI+2, PI+3 , PI+5, PPI+1, PPI+2, PPI+3, PPI+5, PPI+8, PPI+9, PPI+10, PPI+12, PTF+15 , PTF+16, PTF+17, PTF+18, PTF+20 |
| DT | VIMVIS+1~, VIMVIS+2*, VIMVIS+6*, VIMVIS+7 |
| ERR | PX1+3~, VIML+1~, VIML+3*, VIML+4, VIMM+1~, VIMM+4*, VIMM+5, VIMIMM+1~, VIMIMM+3*, VIMIMM+4 |
| ERRMSG | PX1+2~, PX1+6* |
| ERRPAT | PX1+2~, PX1+4* |
| FAC | PX1+1~, PX1+24*, PX1+26, PX1+27 |
| FILE | VIML+1~, VIML+2*, VIML+4, VIML+7, VIML+8 |
| >> FILTER("freshnessDateTime" | PX1+15 |
| FLD | PX1+1~, CPT+5*, CPT+6 |
| FLDS | PX1+3~, PX1+22*, PX1+23, VIML+1~, VIML+3*, VIML+4, VIMM+1~, VIMM+3*, VIMM+5, VIMIMM+1~ , VIMIMM+3*, VIMIMM+4 |
| FLG | PX1+3~, PX1+22*, PX1+23 |
| FLGS | VIML+1~, VIML+3*, VIML+4, VIMM+1~, VIMM+4*, VIMM+5, VIMIMM+1~, VIMIMM+3*, VIMIMM+4 |
| FNUM | PX~, PXA+2, PXA+3, PXA+4, PXA+10, PX1+5, PX1+16, POV, CPT, CPT+5 , CPT+6, IM, HF, SK, SORT+2, PI+2, PI+3, PI+5, PPI+1, PPI+2 , PPI+3, PPI+5, PPI+6, PPI+8, PPI+9, PPI+10, PPI+12 |
| HMPDT | PTF+13~, PTF+18*, PTF+19, PTF+20 |
| HMPDX | PTF+13~, PTF+17*, PTF+18, PTF+20 |
| HMPF | PX1+1~, IM+1, IM+2, IM+5 |
| HMPF("ADMNSITE" | IM+14 |
| HMPF("CDCNAME" | IM+39 |
| HMPF("COMMENTS" | PX1+31 |
| HMPF("CONTRAINDICATED" | IM+25 |
| HMPF("CVXCODE" | IM+12 |
| HMPF("DATE RE | AD" , SK+2 |
| HMPF("DOSE" | IM+17 |
| HMPF("DOSEUNITS" | IM+18 |
| HMPF("ENCLOC" | IM+10 |
| HMPF("EVNTDAT" | IM+15, IM+16 |
| HMPF("EXPDATE" | IM+8 |
| HMPF("IMMCODE" | IM+2 |
| HMPF("INFOSRC" | IM+9 |
| HMPF("LOTNUMBER" | IM+3, IM+4, IM+6 |
| HMPF("MANUFACTURER" | IM+7 |
| HMPF("ORDPRV" | IM+11 |
| HMPF("PRIMARY/SECONDARY" | POV+1 |
| HMPF("PRINCIP | AL PROCEDURE" , CPT+1 |
| HMPF("PROVIDE | R NARRATIVE" , POV+3, CPT+3 |
| HMPF("QUANTITY" | CPT+4 |
| HMPF("REACTION" | IM+22, IM+23, IM+24 |
| HMPF("READING" | SK+1 |
| HMPF("REMARKS" | IM+20 |
| HMPF("ROUTE" | IM+13 |
| HMPF("VALUE" | CPT+5 |
| HMPF("VIS" | IM+40, IM+41, IM+42, IM+43, IM+44 |
| HMPF("VISDAT" | IM+19 |
| HMPF("VISIT" | PX1+17 |
| >> HMPI | PX+3, PX+4 |
| >> HMPID | PX+1 |
| HMPIDT | PX+2~, PX+3*, PX+4, PXA+1~, PXA+8*, PXA+14*, PX1+9 |
| HMPISYS | PTF+13~, PTF+14*, PTF+15, PTF+16, PTF+17, PTF+18, PTF+20 |
| HMPITEM | PTF+13~, PTF+20* |
| >> HMPMAX | PX+3, PX+4 |
| >> HMPMETA | PXQ+4 |
| HMPRDT | PTF+13~, PTF+19*, PTF+20 |
| >> HMPSTART | PI+4, PPI+4, PPI+11, PTF+19 |
| >> HMPSTOP | PI+4, PPI+4, PPI+11, PTF+19 |
| HMPTYP | PTF+13~, PTF+16*, PTF+17, PTF+18, PTF+20 |
| I | PX1+1~, IM+29*, IM+40~*, IM+41, IM+42, IM+43, IM+44, VIMVISNW+2*, VIMVISNW+4, VIMVISNW+5 , VIMVISNW+7, VIMVISNW+9 |
| ICDSYS | PXA+1~ |
| ID | PX+2~, PX+4*, PXA~, PXA+6, PXA+8, PXA+12, PXA+14, PX1+6, PX1+9, PX1+11 , IM+1, IM+27 |
| IDT | SORT+1~, PI+4*, PI+5, PPI+4*, PPI+5, PPI+11*, PPI+12 |
| IDX | PXA+1~, PXA+5*, PXA+6, PXA+7, PXA+11*, PXA+12, PXA+13 |
| IEN | VIML+1~, VIML+3*, VIML+4, VIML+7, VIML+8, VIMM+1~, VIMM+3*, VIMM+5, VIMM+9, VIMM+12 , VIMM+13, VIMM+16, VIMM+19, VIMM+22, VIMM+25, VIMM+30, VIMM+38, VIMM+41, VIMM+44, VIMM+47 , VIMIMM+1~, VIMIMM+3*, VIMIMM+4, VIMIMM+7, VIMIMM+10, VIMVISNW+1~ |
| IMDATA | VIML~, VIMM~, VIMM+52, VIMIMM~, VIMVISNW~ |
| IMDATA("ADMNPRV" | VIMM+22* |
| IMDATA("ADMNSITE" | VIMM+47* |
| IMDATA("CDCNAME" | VIMIMM+10 |
| IMDATA("COMMENTS" | VIMM+38* |
| IMDATA("CVXCODE" | VIMIMM+7* |
| IMDATA("DOSE" | VIMM+12* |
| IMDATA("DOSEUNITS" | VIMM+13* |
| IMDATA("EVNTDAT" | VIMM+25* |
| IMDATA("EXPDATE" | VIML+7* |
| IMDATA("IMMCODE" | VIMM+9* |
| IMDATA("INFOSRC" | VIMM+41* |
| IMDATA("LOTNUMBER" | VIMM+16* |
| IMDATA("MANUFACTURER" | VIML+8* |
| IMDATA("ORDPRV" | VIMM+19* |
| IMDATA("REMARKS" | VIMM+33*, VIMM+35* |
| IMDATA("ROUTE" | VIMM+44* |
| IMDATA("VIS" | VIMVISNW+4*, VIMVISNW+5*, VIMVISNW+7*, VIMVISNW+9* |
| IMDATA("VISDAT" | VIMM+50* |
| IMMCODE | VIMIMM~, VIMIMM+3 |
| INFO1 | VIMM+1~ |
| ITEM | PXA+1~, PXA+7*, PXA+8, PXA+13*, PXA+14, SORT+1~, PI+2*, PI+3, PI+5, PPI+2* , PPI+3, PPI+5, PPI+9*, PPI+10, PPI+12 |
| LANGIEN | VIMVISNW+1~, VIMVISNW+9* |
| LOC | PX1+1~, PX1+24*, PX1+27, PX1+30 |
| LOT | VIML~, VIML+3 |
| LOTIEN | PX1+1~, IM+4*, IM+5 |
| N | PXA+1~, PXA+2*, PXA+3, PXA+10, PX1+1~, PX1+5*, PX1+10, PX1+13, PX1+15 |
| P | PXA+1~, PXA+6*, PXA+7, PXA+12*, PXA+13 |
| PCE | PX1+1~ |
| PCE( | PX1+14*, PX1+15* |
| PCE("categoryName" | HF+4* |
| PCE("categoryUid" | HF+3* |
| PCE("cdcFullVaccineName" | IM+39* |
| PCE("comment" | PX1+31* |
| PCE("contraindicated" | IM+25* |
| PCE("cptCode" | CPT+2*, IM+36* |
| PCE("cptName" | IM+37* |
| PCE("cvxCode" | IM+12* |
| PCE("dateRead" | SK+2* |
| PCE("display" | HF+6* |
| PCE("dosage" | IM+17* |
| PCE("dosageUnits" | IM+18* |
| PCE("encounterLocation" | IM+10* |
| PCE("encounterName" | PX1+18* |
| PCE("encounterUid" | PX1+17* |
| PCE("eventDate" | IM+16* |
| PCE("eventInformationSource" | IM+9* |
| PCE("expirationDate" | IM+8* |
| PCE("icdCode" | POV+2* |
| PCE("kind" | HF+7* |
| PCE("lastUpdateTime" | PXQ+1*, PXQ+2 |
| PCE("localId" | PX1+9* |
| PCE("locationName" | PX1+30* |
| PCE("locationUid" | PX1+30* |
| PCE("lotNumber" | IM+6* |
| PCE("manufacturer" | IM+7* |
| PCE("name" | PX1+16*, POV+2, POV+3*, CPT+2, CPT+3*, HF+7 |
| PCE("orderingProvider" | IM+11* |
| PCE("performerName" | IM+31* |
| PCE("performerUid" | IM+31* |
| PCE("quantity" | CPT+4* |
| PCE("reactionCode" | IM+24* |
| PCE("reactionName" | IM+23* |
| PCE("reading" | SK+1* |
| PCE("remarks" | IM+20* |
| PCE("result" | SK+3* |
| PCE("routeOfAdministration" | IM+13* |
| PCE("seriesCode" | IM+21* |
| PCE("seriesName" | IM+21* |
| PCE("severityName" | HF+1* |
| PCE("severityUid" | HF+1* |
| PCE("siteOfAdministration" | IM+14* |
| PCE("stampTime" | PXQ+2*, PXQ+4 |
| PCE("summary" | IM+37*, HF+7* |
| PCE("type" | POV+1*, CPT+1* |
| PCE("uid" | PX1+11*, PXQ+4 |
| PCE("vis" | IM+41*, IM+42*, IM+43*, IM+44* |
| PCE("visData" | IM+19* |
| PTVISIEN | VIMVISNW+1~, VIMVISNW+2*, VIMVISNW+3, VIMVISNW+4, VIMVISNW+5 |
| ROOT | PXA+1~, PXA+3*, PXA+4*, PXA+5, PXA+10*, PXA+11 |
| ROUTE1 | VIMM+1~ |
| SC | VIMVIS+1~, VIMVIS+2*, VIMVIS+7 |
| SL | VIMVIS+1~, VIMVIS+2*, VIMVIS+7 |
| TAG | PX1+1~, PX1+5*, PX1+6, PX1+7, PX1+13*, PX1+14, PX1+15 |
| TEMP | VIMM+1~ |
| TMP | PX1+1~, PX1+9*, PX1+14, PX1+16, IM+33, HF+2, HF+5 |
| TMPGBL | VIMM+1~ |
| TYPE | SORT+1~, PPI+1*, PPI+2, PPI+3, PPI+5, PPI+8*, PPI+9, PPI+10, PPI+12 |
| U | PXA+8, PXA+14, PX1+14, PX1+26, IM+28, IM+29, IM+35, IM+37, PI+5, PPI+5 , PPI+12, PTF+20 |
| VDX | VIMVIS+1~, VIMVIS+2*, VIMVIS+8* |
| VIS | VIMM+1~, VIMVIS+1~, VIMVIS+2*, VIMVIS+4*, VIMVIS+7, VIMVIS+8*, VIMVIS+9 |
| VISALL | VIMVIS+1~, VIMVIS+2* |
| VISALL( | VIMVIS+7*, VIMVIS+8 |
| VISIEN | VIMM+1~, VIMVIS+1~, VIMVIS+3*, VIMVIS+4, VIMVIS+5, VIMVIS+6, VIMVISNW+1~, VIMVISNW+3*, VIMVISNW+6, VIMVISNW+7 , VIMVISNW+9 |
| VISIT | PX1+1~, PX1+17*, PX1+18, PX1+22, IM+1, IM+26, IM+27, IM+29, VIMM~ |
| VISITIEN | PX1+3~, PX1+22*, PX1+23, PX1+24 |
| WP | VIMM+29~ |
| WP( | VIMM+32, VIMM+34, VIMM+35 |
| WP(1 | VIMM+31 |
| X | PX1+1~, PX1+26*, PX1+27*, PX1+28, POV+1*, POV+2*, POV+3*, CPT+1*, CPT+2*, CPT+3* , CPT+5*, CPT+6, IM+28*, IM+29*, IM+31, IM+33*, IM+34, HF+1, HF+2*, HF+3 , HF+4, HF+5*, HF+6, VIMM+29~, VIMM+30* |
| X0 | PX1+1~ |
| X0(9000010 | PX1+24 |
| X12 | PX1+1~, IM+27*, IM+28 |
| Y | PX1+1~, CPT+6*, IM+21, IM+34*, IM+35, HF+1, SK+3 |
