SDEC25 ;ALB/SAT,WTC - VISTA SCHEDULING RPCS ;Feb 12, 2020@15:22
Source file <SDEC25.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 |
|---|---|---|
| Scheduling | 8 | SDAM2 SDCODEL SDEC SDEC CHECKIN APPOINTMENT SDEC08 SDEC31 SDESCKNSTEP SDTMP08 |
| Electronic Health Modernization | 1 | EHMSDEC8 |
| Kernel | 1 | ^ORD(101 |
| VA Point of Service | 1 | VPSRPC4 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHECKIN(SDECY,SDECAPTID,SDECCDT,SDECCC,SDECPRV,SDECROU,SDECVCL,SDECVFM,SDECOG,SDECCR,SDECPCC,SDECWHF) | ;Check in appointment
|
|
| ENDBG | ;
|
|
| SDECCHK(SDECAPTID,SDECCDT) | ;
|
|
| APCHK(SDECZ,SDECSC1,SDECDFN,SDECCDT,SDECSTART) | ||
| CANCHKIN(DFN,SDCL,SDT) | ; Logic to cancel a checkin if the checkin date/time is passed in as '@'
; input: DFN := ifn of patient ; SDCL := clinic# ; SDT := appt d/t |
|
| FIND(DFN,SDT,SDCL) | ; -- return appt ifn for pat
; input: DFN := ifn of pat. ; SDT := appt d/t ; SDCL := ifn of clinic ; output: [returned] := ifn if pat has appt on date/time |
|
| VALID(DFN,SDCL,SDT,SDDA) | ; -- return valid appt.
; **NOTE: For speed consideration the ^SC and ^DPT nodes must be ; check to see they exist prior to calling this entry point. ; input: DFN := ifn of pat. ; SDT := appt d/t ; SDCL := ifn of clinic ; SDDA := ifn of appt ; output: [returned] := 1 for valid appt., 0 for not valid |
|
| CHKEVT(SDECPAT,SDECSTART,SDECSC) | ;EP Called by SDEC CHECKIN APPOINTMENT event
|
|
| CHKEVT1(SDECRES,SDECSTART,SDECPAT,SDECSTAT) | ;
|
|
| CHKEVT3(SDECRES) | ;
|
|
| CHKEVTD(SDECPAT,SDECSTART,SDECSC) | ;EP Called by SDEC CHECKIN APPOINTMENT event
|
|
| CHECKOUT(SDECY,DFN,SDT,SDCODT,SDECAPTID,VPRV) | ;Check Out appointment
|
|
| CANCKOUT(SDECY,SDECAPTID) | ;Cancel Check Out appointment
|
|
| CANAPPT(SDECAPTID) | ||
| ERROR | ;
|
|
| ERR(ERRNO) | ;Error processing
|
| Name | Field # of Occurrence |
|---|---|
| ^DIE | ENDBG+65, CANCKOUT+36, CANCKOUT+41, CANCKOUT+48, CANCKOUT+52, CANAPPT+16 |
| FILE^DIE | SDECCHK+5, CANCHKIN+14 |
| $$GET1^DIQ | CANCKOUT+44 |
| $$FIND^SDAM2 | APCHK+12 |
| $$HANDLE^SDAMEVT | ENDBG+56, CHECKOUT+57, CANCKOUT+26 |
| AFTER^SDAMEVT | ENDBG+76, CHECKOUT+71, CANCKOUT+56 |
| BEFORE^SDAMEVT | ENDBG+57, CHECKOUT+61, CANCKOUT+30 |
| EVT^SDAMEVT | ENDBG+81, CHECKOUT+75, CANCKOUT+60 |
| CO^SDEC25A | CHECKOUT+63 |
| GETVISIT^SDECAPI4 | APCHK+30 |
| $$NETTOFM^SDECDATE | ENDBG+21, CHECKOUT+28, CHECKOUT+31 |
| $$SCIEN^SDECU2 | CANCKOUT+39 |
| $$GETAPT^SDVSIT2 | CANCKOUT+43 |
| $$FMTE^XLFDT | CHECKOUT+39 |
| $$HTFM^XLFDT | CHECKOUT+34 |
| $$NOW^XLFDT | SDECCHK+4, CANCKOUT+51 |
| $$UP^XLFSTR | ENDBG+32 |
| $$KCHK^XUSRB | CHECKOUT+17, CANCKOUT+12 |
| FileNo | Call Tags |
|---|---|
| ^SCE - [#409.68] | GET1^DIQ |
| ^SDEC(409.84 - [#409.84] | Classic Fileman Calls |
| ^AUPNVSIT - [#9000010] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(40.7 - [#40.7] | ENDBG+25 |
| ^DPT - [#2] | FIND+7, VALID+8 |
| ^SC - [#44] | ENDBG+36, ENDBG+37, ENDBG+51, FIND+7, VALID+8 |
| ^SDEC(409.831 - [#409.831] | ENDBG+46, ENDBG+47, CHKEVT+10, CHKEVT3+5, CHKEVTD+10, CHECKOUT+42, CANCKOUT+20, CANAPPT+10 |
| ^SDEC(409.84 - [#409.84] | ENDBG+13, ENDBG+39, CHKEVT1+7, CHKEVT1+8, CHKEVT1+9, CHECKOUT+19, CHECKOUT+37, CANCKOUT+14, CANCKOUT+15, CANAPPT+4 , CANAPPT+5 |
| ^TMP("SDEC" | ENDBG+8!, ENDBG+10*, ENDBG+84*, ENDBG+86*, CHECKOUT+13!, CHECKOUT+15*, CHECKOUT+84*, CHECKOUT+86*, CANCKOUT+8!, CANCKOUT+10* , CANCKOUT+63*, CANCKOUT+65*, ERR+2*, ERR+4* |
| ^VA(200 - [#200] | ENDBG+28 |
| Name | Line Occurrences |
|---|---|
| $$CHKEVT1 | CHKEVT+10 |
| $$FIND | ENDBG+56, CANCHKIN+6, CHECKOUT+57, CANCKOUT+26 |
| $$VALID | FIND+7 |
| APCHK | ENDBG+64 |
| CANCHKIN | ENDBG+72 |
| CHKEVT3 | CHKEVT+11, CHKEVTD+11 |
| ERR | ENDBG+12, ENDBG+13, ENDBG+22, ENDBG+46, ENDBG+51, CHECKOUT+17, CHECKOUT+18, CHECKOUT+19, CHECKOUT+34, CHECKOUT+39 , CHECKOUT+80, CANCKOUT+12, CANCKOUT+13, CANCKOUT+14, CANCKOUT+21, ERROR+1 |
| SDECCHK | ENDBG+63, ENDBG+71, CHKEVT1+12 |
| Name | Field # of Occurrence |
|---|---|
| ^( | FIND+7 |
| ^(0 | FIND+7 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | ENDBG+3~, CHECKOUT+9~ |
| APIERR | CHECKOUT+9~, CHECKOUT+51!, CHECKOUT+52*, CHECKOUT+63, CHECKOUT+67, CHECKOUT+78, CHECKOUT+82 |
| APIERR( | CHECKOUT+80 |
| APS | CANCKOUT+4~, CANCKOUT+16*, CANCKOUT+50, CANCKOUT+51, CANAPPT+1~, CANAPPT+6* |
| APTN | APCHK+3~, APCHK+12* |
| BSDMSG | APCHK+3~ |
| BSDVSTN | ENDBG+1~ |
| CNT | CHECKOUT+9~, CHECKOUT+79*, CHECKOUT+80* |
| DA | ENDBG+2~, ENDBG+65*, CANCKOUT+4~, CANCKOUT+34*, CANCKOUT+39*, CANCKOUT+46*, CANCKOUT+51*, CANAPPT+1~, CANAPPT+14* |
| DA(1 | CANCKOUT+39* |
| DA(2 | CANCKOUT+39* |
| DFN | ENDBG+40*, ENDBG+56, ENDBG+57, ENDBG+76, CANCHKIN~, CANCHKIN+6, FIND~, FIND+7, VALID~, VALID+8 , CHECKOUT~, CHECKOUT+57, CHECKOUT+61, CHECKOUT+63, CHECKOUT+71, CANCKOUT+4~, CANCKOUT+17*, CANCKOUT+26, CANCKOUT+30, CANCKOUT+39 , CANCKOUT+43, CANCKOUT+56, CANAPPT+1~, CANAPPT+7* |
| DIE | ENDBG+65*, CANCKOUT+4~, CANCKOUT+33*, CANCKOUT+38*, CANCKOUT+46*, CANCKOUT+51*, CANAPPT+1~, CANAPPT+13* |
| DIK | ENDBG+2~ |
| DR | ENDBG+65*, CANCKOUT+4~, CANCKOUT+35*, CANCKOUT+40*, CANCKOUT+47*, CANCKOUT+51*, CANAPPT+1~, CANAPPT+15* |
| DUZ | APCHK+10, CHECKOUT+17, CANCKOUT+12, CANCKOUT+35, CANCKOUT+51, CANAPPT+15 |
| DUZ(2 | APCHK+18 |
| EMSG | ENDBG+1~, ENDBG+84 |
| ERR | CANCHKIN+17!, CHECKOUT+9~, CHECKOUT+80* |
| ERRNO | ERR~, ERR+2 |
| FDA | CANCHKIN+17! |
| FDA( | CANCHKIN+14* |
| RES | CANCKOUT+4~, CANCKOUT+19*, CANCKOUT+20, CANAPPT+1~, CANAPPT+9*, CANAPPT+10 |
| RPCPERM | CHECKOUT+11~, CHECKOUT+16*, CHECKOUT+17*, CANCKOUT+6~, CANCKOUT+11*, CANCKOUT+12* |
| SDASK | CHECKOUT+10~, CHECKOUT+46*, CHECKOUT+63 |
| SDATA | ENDBG+55~, ENDBG+56*, ENDBG+57, ENDBG+76, ENDBG+81, CHECKOUT+56~, CHECKOUT+57*, CHECKOUT+61, CHECKOUT+71, CHECKOUT+75 , CANCKOUT+25~, CANCKOUT+26*, CANCKOUT+30, CANCKOUT+56, CANCKOUT+60 |
| SDATA("AFTER" | CHKEVT+8, CHKEVTD+9 |
| SDCIHDL | ENDBG+55~, ENDBG+56*, ENDBG+57, ENDBG+76, ENDBG+81, CHECKOUT+56~, CHECKOUT+57*, CHECKOUT+61, CHECKOUT+71, CHECKOUT+75 , CANCKOUT+25~, CANCKOUT+26*, CANCKOUT+30, CANCKOUT+56, CANCKOUT+60 |
| SDCL | CANCHKIN~, CANCHKIN+6, CANCHKIN+14, FIND~, FIND+7, VALID~, VALID+8, CHECKOUT+10~, CHECKOUT+43*, CHECKOUT+57 , CHECKOUT+61, CHECKOUT+63, CHECKOUT+71, CANCKOUT+5~, CANCKOUT+20*, CANCKOUT+26, CANCKOUT+30, CANCKOUT+38, CANCKOUT+39, CANCKOUT+43 , CANCKOUT+56, CANAPPT+1~, CANAPPT+10* |
| SDCOACT | CHECKOUT+10~, CHECKOUT+48*, CHECKOUT+63 |
| SDCOALBF | CHECKOUT+10~, CHECKOUT+47*, CHECKOUT+63 |
| SDCODT | CHECKOUT~, CHECKOUT+31*, CHECKOUT+34, CHECKOUT+39, CHECKOUT+63 |
| SDDA | ENDBG+55~, ENDBG+56*, ENDBG+57, ENDBG+76, CANCHKIN+5~, CANCHKIN+6*, CANCHKIN+14, VALID~, VALID+8, CHECKOUT+10~ , CHECKOUT+45*, CHECKOUT+56~, CHECKOUT+57*, CHECKOUT+61, CHECKOUT+63, CHECKOUT+71, CANCKOUT+25~, CANCKOUT+26*, CANCKOUT+30, CANCKOUT+56 |
| SDECAPPT | CHKEVT1+4~, CHKEVT1+8*, CHKEVT1+9, CHKEVT1+11, CHKEVT1+12 |
| SDECAPTID | CHECKIN~, ENDBG+12, ENDBG+13, ENDBG+39, ENDBG+63, ENDBG+65, ENDBG+71, SDECCHK~, SDECCHK+2, CHECKOUT~ , CHECKOUT+18, CHECKOUT+19, CHECKOUT+37, CHECKOUT+63, CANCKOUT~, CANCKOUT+13, CANCKOUT+14, CANCKOUT+15, CANCKOUT+34, CANAPPT~ , CANAPPT+3, CANAPPT+4, CANAPPT+5, CANAPPT+14 |
| SDECC | APCHK+3~, APCHK+30 |
| SDECC("ADT" | APCHK+21* |
| SDECC("APPT D | ATE" , APCHK+8*, APCHK+12, APCHK+21 |
| SDECC("CDT" | APCHK+9* |
| SDECC("CLINIC | CODE" , APCHK+6* |
| SDECC("CLN" | APCHK+20* |
| SDECC("HOS LO | C" , APCHK+5*, APCHK+12, APCHK+20 |
| SDECC("PAT" | APCHK+4*, APCHK+12 |
| SDECC("PROVIDER" | APCHK+7* |
| SDECC("SITE" | APCHK+18* |
| SDECC("SRV CA | T" , APCHK+15* |
| SDECC("TIME R | ANGE" , APCHK+16* |
| SDECC("USR" | APCHK+10* |
| SDECC("VISIT | DATE" , APCHK+17*, TYPE" , APCHK+19* |
| SDECCAN | ENDBG+3~, ENDBG+5*, ENDBG+16*, ENDBG+21, ENDBG+59, ENDBG+67 |
| SDECCC | CHECKIN~, ENDBG+24*, ENDBG+25*, ENDBG+37*, APCHK+6 |
| SDECCDT | CHECKIN~, ENDBG+15*, ENDBG+16, ENDBG+21*, ENDBG+22, ENDBG+63, ENDBG+64, ENDBG+81, SDECCHK~, SDECCHK+3 , SDECCHK+4, APCHK~, APCHK+9, APCHK+17 |
| SDECCR | CHECKIN~ |
| SDECDFN | APCHK~ |
| SDECFDA | SDECCHK+1~ |
| SDECFDA( | SDECCHK+3*, SDECCHK+4* |
| SDECFOUND | CHKEVT+6~, CHKEVT+9*, CHKEVT+10*, CHKEVT+11, CHKEVT1+4~, CHKEVT1+5*, CHKEVT1+6, CHKEVT1+7, CHKEVT1+8, CHKEVT1+10* , CHKEVT1+11, CHKEVT1+13, CHKEVTD+7~, CHKEVTD+12* |
| SDECI | ENDBG+2~, ENDBG+7*, ENDBG+83*, ENDBG+84, ENDBG+85*, ENDBG+86, CHECKOUT+11~, CHECKOUT+12*, CHECKOUT+80*, CHECKOUT+83* , CHECKOUT+84, CHECKOUT+85*, CHECKOUT+86, CANCKOUT+6~, CANCKOUT+7*, CANCKOUT+62*, CANCKOUT+63, CANCKOUT+64*, CANCKOUT+65, ERR+1* , ERR+2, ERR+3*, ERR+4 |
| SDECID | ENDBG+2~ |
| SDECIENS | ENDBG+2~, SDECCHK+2*, SDECCHK+3, SDECCHK+4 |
| SDECMSG | SDECCHK+1~ |
| SDECNOD | ENDBG+2~, ENDBG+39*, ENDBG+40, ENDBG+41, ENDBG+42, ENDBG+44, ENDBG+47*, ENDBG+48, ENDBG+51, CHKEVT1+9* , CHKEVT1+10, CHECKOUT+11~, CHECKOUT+37*, CHECKOUT+39, CHECKOUT+41, CHECKOUT+42*, CHECKOUT+43, CANCKOUT+6~, CANCKOUT+15*, CANCKOUT+16 , CANCKOUT+17, CANCKOUT+18, CANCKOUT+19, CANCKOUT+21, CANAPPT+2~, CANAPPT+5*, CANAPPT+6, CANAPPT+7, CANAPPT+8, CANAPPT+9 , CANAPPT+11 |
| SDECNOEV | ENDBG+3~, ENDBG+4*, CHKEVT+4, CHKEVTD+5 |
| SDECOG | CHECKIN~, APCHK+27 |
| SDECOUT | APCHK+29~, APCHK+30 |
| SDECPAT | CHKEVT~, CHKEVT+10, CHKEVT1~, CHKEVT1+10, CHKEVTD~ |
| SDECPATID | ENDBG+2~, ENDBG+41*, ENDBG+64, ENDBG+72, APCHK+4 |
| SDECPCC | CHECKIN~ |
| SDECPRV | CHECKIN~, ENDBG+27*, ENDBG+28*, ENDBG+65, APCHK+7 |
| SDECR1 | ENDBG+3~, ENDBG+44*, ENDBG+46, ENDBG+47 |
| SDECRES | CHKEVT+6~, CHKEVT+10*, CHKEVT+11, CHKEVT1~, CHKEVT1+6, CHKEVT1+7, CHKEVT1+8, CHKEVT3~, CHKEVT3+5, CHKEVTD+7~ , CHKEVTD+10*, CHKEVTD+11, CHECKOUT+41*, CHECKOUT+42 |
| SDECRESN | CHKEVT3+4~, CHKEVT3+5*, CHKEVT3+6, CHKEVT3+7* |
| SDECROU | CHECKIN~, ENDBG+32*, ENDBG+33* |
| SDECSC | CHKEVT~, CHKEVT+5, CHKEVT+10, CHKEVTD~, CHKEVTD+6, CHKEVTD+10 |
| SDECSC1 | ENDBG+48*, ENDBG+51, ENDBG+56, ENDBG+57, ENDBG+64, ENDBG+72, ENDBG+76, APCHK~, APCHK+5 |
| SDECSTART | ENDBG+2~, ENDBG+42*, ENDBG+56, ENDBG+57, ENDBG+64, ENDBG+72, ENDBG+76, APCHK~, APCHK+8, CHKEVT~ , CHKEVT+10, CHKEVT1~, CHKEVT1+7, CHKEVT1+8, CHKEVTD~ |
| SDECSTAT | CHKEVT+6~, CHKEVT+7*, CHKEVT+8*, CHKEVT+10, CHKEVT1~, CHKEVT1+12, CHKEVTD+7~, CHKEVTD+8*, CHKEVTD+9*, CHKEVTD+10 |
| >> SDECTYP | ENDBG+81 |
| SDECVCL | CHECKIN~, ENDBG+35*, ENDBG+36*, ENDBG+37, APCHK+25 |
| SDECVEN | ENDBG+2~ |
| SDECVEN("CLINIC" | APCHK+25* |
| SDECVEN("FORM" | APCHK+26* |
| SDECVEN("OUTGUIDE" | APCHK+27* |
| SDECVFM | CHECKIN~, APCHK+26 |
| SDECWHF | CHECKIN~ |
| SDECY | CHECKIN~, ENDBG+9*, CHECKOUT~, CHECKOUT+14*, CANCKOUT~, CANCKOUT+9* |
| SDECZ | ENDBG+2~, ENDBG+46, ENDBG+64, APCHK~ |
| SDLNE | CHECKOUT+10~, CHECKOUT+49*, CHECKOUT+63 |
| SDN | CANCKOUT+5~, CANCKOUT+39* |
| SDOE | CANCKOUT+5~, CANCKOUT+43*, CANCKOUT+44, CANCKOUT+51 |
| SDQUIET | CHECKOUT+10~, CHECKOUT+50*, CHECKOUT+63 |
| SDT | CANCHKIN~, CANCHKIN+6, CANCHKIN+14, FIND~, FIND+7, VALID~, VALID+8, CHECKOUT~, CHECKOUT+28*, CHECKOUT+57 , CHECKOUT+61, CHECKOUT+63, CHECKOUT+71, CANCKOUT+5~, CANCKOUT+18*, CANCKOUT+26, CANCKOUT+30, CANCKOUT+38, CANCKOUT+39, CANCKOUT+43 , CANCKOUT+56, CANAPPT+1~, CANAPPT+8* |
| SDV | CANCKOUT+5~, CANCKOUT+44*, CANCKOUT+45, CANCKOUT+46 |
| U | ENDBG+37, ENDBG+40, ENDBG+41, ENDBG+42, ENDBG+44, ENDBG+46, ENDBG+48, ENDBG+51, ENDBG+56, VALID+8 , CHKEVT1+10, CHECKOUT+39, CHECKOUT+41, CHECKOUT+43, CHECKOUT+57, CANCKOUT+16, CANCKOUT+17, CANCKOUT+18, CANCKOUT+19, CANCKOUT+20 , CANCKOUT+21, CANCKOUT+26, CANAPPT+6, CANAPPT+7, CANAPPT+8, CANAPPT+9, CANAPPT+10, CANAPPT+11 |
| VPRV | CHECKOUT~, CHECKOUT+63 |
| X | ENDBG+3~, CHECKOUT+9~ |
| Y | ENDBG+3~, FIND+6~, FIND+7*, FIND+8, CHECKOUT+9~ |