VSITSTAT ;ISL/PKR - Visit Tracking in/out patient Update Protocol for ADT ;04/14/2022
Source file <VSITSTAT.m>
| 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 |
| Package | Total | Caller Graph |
|---|---|---|
| Kernel | 1 | ^ORD(101 |
| PCE Patient Care Encounter | 1 | VSIT PATIENT STATUS |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADMISSION(ADMDATA,VAIP) | ;If there is an admission save the data.
|
|
| DISCHARGE(DISDATA,VAIP) | ;If there is a discharge save the data.
|
|
| EN | ;Main entry point, invoked by the DGPM MOVEMENT EVENTS protocol.
|
|
| ENQ | ;
|
|
| FINDADMVISIT(DFN,HLOC,ADMDT) | ;Given the DFN, hospital location, and
|
|
| SCANUPD(DFN,BEGDT,ENDDT,INOUT) | ;Scan a date range of visits and update
|
|
| UPDADMVISIT(DFN,PRIOR,AFTER) | ;Update the VISIT/ADMIT DATE&TIME to the new
|
|
| UPDSCAT(VISITIEN,INOUT) | ;Set the Service Category for in or outpatient.
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT - [#9000010] | FINDADMVISIT+6, UPDSCAT+2 |
| ^AUPNVSIT("AA" | SCANUPD+11, SCANUPD+13 |
| ^AUPNVSIT("AET" | FINDADMVISIT+3, FINDADMVISIT+5 |
| ^DIC(42 - [#42] | UPDADMVISIT+3, UPDADMVISIT+9, UPDADMVISIT+14 |
| ^UTILITY("DGPM" | ADMISSION+4, ADMISSION+6, ADMISSION+7, DISCHARGE+2, DISCHARGE+4, DISCHARGE+5, EN+9, EN+91, EN+92 |
| Name | Field # of Occurrence |
|---|---|
| ^("P" | EN+92 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADMDATA | ADMISSION~, EN+12~, EN+19 |
| ADMDATA("A" | ADMISSION+6*, ADMISSION+9*, ADMISSION+10, EN+25, EN+32, EN+33, EN+40, EN+41, EN+47, EN+49 , EN+54, EN+62, EN+83 |
| ADMDATA("P" | ADMISSION+7*, ADMISSION+10*, EN+25, EN+32, EN+40, EN+42, EN+47, EN+48, EN+54, EN+55 , EN+62, EN+83, EN+84 |
| ADMDT | FINDADMVISIT~, FINDADMVISIT+3, FINDADMVISIT+5 |
| ADMVISIT | FINDADMVISIT+2~, FINDADMVISIT+4*, FINDADMVISIT+5, FINDADMVISIT+7*, FINDADMVISIT+8, UPDADMVISIT+2~, UPDADMVISIT+4*, UPDADMVISIT+5, UPDADMVISIT+6, UPDADMVISIT+11 |
| AFTER | EN+90~, EN+92*, EN+94, EN+95, UPDADMVISIT~, UPDADMVISIT+8, UPDADMVISIT+9, UPDADMVISIT+12, UPDADMVISIT+14 |
| BEGDT | SCANUPD~, SCANUPD+10 |
| CSC | UPDSCAT+1~, UPDSCAT+2*, UPDSCAT+3, UPDSCAT+7 |
| DFN | EN+37, EN+44, EN+51, EN+59, EN+66, EN+73, EN+80, EN+87, EN+95, FINDADMVISIT~ , FINDADMVISIT+3, FINDADMVISIT+5, SCANUPD~, SCANUPD+11, SCANUPD+13, UPDADMVISIT~, UPDADMVISIT+4, UPDADMVISIT+18 |
| >> DGPMDA | EN+15 |
| >> DGQUIET | EN+10, EN+26, EN+97 |
| DISDATA | DISCHARGE~, EN+12~, EN+22 |
| DISDATA("A" | DISCHARGE+4*, DISCHARGE+7*, DISCHARGE+8, EN+34, EN+62, EN+63, EN+69, EN+70, EN+76, EN+78 , EN+83 |
| DISDATA("P" | DISCHARGE+5*, DISCHARGE+8*, EN+56, EN+62, EN+69, EN+71, EN+76, EN+77, EN+83, EN+85 |
| ENDDT | SCANUPD~, SCANUPD+9 |
| HLOC | EN+28~, FINDADMVISIT~, FINDADMVISIT+3, FINDADMVISIT+5, UPDADMVISIT+2~, UPDADMVISIT+3*, UPDADMVISIT+4 |
| IN | EN+28~, EN+29*, EN+36, EN+43, EN+79, EN+86 |
| INOUT | EN+28~, EN+36*, EN+37, EN+43*, EN+44, EN+50*, EN+51, EN+58*, EN+59, EN+65* , EN+66, EN+72*, EN+73, EN+79*, EN+80, EN+86*, EN+87, SCANUPD~, SCANUPD+15, SCANUPD+17 , UPDSCAT~, UPDSCAT+4, UPDSCAT+8 |
| INVDT | SCANUPD+8~, SCANUPD+9*, SCANUPD+11*, SCANUPD+13 |
| INVEND | SCANUPD+8~, SCANUPD+10*, SCANUPD+11 |
| MVMNT | ADMISSION+3~, ADMISSION+4*, ADMISSION+5, ADMISSION+6, ADMISSION+7, DISCHARGE+1~, DISCHARGE+2*, DISCHARGE+3, DISCHARGE+4, DISCHARGE+5 |
| NSC | UPDSCAT+1~, UPDSCAT+2*, UPDSCAT+4*, UPDSCAT+5*, UPDSCAT+8*, UPDSCAT+9*, UPDSCAT+12 |
| OUT | EN+28~, EN+29*, EN+50, EN+58, EN+65, EN+72 |
| PRIOR | EN+90~, EN+92*, EN+94, EN+95, UPDADMVISIT~, UPDADMVISIT+3 |
| SDBEG | EN+28~, EN+33*, EN+37, EN+41*, EN+44, EN+48*, EN+51, EN+55*, EN+59, EN+63* , EN+66, EN+70*, EN+73, EN+77*, EN+80, EN+84*, EN+87 |
| SDEND | EN+28~, EN+34*, EN+35*, EN+37, EN+42*, EN+44, EN+49*, EN+51, EN+56*, EN+57* , EN+59, EN+64*, EN+66, EN+71*, EN+73, EN+78*, EN+80, EN+85*, EN+87 |
| U | ADMISSION+6, ADMISSION+7, ADMISSION+9, DISCHARGE+4, DISCHARGE+5, DISCHARGE+7, EN+94, FINDADMVISIT+6, UPDADMVISIT+3, UPDADMVISIT+8 , UPDADMVISIT+9, UPDADMVISIT+12, UPDADMVISIT+14, UPDSCAT+2 |
| VAIP | ADMISSION~, DISCHARGE~, EN+12~, EN+19, EN+22 |
| VAIP("E" | EN+15* |
| VAIP(13 | ADMISSION+9 |
| VAIP(17 | DISCHARGE+7 |
| VDT | UPDADMVISIT+2~, UPDADMVISIT+3*, UPDADMVISIT+4, UPDADMVISIT+12*, UPDADMVISIT+18 |
| VISITIEN | FINDADMVISIT+2~, FINDADMVISIT+4*, FINDADMVISIT+5*, FINDADMVISIT+6, FINDADMVISIT+7, SCANUPD+8~, SCANUPD+12*, SCANUPD+13*, SCANUPD+14, SCANUPD+17 , UPDSCAT~, UPDSCAT+2 |
| VSIT | SCANUPD+8~, UPDADMVISIT+2~, UPDADMVISIT+18 |
| VSIT("CDT" | UPDADMVISIT+15* |
| VSIT("IEN" | SCANUPD+14*, UPDADMVISIT+6* |
| VSIT("IO" | SCANUPD+15* |
| VSIT("LOC" | UPDADMVISIT+9*, UPDADMVISIT+14* |
| VSIT("MDT" | SCANUPD+16*, UPDADMVISIT+7*, UPDADMVISIT+15* |
| VSIT("PKG" | UPDADMVISIT+16* |
| VSIT("PRI" | UPDADMVISIT+13* |
| VSIT("SOR" | UPDADMVISIT+17* |
| VSIT("SVC" | SCANUPD+17*, UPDADMVISIT+13* |
| VSIT("VDT" | UPDADMVISIT+8* |
| VSITMVT | EN+90~, EN+91*, EN+92 |
| WARD | ADMISSION+3~, DISCHARGE+1~ |
| Y | UPDADMVISIT+2~, UPDADMVISIT+18* |
