VPRDJ09 ;SLC/MKB -- PCE ;8/2/11 15:29
Source file <VPRDJ09.m>
| Package | Total | Call Graph |
|---|---|---|
| Virtual Patient Record | 4 | $$FAC^VPRD ADD^VPRDJ $$NAME^VPRDJ04 ($$JSONDT,$$SETNCS,$$SETUID,$$SETVURN,FACILITY)^VPRUTILS |
| VA FileMan | 3 | $$FIND1^DIC $$EXTERNAL^DILFD $$GET1^DIQ |
| Kernel | 2 | $$LOW^XLFSTR ($$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 |
| Package | Total | Caller Graph |
|---|---|---|
| Virtual Patient Record | 4 | VPRDJ0 VPRP20 VPRSDAQ VPRSDAVF |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PX(FNUM) | ; -- PCE item(s)
|
|
| PX1 | ; -- PCE ^TMP("VPRPX",$J,VPRIDT,ID)=ITM^DATE for FNUM
|
|
| POV | ||
| CPT | ||
| IM | ||
| HF | ||
| SK | ||
| PXQ | ;finish
|
|
| SORT | ; -- build ^TMP("VPRPX",$J,9999999-DATE,DA)=ITEM^DATE^[SYS] in range
; Expects VPRSTART and VPRSTOP |
|
| PI | ; from ^PXRMINDX(FNUM,"PI",DFN,ITEM,DATE,DA)
|
|
| PPI(INDX) | ; from ^PXRMINDX(FNUM,["10D",]"PPI",DFN,TYPE,ITEM,DATE,DA)
|
|
| PTF | ; from ^PXRMINDX(45,"ICD","PNI",DFN,TYPE,ITEM,DATE,DA)
; Expects VPRSTART and VPRSTOP |
| Name | Field # of Occurrence |
|---|---|
| $$FIND1^DIC | IM+12 |
| $$EXTERNAL^DILFD | PX1+11, POV+4, CPT+3, CPT+6, IM+3, HF+4 |
| $$GET1^DIQ | IM+13, HF+2, HF+5 |
| ENCEVENT^PXAPI | IM+6 |
| $$LOWER^VALM1 | HF+1 |
| $$FAC^VPRD | PX1+16 |
| ADD^VPRDJ | PXQ+1 |
| $$NAME^VPRDJ04 | PX1+13 |
| $$JSONDT^VPRUTILS | PX1+10, SK+2 |
| $$SETNCS^VPRUTILS | POV+3, CPT+2, IM+15 |
| $$SETUID^VPRUTILS | PX1+7, PX1+12, PX1+18, IM+1, IM+4, IM+10 |
| $$SETVURN^VPRUTILS | HF+1, HF+3 |
| FACILITY^VPRUTILS | PX1+17 |
| $$LOW^XLFSTR | POV+2 |
| $$NS^XUAF4 | PX1+15 |
| $$STA^XUAF4 | PX1+15 |
| FileNo | Call Tags |
|---|---|
| ^PXD(811.1 - [#811.1] | FIND1^DIC, GET1^DIQ |
| ^AUPNVPOV - [#9000010.07] | EXTERNAL^DILFD |
| ^AUPNVIMM - [#9000010.11] | EXTERNAL^DILFD |
| ^AUPNVCPT - [#9000010.18] | EXTERNAL^DILFD |
| ^AUTTHF - [#9999999.64] | EXTERNAL^DILFD, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT - [#9000010] | PX1+14 |
| ^PXRMINDX( | SORT+5, SORT+6, PI+1, PI+2, PI+4 |
| ^PXRMINDX(45 | PTF+4, PTF+5, PTF+6, PTF+8 |
| ^SC - [#44] | PX1+18 |
| ^TMP("PXKENC" | IM+6, IM+7, IM+9 |
| ^TMP("VPRPX" | PX+3, PX+4, PX+7!, PX1+5, SORT+2!, PI+4*, PPI+6*, PTF+8* |
| ^VA(200 - [#200] | IM+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| COLL | PX1+1~, PX1+6*, PX1+7, PXQ+1 |
| CPT | IM+14~*, IM+15, IM+16 |
| DA | SORT+2~, PI+4*, PPI+6*, PTF+2~, PTF+8* |
| DATE | SORT+2~, PI+2*, PI+3, PI+4, PPI+3*, PPI+4, PPI+6, PTF+2~, PTF+6*, PTF+7 , PTF+8 |
| >> DFN | PX1+7, PX1+12, IM+1, IM+4, PI+1, PI+2, PI+4, PPI+1, PPI+2, PPI+3 , PPI+6, PTF+4, PTF+5, PTF+6, PTF+8 |
| FAC | PX1+1~, PX1+14*, PX1+15, PX1+16 |
| FLD | PX1+1~, CPT+5*, CPT+6 |
| FNUM | PX~, PX1+2, PX1+11, POV, CPT, CPT+5, CPT+6, IM, HF, SK , SORT+3, SORT+5, SORT+6, PI+1, PI+2, PI+4 |
| >> I | IM+9* |
| ID | PX+1~, PX+4*, PX+5, PX1+5, PX1+7, IM+7 |
| IDT | SORT+2~, PI+3*, PI+4, PPI+4*, PPI+6, PTF+2~, PTF+7*, PTF+8 |
| INDEX | SORT+4~, SORT+5*, SORT+6* |
| INDX | PPI~, PPI+1, PPI+2, PPI+3, PPI+5, PPI+6 |
| ITEM | SORT+2~, PI+1*, PI+2, PI+4, PPI+2*, PPI+3, PPI+6, PTF+2~, PTF+5*, PTF+6 , PTF+8 |
| LOC | PX1+1~, PX1+14*, PX1+16, PX1+18 |
| N | PX1+1~, PX1+2*, PX1+6, PX1+9 |
| PCE | PX1+1~ |
| PCE( | PX1+10* |
| PCE("categoryName" | HF+4* |
| PCE("categoryUid" | HF+3* |
| PCE("comment" | PX1+19* |
| PCE("contraindicated" | IM+5* |
| PCE("cptCode" | CPT+2*, IM+15* |
| PCE("cptName" | IM+16* |
| PCE("dateRead" | SK+2* |
| PCE("display" | HF+6* |
| PCE("encounterName" | PX1+13* |
| PCE("encounterUid" | PX1+12* |
| PCE("icdCode" | POV+3* |
| PCE("kind" | HF+7* |
| PCE("localId" | PX1+5* |
| PCE("locationName" | PX1+18* |
| PCE("locationUid" | PX1+18* |
| PCE("name" | PX1+11*, POV+3, POV+4*, CPT+2, CPT+3*, HF+7 |
| PCE("performerName" | IM+10* |
| PCE("performerUid" | IM+10* |
| PCE("quantity" | CPT+4* |
| PCE("reactionCode" | IM+4* |
| PCE("reactionName" | IM+3* |
| PCE("reading" | SK+1* |
| PCE("result" | SK+3* |
| PCE("seriesCode" | IM+1* |
| PCE("seriesName" | IM+1* |
| PCE("severityName" | HF+1* |
| PCE("severityUid" | HF+1* |
| PCE("summary" | IM+16*, HF+7* |
| PCE("type" | POV+1*, CPT+1* |
| PCE("uid" | PX1+7* |
| SYS | SORT+2~, PPI+5*, PPI+6, PTF+2~, PTF+3*, PTF+4, PTF+5, PTF+6, PTF+8 |
| TAG | PX1+1~, PX1+2*, PX1+3, PX1+9*, PX1+10 |
| TMP | PX1+1~, PX1+5*, PX1+10, PX1+11, POV+2, IM+12, HF+2, HF+5 |
| TYPE | SORT+2~, PPI+1*, PPI+2, PPI+3, PPI+6, PTF+2~, PTF+4*, PTF+5, PTF+6, PTF+8 |
| U | PX1+10, PX1+11, PX1+14, PX1+15, PX1+18, POV+2, IM+8, IM+9, IM+10, IM+14 , IM+16, PI+4, PPI+6, PTF+8 |
| VISIT | PX1+1~, PX1+12*, PX1+13, PX1+14, IM+6, IM+7, IM+9 |
| VPRF | PX1+1~ |
| VPRF("COMMENTS" | PX1+19 |
| VPRF("CONTRAINDICATED" | IM+5 |
| VPRF("DATE RE | AD" , SK+2 |
| VPRF("PRIMARY/SECONDARY" | POV+1 |
| VPRF("PRINCIP | AL PROCEDURE" , CPT+1 |
| VPRF("PROVIDE | R NARRATIVE" , POV+4, CPT+3 |
| VPRF("QUANTITY" | CPT+4 |
| VPRF("REACTION" | IM+2 |
| VPRF("READING" | SK+1 |
| VPRF("VALUE" | CPT+5 |
| VPRF("VISIT" | PX1+12 |
| >> VPRI | PX+3, PX+4 |
| >> VPRID | PX+5 |
| VPRIDT | PX+1~, PX+3*, PX+4, PX1+5 |
| >> VPRMAX | PX+3, PX+4 |
| >> VPRSTART | PI+3, PPI+4, PTF+7 |
| >> VPRSTOP | PI+3, PPI+4, PTF+7 |
| X | PX1+1~, PX1+15*, PX1+16*, PX1+17, PX1+19*, POV+1*, POV+3*, POV+4*, CPT+1*, CPT+2* , CPT+3*, CPT+5*, CPT+6, IM+2*, IM+3, IM+4, IM+8*, IM+9*, IM+10, IM+12* , IM+13, HF+1, HF+2*, HF+3, HF+4, HF+5*, HF+6, SK+1*, SK+2* |
| X0 | PX1+1~, PX1+14* |
| X12 | PX1+1~, IM+7*, IM+8 |
| Y | PX1+1~, POV+2*, POV+3, CPT+6*, IM+1, IM+13*, IM+14, HF+1, SK+3 |
