VPRDJ04A ;SLC/MKB -- Admissions,PTF ;7/25/13
Source file <VPRDJ04A.m>
| Package | Total | Call Graph |
|---|---|---|
| Virtual Patient Record | 5 | $$FAC^VPRD ADD^VPRDJ $$NAME^VPRDJ04 ($$AMIS,$$CATG,$$CPT,$$POV,$$PTF,$$SERV)^VPRDVSIT ($$JSONDT,$$SETNCS,$$SETUID,FACILITY)^VPRUTILS |
| VA FileMan | 3 | FIND^DIC $$EXTERNAL^DILFD $$GET1^DIQ |
| Kernel | 2 | $$LOW^XLFSTR ($$NS,$$STA)^XUAF4 |
| CPT HCPCS Codes | 1 | $$CPT^ICPTCOD |
| DRG Grouper | 1 | ($$ICDDX,$$SAB)^ICDEX |
| Registration | 1 | (IN5,INP)^VADPT |
| 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 |
|---|---|---|
| ADM(ID,DATE) | ; -- admission [from VSIT1]
|
|
| TIU(VISIT,ARR) | ; -- add notes to ARR("document")
|
|
| PROV(ARR,I,IEN,ROLE,PRIM) | ; -- add providers
|
|
| MVT(CA) | ; -- add movements to ADM("movement",i,"attribute")
|
|
| PTFA(ID) | ; -- find ID in ^TMP("VPRPX",$J), fall thru to PX1 if successful
|
|
| PTF1 | ; -- PTF where ID=iens;TYPE
; Expects ^TMP("VPRPX",$J,VPRIDT,ID)=ITM^[DISCHARGE]DATE^SYS |
|
| VISIT(DFN,DATE) | ; -- Return visit# for admission
|
| Name | Field # of Occurrence |
|---|---|
| FIND^DIC | TIU+3 |
| $$EXTERNAL^DILFD | MVT+6, MVT+11 |
| $$GET1^DIQ | TIU+8 |
| $$ICDDX^ICDEX | PTF1+8 |
| $$SAB^ICDEX | PTF1+9 |
| $$CPT^ICPTCOD | ADM+34 |
| IN5^VADPT | ADM+5 |
| INP^VADPT | PTF1+11 |
| $$FAC^VPRD | ADM+17, MVT+12, PTF1+15, PTF1+21 |
| ADD^VPRDJ | ADM+37, PTF1+23 |
| $$NAME^VPRDJ04 | PTF1+18 |
| $$AMIS^VPRDVSIT | ADM+20 |
| $$CATG^VPRDVSIT | ADM+34 |
| $$CPT^VPRDVSIT | ADM+34 |
| $$POV^VPRDVSIT | ADM+29 |
| $$PTF^VPRDVSIT | ADM+29 |
| $$SERV^VPRDVSIT | ADM+16 |
| $$JSONDT^VPRUTILS | ADM+9, ADM+26, MVT+5, PTF1+13, PTF1+14 |
| $$SETNCS^VPRUTILS | ADM+33, PTF1+10 |
| $$SETUID^VPRUTILS | ADM+7, ADM+18, TIU+9, PROV+1, MVT+8, MVT+13, PTF1+6, PTF1+17 |
| FACILITY^VPRUTILS | ADM+23, PTF1+22 |
| $$LOW^XLFSTR | ADM+32, PTF1+9 |
| $$NS^XUAF4 | PTF1+20 |
| $$STA^XUAF4 | PTF1+20 |
| FileNo | Call Tags |
|---|---|
| ^DGPM - [#405] | EXTERNAL^DILFD |
| ^TIU(8925 - [#8925] | FIND^DIC, GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT - [#9000010] | PTF1+19 |
| ^AUPNVSIT("AAH" | VISIT+3 |
| ^DGPM - [#405] | MVT+3 |
| ^DGPM("APCA" | MVT+2 |
| ^DIC(42 - [#42] | ADM+17, MVT+12, PTF1+12 |
| ^DPT - [#2] | ADM+11, ADM+13 |
| ^SC - [#44] | ADM+19, ADM+20, MVT+14 |
| ^TMP("VPRPX" | PTFA+2, PTF1+4 |
| ^VA(200 - [#200] | PROV+2, MVT+9 |
| Name | Line Occurrences |
|---|---|
| $$VISIT | ADM+8, PTF1+16 |
| MVT | ADM+35 |
| PROV | ADM+27, ADM+28 |
| TIU | ADM+36 |
| Name | Field # of Occurrence |
|---|---|
| ^( | MVT+2, PTFA+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADM | ADM+1~, ADM+36, PTF1+2~, PTF1+12*, PTF1+13, PTF1+16 |
| ADM("categoryCode" | ADM+24* |
| ADM("categoryName" | ADM+24* |
| ADM("current" | ADM+12* |
| ADM("dateTime" | ADM+9* |
| ADM("localId" | ADM+7* |
| ADM("locationName" | ADM+19*, ADM+22 |
| ADM("locationUid" | ADM+18* |
| ADM("movements" | MVT+4*, MVT+5*, MVT+6*, MVT+8*, MVT+9*, MVT+11*, MVT+13*, MVT+14* |
| ADM("patientClassCode" | ADM+25* |
| ADM("patientClassName" | ADM+25* |
| ADM("reasonName" | ADM+30*, ADM+33* |
| ADM("reasonUid" | ADM+33* |
| ADM("roomBed" | ADM+10*, ADM+13* |
| ADM("service" | ADM+16*, ADM+22 |
| ADM("specialty" | ADM+15* |
| ADM("stay" | ADM+9*, ADM+26* |
| ADM("stopCodeName" | ADM+21* |
| ADM("stopCodeUid" | ADM+21* |
| ADM("summary" | ADM+22* |
| ADM("typeName" | ADM+34* |
| ADM("uid" | ADM+7* |
| ARR | TIU~, PROV~, PROV+1, PROV+2, PROV+3, PROV+4 |
| ARR("documents" | TIU+9*, TIU+10*, TIU+11* |
| CA | MVT~, MVT+2 |
| CNT | TIU+1~, TIU+4*, TIU+9*, TIU+10, TIU+11, MVT+1~*, MVT+3*, MVT+4, MVT+5, MVT+6 , MVT+8, MVT+9, MVT+11, MVT+13, MVT+14 |
| DA | TIU+1~, TIU+7*, TIU+8, TIU+9, MVT+1~, MVT+2*, MVT+3, MVT+4 |
| DATE | ADM~, ADM+2*, ADM+3, ADM+8*, ADM+9, ADM+29, MVT+1~*, MVT+2*, MVT+5, VISIT~ , VISIT+2 |
| DFN | ADM+7, ADM+8, ADM+11, ADM+13, ADM+29, TIU+9, MVT+2, PTF1+6, PTF1+16, PTF1+17 , VISIT~, VISIT+3 |
| DIS | PTF1+2~, PTF1+11*, PTF1+14 |
| FAC | ADM+1~, ADM+17*, ADM+23, MVT+12*, PTF1+2~, PTF1+15*, PTF1+18, PTF1+19*, PTF1+20, PTF1+21 , PTF1+22 |
| HLOC | ADM+1~, ADM+17*, ADM+18, ADM+19, ADM+20, MVT+12*, MVT+13, MVT+14, PTF1+2~, PTF1+12* , PTF1+15 |
| I | ADM+1~, ADM+11*, ADM+27*, ADM+28*, TIU+1~, TIU+4*, TIU+5*, TIU+6, TIU+7, PROV~ , PROV+1, PROV+2, PROV+3, PROV+4 |
| ICD | ADM+1~, ADM+29*, ADM+30, ADM+32, ADM+33 |
| ID | ADM~, ADM+2*, ADM+3, ADM+4, ADM+6*, ADM+7, PTFA~, PTFA+2, PTF1+4, PTF1+6 , PTF1+7 |
| IDT | PTFA+1~*, PTFA+2* |
| IEN | PROV~, PROV+1, PROV+2 |
| LT | TIU+1~, TIU+6*, TIU+10 |
| MVT | ADM+1~, ADM+11*, ADM+12*, ADM+15, ADM+17, ADM+28, ADM+30 |
| NT | TIU+1~, TIU+8*, TIU+11 |
| >> P | PTF1+7* |
| PRIM | PROV~, PROV+4 |
| PTF | PTF1+2~ |
| PTF("arrivalDateTime" | PTF1+13* |
| PTF("dischargeDateTime" | PTF1+14* |
| PTF("encounterName" | PTF1+18* |
| PTF("encounterUid" | PTF1+17* |
| PTF("icdCode" | PTF1+10* |
| PTF("icdName" | PTF1+10* |
| PTF("localId" | PTF1+6* |
| PTF("principalDx" | PTF1+7* |
| PTF("uid" | PTF1+6* |
| ROLE | PROV~, PROV+3 |
| SCR | TIU+1~, TIU+2*, TIU+3 |
| SPEC | ADM+1~, ADM+15*, ADM+16 |
| SYS | ADM+32~*, ADM+33 |
| TMP | PTF1+2~, PTF1+4*, PTF1+8, PTF1+11 |
| >> TYPE | PTF1+7* |
| U | ADM+10, ADM+15, ADM+19, ADM+20, ADM+21, ADM+32, ADM+33, ADM+34, PROV+2, MVT+6 , MVT+7, MVT+9, MVT+10, MVT+12, MVT+14, PTF1+8, PTF1+9, PTF1+10, PTF1+11, PTF1+19 , PTF1+20, PTF1+21 |
| VADMVT | ADM+1~, ADM+6*, ADM+11, ADM+35 |
| VAERR | ADM+1~ |
| VAIN | PTF1+2~ |
| VAIN(4 | PTF1+12 |
| VAIN(7 | PTF1+12 |
| VAINDT | PTF1+2~, PTF1+11* |
| VAIP | ADM+1~ |
| VAIP( | ADM+15, ADM+17, ADM+28, ADM+30 |
| VAIP("D" | ADM+3* |
| VAIP("E" | ADM+4* |
| VAIP(1 | ADM+5 |
| VAIP(12 | ADM+29 |
| VAIP(13 | ADM+6, ADM+8 |
| VAIP(17 | ADM+26 |
| VAIP(18 | ADM+27 |
| VAIP(6 | ADM+10 |
| VISIT | TIU~, TIU+3, PTF1+2~, PTF1+16*, PTF1+17, PTF1+18, PTF1+19 |
| VPRADMIT | ADM+14! |
| >> VPRIDT | PTFA+1*, PTFA+2*, PTFA+3, PTF1+4 |
| VPRX | TIU+1~ |
| VPRX("DILIST" | TIU+5, TIU+6, TIU+7 |
| VPRY | TIU+1~ |
| >> VST | ADM+3*, ADM+4*, ADM+8*, ADM+29, ADM+34, ADM+36 |
| X | ADM+13*, ADM+16*, ADM+20*, ADM+21, ADM+34*, TIU+1~, MVT+1~, MVT+7*, MVT+8, MVT+9 , MVT+10*, MVT+11, PTF1+2~, PTF1+8*, PTF1+9, PTF1+10, PTF1+20*, PTF1+21*, VISIT+1~, VISIT+2* , VISIT+3 |
| X0 | MVT+3*, MVT+6, MVT+7, MVT+10, MVT+12, PTF1+2~, PTF1+19*, PTF1+21 |
| Y | TIU+1~, TIU+4*, PTF1+2~, PTF1+9*, PTF1+10, VISIT+1~, VISIT+3*, VISIT+4 |
