SDVSIT ;MJK/ALB - Visit Tracking Processing ; 12/19/12 10:13am
Source file <SDVSIT.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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
AEUPD(SDVIEN,SDATYPE,SDOEP) | ; -- update one entry in multiple
; input: SDVIEN := Visit file pointer ; SDATYPE := Appointment Type [optional] ; SDOEP := ien of ^SCE that is the parent encounter [optional] |
|
AEUPDQ | ||
APPT(DFN,SDT,SDCL,SDVIEN) | ; -- process appt
; input DFN = ien of patient file entry ; SDT = visit date internal format ; SDCL = ien of hospital location file entry ; SDVIEN = Visit file pointer [optional] |
|
APPTQ | ||
CSTOP(SDOE,SDCL0,SDVSIT,SDT) | ;Process credit stop
|
|
DISP(DFN,SDT,SDVIEN) | ; -- process disposition
; input DFN = ien of patient file entry ; SDT = visit date internal format ; SDIV = ien of med ctr file entry ; SDVIEN = Visit file pointer [optional] |
|
DISPQ | ||
ARRAY(DFN,SDT,SDDA,SDIS,SDVSIT) | ; -- setup sdvsit for disposition
|
|
LOCK(SDLOCK) | ; -- lock "ADFN" node
|
|
UNLOCK(SDLOCK) | ; -- unlock "ADFN" node
|
|
DIV(DIV) | ; -- determine med div
|
|
DIVQ | ||
SDOE(SDT,SDVSIT,SDVIEN,SDOEP) | ; -- get visit & encounter
|
|
DATECHCK(DATETIME) | ;Validate FileMan date/time
|
FileNo | Call Tags |
---|---|
^AUPNVSIT - [#9000010] | GETS^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVSIT - [#9000010] | AEUPD+7 |
^AUPNVSIT("AA" | SDOE+6 |
^DG(40.8 - [#40.8] | DIV+1, DIV+2 |
^DG(43 - [#43] | DIV+1 |
^DIC(40.7 - [#40.7] | AEUPD+26, CSTOP+10, ARRAY+3 |
^DPT - [#2] | APPT+14, ARRAY+2 |
^SC - [#44] | AEUPD+20, AEUPD+26, AEUPD+36, APPT+15, APPT+16 |
^SCE("ADFN" | LOCK+1, UNLOCK+1 |
^SCE("AVSIT" | AEUPD+18 |
Name | Line Occurrences |
---|---|
$$DIV | AEUPD+21, APPT+17, ARRAY+4 |
$$SDOE | AEUPD+35, APPT+31, CSTOP+19, DISP+21 |
AEUPDQ | AEUPD+7, AEUPD+10, AEUPD+18, AEUPD+22, AEUPD+27 |
APPTQ | APPT+20, APPT+21, APPT+22, APPT+23 |
ARRAY | DISP+14 |
CSTOP | AEUPD+37, APPT+36 |
DISPQ | DISP+17, DISP+18 |
DIVQ | DIV+1 |
LOCK | AEUPD+15, APPT+11, DISP+11 |
UNLOCK | AEUPDQ, APPTQ, DISPQ |
Name | Field # of Occurrence |
---|---|
^(0 | AEUPD+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | DATECHCK+13~, DATECHCK+19* |
DA | AEUPD+5~, APPT+6~, APPT+33~, APPT+34*, DISP+6~, DISP+22* |
DA(1 | APPT+34*, DISP+22* |
DATE | DATECHCK+13~, DATECHCK+15*, DATECHCK+18, DATECHCK+22*, DATECHCK+24, DATECHCK+45 |
DATETIME | DATECHCK~, DATECHCK+11, DATECHCK+15, DATECHCK+16 |
DE | AEUPD+5~ |
DFN | APPT~, APPT+9, APPT+14, APPT+15, APPT+26, APPT+34, DISP~, DISP+9, DISP+14, DISP+22 , ARRAY~, ARRAY+2, ARRAY+6, SDOE+6, SDOE+10 |
DIE | AEUPD+5~, APPT+6~, APPT+33~, APPT+34*, DISP+6~, DISP+22* |
>> DILOCKTM | LOCK+1 |
DIV | DIV~, DIV+1, DIV+2*, DIVQ |
DQ | AEUPD+5~ |
DR | AEUPD+5~, APPT+6~, APPT+33~, APPT+34*, DISP+6~, DISP+22* |
HR | DATECHCK+13~, DATECHCK+26*, DATECHCK+32*, DATECHCK+34*, DATECHCK+36*, DATECHCK+37*, DATECHCK+43 |
MIN | DATECHCK+13~, DATECHCK+27*, DATECHCK+30*, DATECHCK+32*, DATECHCK+34*, DATECHCK+38*, DATECHCK+39*, DATECHCK+43 |
SD0 | AEUPD+5~, AEUPD+7*, AEUPD+8, AEUPD+9, AEUPD+13, AEUPD+20, AEUPD+24, AEUPD+26, AEUPD+29, AEUPD+30 |
SDATYPE | AEUPD~, AEUPD+31 |
SDCL | APPT~, APPT+15, APPT+16, APPT+21, APPT+26 |
SDCL0 | AEUPD+5~, AEUPD+36*, AEUPD+37, APPT+6~, APPT+15*, APPT+17, APPT+20, APPT+36, CSTOP~, CSTOP+8 , CSTOP+10, CSTOP+13, CSTOP+23 |
SDDA | APPT+6~, APPT+15*, APPT+16, APPT+31, DISP+6~, DISP+14, DISP+22, ARRAY~, ARRAY+1*, ARRAY+2 , ARRAY+8 |
SDI | SDOE+1~ |
SDIS | DISP+6~, DISP+14, DISP+17, ARRAY~, ARRAY+2*, ARRAY+4, ARRAY+5 |
SDLOCK | AEUPD+5~, AEUPD+15, AEUPDQ, APPT+6~, APPT+11, APPTQ, DISP+6~, DISP+11, DISPQ, LOCK~ , UNLOCK~ |
SDLOCK("DFN" | AEUPD+13*, APPT+9*, DISP+9*, LOCK+1, UNLOCK+1 |
SDLOCK("EVENT | DATE/TIME" , AEUPD+14*, APPT+10*, DISP+10*, LOCK+1, UNLOCK+1 |
SDOE | AEUPD+5~, AEUPD+35*, AEUPD+37, APPT+6~, APPT+31*, APPT+32, APPT+34, APPT+36, CSTOP~, CSTOP+8 , CSTOP+16, DISP+6~, DISP+21*, DISP+22 |
SDOEP | AEUPD~, AEUPD+32, AEUPD+35, SDOE~ |
SDPT | APPT+6~, APPT+14*, APPT+20, APPT+21, APPT+22, APPT+28 |
SDSC | APPT+6~, APPT+16*, APPT+20, APPT+27 |
SDT | AEUPD+5~, AEUPD+8*, AEUPD+14, AEUPD+35, AEUPD+37, APPT~, APPT+10, APPT+14, APPT+15, APPT+16 , APPT+31, APPT+34, APPT+36, CSTOP~, CSTOP+12, CSTOP+19, DISP~, DISP+10, DISP+14, DISP+21 , ARRAY~, ARRAY+1, SDOE~, SDOE+2, SDOE+3, SDOE+16, SDOE+17 |
SDTR | SDOE+1~, SDOE+2*, SDOE+3*, SDOE+6, SDOE+10 |
SDVIEN | AEUPD~, AEUPD+7, AEUPD+18, AEUPD+35, APPT~, APPT+31, DISP~, DISP+21, SDOE~, SDOE+4 , SDOE+6, SDOE+14*, SDOE+15 |
SDVIEN1 | SDOE+5~, SDOE+6*, SDOE+9, SDOE+10, SDOE+11, SDOE+12, SDOE+13, SDOE+14 |
SDVIENOR | CSTOP+9~, CSTOP+14*, CSTOP+24 |
SDVIENSV | CSTOP+9~, CSTOP+17*, CSTOP+25 |
SDVISARR | SDOE+5~ |
SDVISARR(9000010 | SDOE+10, SDOE+11, SDOE+12, SDOE+13 |
SDVSIT | AEUPD+5~, AEUPD+35, AEUPD+37, APPT+6~, APPT+31, APPT+36, CSTOP~, CSTOP+19, DISP+6~, DISP+14 , DISP+21, ARRAY~, SDOE~, SDOE+16, SDOE+17 |
SDVSIT("CLN" | AEUPD+24*, AEUPD+26*, AEUPD+27, APPT+17*, APPT+23, CSTOP+8, CSTOP+13*, CSTOP+23*, DISP+18, ARRAY+3* , SDOE+11 |
SDVSIT("DFN" | AEUPD+9*, AEUPD+10, APPT+26*, ARRAY+6* |
SDVSIT("DIV" | AEUPD+20*, AEUPD+21*, AEUPD+22, APPT+17*, APPT+23, DISP+18, ARRAY+4* |
SDVSIT("ELG" | AEUPD+30*, APPT+27*, ARRAY+5* |
SDVSIT("LOC" | AEUPD+29*, AEUPD+36, APPT+26*, SDOE+12 |
SDVSIT("ORG" | AEUPD+33*, APPT+31*, CSTOP+14, CSTOP+15*, CSTOP+24*, ARRAY+7* |
SDVSIT("PAR" | AEUPD+32*, CSTOP+16*, CSTOP+26!, SDOE+4 |
SDVSIT("REF" | AEUPD+34*, APPT+31*, ARRAY+8* |
SDVSIT("SVC" | SDOE+10 |
SDVSIT("TYP" | AEUPD+31*, APPT+28*, ARRAY+10* |
SDVSIT("VST" | CSTOP+17, CSTOP+18!, CSTOP+25*, ARRAY+9*, SDOE+15*, SDOE+16 |
SEC | DATECHCK+13~, DATECHCK+28*, DATECHCK+30*, DATECHCK+34*, DATECHCK+40*, DATECHCK+41*, DATECHCK+43 |
TIME | DATECHCK+13~, DATECHCK+16*, DATECHCK+24, DATECHCK+26, DATECHCK+27, DATECHCK+28, DATECHCK+43*, DATECHCK+45 |
U | AEUPD+9, AEUPD+13, AEUPD+20, AEUPD+24, AEUPD+26, AEUPD+29, AEUPD+30, APPT+17, APPT+20, APPT+22 , APPT+27, APPT+28, CSTOP+8, CSTOP+10, CSTOP+12, CSTOP+13, CSTOP+23, DISP+17, ARRAY+4, ARRAY+5 , DIV+1 |
X | CSTOP+9~, CSTOP+10*, CSTOP+12, CSTOP+19*, CSTOP+20, DATECHCK+13~, DATECHCK+18* |
Y | DATECHCK+13~, DATECHCK+22 |