VSITDEF ;ISL/dee - Defaulting Logic for the Visit ;4/17/97
Source file <VSITDEF.m>
Package | Total | Call Graph |
---|---|---|
PCE Patient Care Encounter | 8 | ($$SOURCE,SOURCE)^PXAPI $$PKG2IEN^VSIT $$ELG^VSITASK $$ERRCHK^VSITCK ($$DSS4LOC,$$INS4LOC)^VSITCK1 (ERR,WRN)^VSITPUT $$GET^VSITVAR $$GETVID^VSITVID |
IHS Patient | 1 | ($$DOB,$$DOD)^AUPNPAT |
Registration | 1 | $$SITE^VASITE |
VA Fileman | 1 | NOW^%DTC |
Name | Comments | DBIA/ICR reference |
---|---|---|
REQUIRED() | ;Check the required variables
|
|
DEFAULTS | ;Default all of the rest of the fields that are NOT need for lookup matching
; - CDT & MDT |
Name | Field # of Occurrence |
---|---|
NOW^%DTC | DEFAULTS+4 |
$$DOB^AUPNPAT | REQUIRED+20 |
$$DOD^AUPNPAT | REQUIRED+19 |
$$SOURCE^PXAPI | DEFAULTS+83 |
SOURCE^PXAPI | DEFAULTS+82 |
$$SITE^VASITE | REQUIRED+7 |
$$PKG2IEN^VSIT | DEFAULTS+76 |
$$ELG^VSITASK | DEFAULTS+21 |
$$ERRCHK^VSITCK | REQUIRED+9, REQUIRED+12, REQUIRED+26, REQUIRED+30, REQUIRED+37, REQUIRED+43, REQUIRED+61, DEFAULTS+14, DEFAULTS+17, DEFAULTS+31 , DEFAULTS+35, DEFAULTS+39, DEFAULTS+43, DEFAULTS+46, DEFAULTS+52, DEFAULTS+55, DEFAULTS+58, DEFAULTS+61, DEFAULTS+64, DEFAULTS+67 , DEFAULTS+70, DEFAULTS+73, DEFAULTS+77, DEFAULTS+85 |
$$DSS4LOC^VSITCK1 | REQUIRED+41 |
$$INS4LOC^VSITCK1 | REQUIRED+24 |
ERR^VSITPUT | REQUIRED+10, REQUIRED+13, REQUIRED+18, REQUIRED+19, REQUIRED+20, REQUIRED+27, REQUIRED+31, REQUIRED+38, REQUIRED+44, REQUIRED+62 |
WRN^VSITPUT | DEFAULTS+15, DEFAULTS+18, DEFAULTS+32, DEFAULTS+36, DEFAULTS+40, DEFAULTS+44, DEFAULTS+47, DEFAULTS+53, DEFAULTS+56, DEFAULTS+59 , DEFAULTS+62, DEFAULTS+65, DEFAULTS+68, DEFAULTS+71, DEFAULTS+74, DEFAULTS+78, DEFAULTS+86 |
$$GET^VSITVAR | DEFAULTS+9 |
$$GETVID^VSITVID | DEFAULTS+49 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVSIT - [#9000010] | DEFAULTS+11, DEFAULTS+23 |
^DIC(150.9 - [#150.9] | REQUIRED+36 |
^DIC(40.7 - [#40.7] | REQUIRED+51, REQUIRED+52, DEFAULTS+51 |
^DPT - [#2] | DEFAULTS+24, DEFAULTS+29, DEFAULTS+30 |
^SC - [#44] | REQUIRED+53 |
^VSIT(150.1 - [#150.1] | REQUIRED+52, DEFAULTS+51 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | DEFAULTS+3~, DEFAULTS+5 |
%H | DEFAULTS+3~ |
%I | DEFAULTS+3~ |
DT | REQUIRED+18 |
DUZ | DEFAULTS+34 |
DUZ("AG" | REQUIRED+35 |
MSG | REQUIRED+17~*, REQUIRED+18, REQUIRED+19, REQUIRED+20 |
>> NOD | DEFAULTS+11*, DEFAULTS+12, DEFAULTS+13 |
QUIT | REQUIRED+5~, REQUIRED+6*, REQUIRED+10*, REQUIRED+13*, REQUIRED+16, REQUIRED+18*, REQUIRED+19*, REQUIRED+20*, REQUIRED+27*, REQUIRED+31* , REQUIRED+38*, REQUIRED+44*, REQUIRED+62*, REQUIRED+64 |
SITE | REQUIRED+5~, REQUIRED+7*, REQUIRED+25, REQUIRED+29 |
U | REQUIRED+17, REQUIRED+19, REQUIRED+20 |
>> VSIT("AO" | DEFAULTS+58*, DEFAULTS+59 |
>> VSIT("CDT" | DEFAULTS+5* |
>> VSIT("COD" | DEFAULTS+17*, DEFAULTS+18 |
>> VSIT("COM" | DEFAULTS+70*, DEFAULTS+71 |
>> VSIT("DSS" | REQUIRED+40, REQUIRED+41*, REQUIRED+42, REQUIRED+43*, REQUIRED+44, REQUIRED+49, REQUIRED+51, REQUIRED+52, REQUIRED+53, DEFAULTS+51 |
>> VSIT("EC" | DEFAULTS+64*, DEFAULTS+65 |
>> VSIT("ELG" | DEFAULTS+21*, DEFAULTS+22, DEFAULTS+23*, DEFAULTS+24*, DEFAULTS+25, DEFAULTS+30*, DEFAULTS+31*, DEFAULTS+32 |
>> VSIT("HNC" | DEFAULTS+67*, DEFAULTS+68 |
>> VSIT("INS" | REQUIRED+23, REQUIRED+24*, REQUIRED+25*, REQUIRED+26*, REQUIRED+27, REQUIRED+29, REQUIRED+33 |
>> VSIT("IO" | REQUIRED+46*, REQUIRED+55 |
>> VSIT("IR" | DEFAULTS+61*, DEFAULTS+62 |
>> VSIT("LNK" | DEFAULTS+8, DEFAULTS+9*, DEFAULTS+10, DEFAULTS+11, DEFAULTS+12*, DEFAULTS+13*, DEFAULTS+14*, DEFAULTS+15, DEFAULTS+23 |
>> VSIT("LOC" | REQUIRED+24, REQUIRED+29, REQUIRED+30*, REQUIRED+31, REQUIRED+40, REQUIRED+41, REQUIRED+53 |
>> VSIT("MDT" | DEFAULTS+5* |
>> VSIT("OPT" | DEFAULTS+38*, DEFAULTS+39*, DEFAULTS+40 |
>> VSIT("OUT" | REQUIRED+23, DEFAULTS+46*, DEFAULTS+47 |
>> VSIT("PAT" | REQUIRED+12*, REQUIRED+13, REQUIRED+19, REQUIRED+20, DEFAULTS+10, DEFAULTS+13, DEFAULTS+20, DEFAULTS+21, DEFAULTS+24, DEFAULTS+29 , DEFAULTS+30 |
>> VSIT("PKG" | DEFAULTS+76*, DEFAULTS+77*, DEFAULTS+78 |
>> VSIT("PRI" | DEFAULTS+51*, DEFAULTS+52*, DEFAULTS+53 |
>> VSIT("PRO" | DEFAULTS+42*, DEFAULTS+43*, DEFAULTS+44 |
>> VSIT("SC" | DEFAULTS+55*, DEFAULTS+56 |
>> VSIT("SOR" | DEFAULTS+81, DEFAULTS+83*, DEFAULTS+84*, DEFAULTS+85*, DEFAULTS+86 |
>> VSIT("SVC" | REQUIRED+9, REQUIRED+23, REQUIRED+29, REQUIRED+34, REQUIRED+48, REQUIRED+51*, REQUIRED+52*, REQUIRED+53*, REQUIRED+54*, REQUIRED+56* , REQUIRED+57*, REQUIRED+60*, REQUIRED+61*, REQUIRED+62 |
>> VSIT("TYP" | REQUIRED+33*, REQUIRED+34*, REQUIRED+35*, REQUIRED+36*, REQUIRED+37*, REQUIRED+38 |
>> VSIT("USR" | DEFAULTS+34*, DEFAULTS+35*, DEFAULTS+36 |
>> VSIT("VDT" | REQUIRED+7, REQUIRED+9*, REQUIRED+10, REQUIRED+17, REQUIRED+18, REQUIRED+19, REQUIRED+20 |
>> VSIT("VER" | DEFAULTS+73*, DEFAULTS+74 |
>> VSIT("VID" | DEFAULTS+49* |
>> VSIT(0 | DEFAULTS+20, DEFAULTS+21 |
VSITE | DEFAULTS+26~, DEFAULTS+27*, DEFAULTS+29* |
VSITI | DEFAULTS+26~, DEFAULTS+27*, DEFAULTS+29*, DEFAULTS+30 |
>> VSITIPM | REQUIRED+46 |
X | REQUIRED+17~, REQUIRED+19*, REQUIRED+20*, DEFAULTS+3~ |
>> XQORNOD | DEFAULTS+42 |
>> XQY | DEFAULTS+38 |
Name | Field # of Occurrence |
---|---|
$T(SOURCE^PXAPI | DEFAULTS+82 |