VPRSDADG ;SLC/MKB -- SDA DG PTF utilities ;04/25/22 15:29
Source file <VPRSDADG.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 4 | GETMSE^DGMSEUTL RPC^DGPTFAPI ($$STR601,PTFIEN)^DGPTFUT PTF^DGPTPXRM |
| VA FileMan | 3 | $$FIND1^DIC $$EXTERNAL^DILFD $$GET1^DIQ |
| Virtual Patient Record | 2 | $$DATE^VPRSDA $$VNUM^VPRSDAV |
| DRG Grouper | 1 | $$CODEBA^ICDEX |
| 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 |
|---|---|---|
| DXQ | ; -- get PTF Dx via Admissions
; Query called from GET^DDE, returns DLIST(#)=ien ; Expects context variables DFN, DSTRT, DSTOP, DMAX |
|
| DX1 | ; -- get info for single PTF record [ID Action]
; Expects DIEN = #45 ien, returns VPRPOA & VPRPTF array |
|
| OPQ | ; -- get PTF 601 procedure codes via Admissions
; Query called from GET^DDE, returns DLIST(#)=ien ; Expects context variables DFN, DSTRT, DSTOP, DMAX |
|
| OP1 | ; -- get info for single PTF record [ID Action]
; Expects DIEN = #45 iens, returns VPRPTF & VPRVST |
|
| MSE | ;Using GETMSE^DGMSEUTL, build array for use in entity VPR PATIENT MSE ALL
|
| Name | Field # of Occurrence |
|---|---|
| GETMSE^DGMSEUTL | MSE+3 |
| RPC^DGPTFAPI | DXQ+10, DX1+9 |
| $$STR601^DGPTFUT | OPQ+11 |
| PTFIEN^DGPTFUT | OPQ+9 |
| PTF^DGPTPXRM | DX1+14 |
| $$FIND1^DIC | DX1+5, OP1+6 |
| $$EXTERNAL^DILFD | MSE+19 |
| $$GET1^DIQ | MSE+10, MSE+11 |
| $$CODEBA^ICDEX | DX1+12 |
| $$DATE^VPRSDA | MSE+8, MSE+9 |
| $$VNUM^VPRSDAV | DXQ+8, DX1+7, OPQ+8, OP1+8 |
| FileNo | Call Tags |
|---|---|
| 2.3216 | EXTERNAL^DILFD |
| ^DIC(23 - [#23] | GET1^DIQ |
| ^DIC(25 - [#25] | GET1^DIQ |
| ^DGPM - [#405] | FIND1^DIC |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT - [#9000010] | DX1+7, OP1+8 |
| ^DGPM - [#405] | DXQ+8, DX1+6, OPQ+8, OP1+7 |
| ^DGPM("ATID1" | DXQ+6, DXQ+7, OPQ+6, OPQ+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADM | DXQ+4~, DXQ+7*, DXQ+8, DX1+5~*, DX1+6, DX1+7, OPQ+4~, OPQ+7*, OPQ+8, OP1+5~ , OP1+6*, OP1+7, OP1+8 |
| BRANCH | MSE+1~, MSE+10*, MSE+13, MSE+15 |
| BRANCH2 | MSE+1~, MSE+10*, MSE+15 |
| COMP | MSE+1~, MSE+10*, MSE+19 |
| COUNT | MSE+1~, MSE+2*, MSE+12*, MSE+13, MSE+14, MSE+15, MSE+16, MSE+17, MSE+18, MSE+19 |
| DA | OPQ+4~, OPQ+10*, OPQ+11, OPQ+12, MSE+1~ |
| >> DDEOUT | DX1+4*, DX1+9*, DX1+12*, OP1+4* |
| >> DFN | DXQ+6, DXQ+7, DX1+6*, OPQ+6, OPQ+7, OP1+7*, MSE+3 |
| >> DIEN | DX1+3*, DX1+5, DX1+9, DX1+14, OP1+3* |
| >> DLIST( | DXQ+11*, DXQ+12*, OPQ+12* |
| >> DMAX | DXQ+6, DXQ+7, OPQ+6, OPQ+7 |
| DONE | MSE+1~ |
| >> DSTOP | DXQ+5, OPQ+5 |
| >> DSTRT | DXQ+5, OPQ+5 |
| DTYP | MSE+1~, MSE+11*, MSE+14 |
| DTYP2 | MSE+1~, MSE+11*, MSE+14 |
| EDATA | MSE+1~, MSE+7*, MSE+8, MSE+9, MSE+10, MSE+11 |
| EDATE | MSE+1~, MSE+2*, MSE+8*, MSE+9, MSE+16 |
| EDATE2 | MSE+1~, MSE+8*, MSE+9*, MSE+16 |
| END | DXQ+4~, DXQ+5*, DXQ+6, OPQ+4~, OPQ+5*, OPQ+6 |
| I | DXQ+4~, DXQ+12*, MSE+1~ |
| IDT | DXQ+4~, DXQ+5*, DXQ+6*, DXQ+7, OPQ+4~, OPQ+5*, OPQ+6*, OPQ+7 |
| N | DX1+2~, DX1+10*, DX1+11 |
| P | OPQ+4~, OPQ+12* |
| PTF | DXQ+4~, DXQ+8*, DXQ+10, DXQ+11, DXQ+12, OPQ+4~, OPQ+8*, OPQ+9, OPQ+11, OPQ+12 , OP1+5~, OP1+6* |
| SDATE | MSE+1~, MSE+9*, MSE+17 |
| SDATE2 | MSE+1~, MSE+9*, MSE+17 |
| SERVNO | MSE+1~, MSE+11*, MSE+18 |
| STR | OPQ+4~, OPQ+11*, OPQ+12 |
| SUB | MSE+1~, MSE+13*, MSE+14, MSE+15, MSE+16, MSE+17, MSE+18, MSE+19 |
| U | DXQ+8, DXQ+11, DXQ+12, DX1+6, DX1+10, DX1+11, DX1+13, OPQ+8, OPQ+12, OP1+7 , MSE+7, MSE+8, MSE+9, MSE+10, MSE+11, MSE+14, MSE+15, MSE+16, MSE+17, MSE+19 |
| VPRI | MSE+1~, MSE+5*, MSE+7 |
| VPRMS | MSE+3! |
| VPRMS( | MSE+5, MSE+7 |
| VPRN | DXQ+4~, DXQ+5*, DXQ+6, DXQ+7, DXQ+11*, DXQ+12*, OPQ+4~, OPQ+5*, OPQ+6, OPQ+7 , OPQ+12* |
| >> VPRPOA | DX1+10* |
| VPRPTF | DX1+2!, DX1+3*, DX1+10, DX1+14, OP1+3*, OP1+6 |
| VPRPTF("DX" | DX1+13* |
| VPRPTF("VISIT" | DX1+8* |
| VPRSV | MSE+3! |
| VPRSV( | MSE+13*, MSE+14*, MSE+15*, MSE+16*, MSE+17*, MSE+18*, MSE+19* |
| >> VPRVST | OP1+9* |
| VPTF | DXQ+4~, DXQ+10, DX1+2~, DX1+9, OPQ+4~, OPQ+9, OP1+2~ |
| VPTF( | OPQ+10 |
| VPTF(0 | DXQ+10, DX1+9 |
| VPTF(1 | DXQ+11, DX1+11 |
| VPTF(2 | DXQ+12, DX1+11 |
| VPTF(3 | DX1+10 |
| VST | DX1+2~, DX1+4*, DX1+7*, DX1+8, OP1+2~, OP1+4*, OP1+8*, OP1+9 |
| X | DX1+2~, DX1+11*, DX1+12, DX1+13, OPQ+4~, OPQ+12*, OP1+2~ |
| Y | DX1+2~, DX1+12*, DX1+13, OP1+2~ |
