TIULV ; SLC/JER - Visit/Movement related library ;29-Apr-2014 15:01;DU
Source file <TIULV.m>
| Package | Total | Call Graph |
|---|---|---|
| Text Integration Utility | 4 | $$DIVISION^TIULC1 $$DATE^TIULS $$ISPN^TIULX $$PROVIDER^TIUPXAP1 |
| VA Fileman | 3 | ^DIC ($$GET1,Y)^DIQ EN^DIQ1 |
| Registration | 2 | (52,ADD,DEM,ELIG,INP,OERR)^VADPT $$NAME^VASITE |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| WARD(DA) | ; Compute ward at discharge
|
|
| CURRENT(TIUY,DFN) | ; Get current INPATIENT data
|
|
| VSIT(TIUY,TIUVSTR) | ; Get Visit related info
|
|
| WARDX | ||
| PATVADPT(TIUY,DFN,TIUMVN,TIUVSTR,TIUSDC) | ; Extract MAS data
|
|
| PATPN(TIUY,DFN) | ; Get minimum demographics for PN Print
|
|
| PROVSVC(TIUSER) | ; Resolve user's Service
|
| Name | Field # of Occurrence |
|---|---|
| ^DIC | WARD+5 |
| $$GET1^DIQ | PATPN+12, PATVADPT+25, PATVADPT+26, PATVADPT+53, PATVADPT+59 |
| Y^DIQ | VSIT+8 |
| EN^DIQ1 | WARD+4, VSIT+17, CURRENT+8, CURRENT+15 |
| $$DIVISION^TIULC1 | PATVADPT+64, PATVADPT+67 |
| $$DATE^TIULS | PATPN+6, VSIT+4 |
| $$ISPN^TIULX | PATVADPT+65 |
| $$PROVIDER^TIUPXAP1 | PATVADPT+45 |
| 52^VADPT | PATVADPT+21 |
| ADD^VADPT | PATPN+7, PATVADPT+7 |
| DEM^VADPT | PATVADPT+2 |
| ELIG^VADPT | VSIT+2 |
| INP^VADPT | CURRENT+1 |
| OERR^VADPT | PATPN+2 |
| $$NAME^VASITE | PATPN+10 |
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| ^DGPM - [#405] | Classic Fileman Calls, GET1^DIQ |
| ^DIC(45.7 - [#45.7] | GET1^DIQ |
| ^DIC(49 - [#49] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT - [#9000010] | PATVADPT+49, PATVADPT+50, PATVADPT+55, PATVADPT+56 |
| ^DD(9000010 | VSIT+8 |
| ^DG(40.8 - [#40.8] | PATVADPT+35, PATVADPT+59, VSIT+21, VSIT+22 |
| ^DGPM - [#405] | PATVADPT+18 |
| ^DIC(42 - [#42] | PATVADPT+29, PATVADPT+34, PATVADPT+37, PATVADPT+66 |
| ^DIC(49 - [#49] | PROVSVC+3 |
| ^DPT - [#2] | PATVADPT+65 |
| ^SC - [#44] | PATVADPT+31, PATVADPT+40, VSIT+12, VSIT+14 |
| ^TIU(8925 - [#8925] | PATVADPT+47, PATVADPT+48, PATVADPT+49!, VSIT+13 |
| ^VA(200 - [#200] | PROVSVC+2 |
| Name | Line Occurrences |
|---|---|
| $$PROVSVC | PATVADPT+46 |
| $$WARD | PATVADPT+27 |
| CURRENT | PATVADPT+43 |
| VSIT | PATVADPT+42 |
| WARDX | WARD+2 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | WARD+1~ |
| BTIUVSIT | PATVADPT+53~*, PATVADPT+55, PATVADPT+56 |
| C | VSIT+8~* |
| D0 | WARD+1~ |
| DA | WARD~, WARD+2, WARD+5, VSIT+1~, VSIT+16~, VSIT+17*, VSIT+18, VSIT+19, CURRENT+6~, CURRENT+7* , CURRENT+9, CURRENT+10, CURRENT+13~, CURRENT+14* |
| DFN | PATPN~, PATVADPT~, PATVADPT+43, PATVADPT+47, PATVADPT+48, PATVADPT+49, PATVADPT+65, CURRENT~ |
| DIC | WARD+1~, WARD+3*, WARD+5*, VSIT+1~, VSIT+16~, VSIT+17*, CURRENT+6~, CURRENT+7*, CURRENT+13~, CURRENT+14* |
| DIC(0 | WARD+5* |
| DIQ | WARD+1~, WARD+3*, VSIT+1~, VSIT+16~, VSIT+17*, CURRENT+6~, CURRENT+7*, CURRENT+13~, CURRENT+14* |
| DIQ(0 | WARD+3*, VSIT+17*, CURRENT+7* |
| DR | WARD+1~, WARD+3*, VSIT+1~, VSIT+16~, VSIT+17*, CURRENT+6~, CURRENT+7*, CURRENT+13~, CURRENT+14* |
| DUZ | PATVADPT+45, PATVADPT+46 |
| DUZ(2 | PATPN+12, PATVADPT+59, VSIT+21, CURRENT+14, CURRENT+17 |
| >> HRCN | PATPN+5, PATVADPT+4 |
| MOVE | WARD+1~ |
| MOVE(405 | WARD+5 |
| >> TIUAUTH | PATVADPT+45, PATVADPT+46 |
| TIUCT | VSIT+1~, VSIT+6*, VSIT+8, VSIT+9 |
| >> TIUD12 | VSIT+13 |
| >> TIUD13(0 | PATVADPT+17 |
| >> TIUDA | VSIT+13 |
| TIUDIV | PATVADPT+20~, PATVADPT+34*, PATVADPT+35, VSIT+16~, CURRENT+6~ |
| TIUDIV(42 | CURRENT+9, CURRENT+10 |
| TIUDIV(44 | VSIT+18, VSIT+19 |
| >> TIUDIV1(4 | CURRENT+17 |
| TIUFTS | PATVADPT+1~ |
| TIUI | PATVADPT+1~, PATVADPT+22*, PATVADPT+23, PATVADPT+24, PATVADPT+33, WARD+2 |
| TIUMVN | PATVADPT~, PATVADPT+18, PATVADPT+21, PATVADPT+43, PATVADPT+53, PATVADPT+65 |
| TIUSDC | PATVADPT~, PATVADPT+16 |
| TIUSER | PROVSVC~, PROVSVC+2 |
| TIUSS | PATVADPT+1~ |
| >> TIUTYP | PATVADPT+63 |
| >> TIUTYP(1 | PATVADPT+63 |
| TIUTYPE | PATVADPT+1~, PATVADPT+63*, PATVADPT+64, PATVADPT+65 |
| TIUVSIT | PATVADPT+48~*, PATVADPT+49, PATVADPT+50, PATVADPT+55 |
| TIUVSTR | PATVADPT~, PATVADPT+42, PATVADPT+43, VSIT~, VSIT+4, VSIT+6, VSIT+9, VSIT+12 |
| TIUWARD | PATVADPT+1~ |
| TIUY | PATPN~, PATVADPT~, PATVADPT+42, PATVADPT+43, PROVSVC+1~, PROVSVC+2*, PROVSVC+3*, PROVSVC+4, VSIT~, CURRENT~ |
| TIUY("AD#" | PATVADPT+33*, CURRENT+2* |
| TIUY("ADDT" | PATVADPT+28* |
| TIUY("ADDX" | PATVADPT+32* |
| TIUY("AGE" | PATVADPT+5* |
| TIUY("AMD" | PATVADPT+24* |
| TIUY("CAT" | VSIT+8* |
| TIUY("CLAIM" | PATVADPT+23* |
| TIUY("DIV" | PATVADPT+35*, PATVADPT+59*, VSIT+15, VSIT+19*, VSIT+20, VSIT+21*, VSIT+22*, VSIT+23, CURRENT+9*, CURRENT+12 , CURRENT+17* |
| TIUY("DOB" | PATPN+6*, PATVADPT+6* |
| TIUY("EDT" | PATVADPT+28*, PATVADPT+38, PATVADPT+45, VSIT+3, VSIT+4* |
| TIUY("ELG" | VSIT+11* |
| TIUY("HRCN" | PATPN+5*, PATVADPT+4* |
| TIUY("INS" | VSIT+23* |
| TIUY("INST" | PATVADPT+64*, PATVADPT+67* |
| TIUY("INTNM" | PATPN+10* |
| TIUY("LDT" | PATVADPT+32*, VSIT+5* |
| TIUY("LOC" | PATVADPT+29*, PATVADPT+30, PATVADPT+31*, PATVADPT+41*, PATVADPT+64, PATVADPT+66*, PATVADPT+67, VSIT+13*, VSIT+14*, VSIT+15 , VSIT+17, VSIT+20, CURRENT+10*, CURRENT+11* |
| TIUY("LOCP" | PATPN+13* |
| TIUY("LVL" | VSIT+10* |
| TIUY("MTYPE" | PATVADPT+33* |
| TIUY("NUMRACE" | PATVADPT+13* |
| TIUY("PH#" | PATPN+8*, PATPN+9*, PATVADPT+8*, PATVADPT+9* |
| TIUY("PID" | PATVADPT+5* |
| TIUY("PMD" | PATVADPT+23*, CURRENT+2* |
| TIUY("PNM" | PATVADPT+3*, PATVADPT+5 |
| TIUY("PNMP" | PATPN+3* |
| TIUY("RACE" | PATVADPT+13*, PATVADPT+15* |
| TIUY("RACENO" | PATVADPT+14* |
| TIUY("RB" | CURRENT+4* |
| TIUY("REFDT" | PATVADPT+17* |
| TIUY("SC" | VSIT+24* |
| TIUY("SEX" | PATVADPT+10* |
| TIUY("SITE" | PATPN+12* |
| TIUY("SSN" | PATPN+4*, PATVADPT+3* |
| TIUY("STOP" | PATVADPT+16* |
| TIUY("SVC" | PATVADPT+25*, PATVADPT+26*, PATVADPT+46* |
| TIUY("TS" | PATVADPT+24*, PATVADPT+25, CURRENT+3* |
| TIUY("VISIT" | PATVADPT+50*, PATVADPT+55*, PATVADPT+56* |
| TIUY("VLOC" | PATVADPT+40*, PATVADPT+41, VSIT+12*, VSIT+13 |
| TIUY("VSTR" | PATVADPT+38*, PATVADPT+42*, PATVADPT+47, PATVADPT+48, PATVADPT+49 |
| TIUY("WARD" | PATVADPT+27*, PATVADPT+29, PATVADPT+34, CURRENT+3*, CURRENT+5, CURRENT+7 |
| U | PATPN+13, PATVADPT+26, PATVADPT+31, PATVADPT+34, PATVADPT+35, PATVADPT+37, PATVADPT+40, PATVADPT+49, PATVADPT+50, PATVADPT+55 , PATVADPT+56, PATVADPT+59, PATVADPT+63, PATVADPT+66, PROVSVC+2, PROVSVC+3, VSIT+4, VSIT+8, VSIT+12, VSIT+13 , VSIT+14, VSIT+19, VSIT+22, CURRENT+9, CURRENT+10, CURRENT+17 |
| VA | PATPN+1~, PATVADPT+1~ |
| VA("BID" | PATVADPT+5 |
| VA("PID" | PATPN+4, PATVADPT+3 |
| VADM | PATPN+1~, PATVADPT+1~ |
| VADM(1 | PATPN+3, PATVADPT+3 |
| VADM(12 | PATVADPT+12, PATVADPT+13, PATVADPT+14, PATVADPT+15 |
| VADM(3 | PATPN+6, PATVADPT+6 |
| VADM(4 | PATVADPT+5 |
| VADM(5 | PATVADPT+10 |
| VADM(8 | PATVADPT+15 |
| VAEL | PATVADPT+1~, VSIT+1~ |
| VAEL(1 | VSIT+11 |
| VAEL(7 | PATVADPT+23 |
| VAERR | PATVADPT+1~, VSIT+1~ |
| VAIN | PATPN+1~, CURRENT+1~ |
| VAIN(1 | CURRENT+2 |
| VAIN(2 | CURRENT+2 |
| VAIN(3 | CURRENT+3 |
| VAIN(4 | PATPN+13, CURRENT+3 |
| VAIN(5 | PATPN+13, CURRENT+4 |
| VAIP | PATPN+1~, PATVADPT+1~ |
| VAIP( | PATVADPT+23, PATVADPT+24, PATVADPT+33, WARD+2 |
| VAIP("E" | PATVADPT+21* |
| VAIP(13 | PATVADPT+33, PATVADPT+37 |
| VAIP(14 | PATVADPT+66 |
| VAIP(17 | PATVADPT+22, PATVADPT+27, PATVADPT+32 |
| VAIP(18 | PATVADPT+24 |
| VAIP(3 | PATVADPT+28, PATVADPT+36 |
| VAIP(9 | PATVADPT+32 |
| VAPA | PATPN+1~, PATVADPT+1~ |
| VAPA(8 | PATPN+8, PATPN+9, PATVADPT+8, PATVADPT+9 |
| VDT | PATVADPT+20~, PATVADPT+36* |
| VLOC | PATVADPT+20~, PATVADPT+37*, PATVADPT+38, PATVADPT+40 |
| VSIT | VSIT+1~ |
| X | PATVADPT+1~, WARD+1~, WARD+5*, VSIT+1~, VSIT+16~ |
| Y | PATVADPT+1~, WARD+1~, WARD+2*, WARD+6*, WARDX, VSIT+1~, VSIT+8~*, VSIT+16~, CURRENT+6~ |