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~ |