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 |