VPSAPPT2 ;SLOIFO/BT - VPS Appointment RPC;1/16/15 11:55
Source file <VPSAPPT2.m>
| Package | Total | Call Graph |
|---|---|---|
| VA FileMan | 3 | FILE^DIE ^DIK GETS^DIQ |
| VA Point of Service | 1 | ($$ADDAPPT,$$GETIEN,$$POPAPPTS,ADDERR,ADDTMP,GETAPPT)^VPSAPPT |
| 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 |
|---|---|---|
| GETCHG(VPSAPPT,VPSQUEUE) | ; VPS GET CHANGED APPOINTMENTS
; This RPC will return the changed appointments on the queue since the last GET^VPSAPPT or GETCHG^VPSAPPT2 invoked |
|
| POPAPPTS(QUEUEID) | ;populate result array with new appointment and updated appointments
; INPUT ; QUEUEID : Unique Queue ID represents Vecna Appointment Queue. |
|
| UPDQUEUE(QUEUEID) | ; add new appointments or update modified appointments
|
|
| UPDATE(QUEUEID,APPT) | ; update the appointment in temporary storage (File #853.9)
; INPUT ; QUEUEID : Unique Queue ID represents Vecna Appointment Queue. ; APPTINFO : Extended appointment information for Vecna to display in the queue ; CLINIC IEN^CLINIC NAME^APPT DATE^DFN^PATIENT NAME^SSN^APPT TYPE IEN^APPT TYPE NAME^STATUS IEN^STATUS NAME^PRINTED STATUS ; RETURN ; TODO : "" (no changed - nothing todo) ; : "ADD" (instruct vecna to add the appointment to the queue) ; : "UPD" (instruct vecna to update the appointment in the queue) ; : "ERR" (notify vecna there is error during add/change appointment) |
|
| UPDAPPT(QUEUEID,APPTIEN,APPTINFO) | ;update appointment status/type changed
; INPUT ; QUEUEID : Unique Queue ID represents Vecna Appointment Queue. ; APPTIEN : Appointment ien in the queue ; APPTINFO : Appointment information in the queue file 853.9 ; CLINIC IEN^APPT DATE^DFN^APPT TYPE IEN^PRINTED STATUS ; RETURN ; TODO : "UPD" (instruct vecna to update the appointment in the queue) ; : "ERR" (notify vecna there is error during add/change appointment) |
|
| RMVAPPTS(QUEUEID) | ;remove appointment from queue if appointmentsd are no longer existed
|
|
| DELAPPT(QUEUEID,APPTIEN) | ;delete temp appointment from the queue to reflect current appointments
; INPUT ; QUEUEID : Unique Queue ID represents Vecna Appointment Queue. ; APPTIEN : Appointment ien in the queue |
|
| ADDDEL(APPTIEN) | ;notify vecna to remove the entry from the Vecna's VPS appointment queue
; INPUT ; APPTIEN : Appointment ien in the queue |
| RPC Name | Call Tags |
|---|---|
| VPS GET CHANGED APPOINTMENTS | GETCHG |
| FileNo | Call Tags |
|---|---|
| ^VPS(853.9 - [#853.9] | GETS^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | UPDQUEUE+5 |
| ^TMP("VPSAPPT" | GETCHG+33, ADDDEL+4, ADDDEL+5* |
| ^TMP($J | GETCHG+34!, GETCHG+43!, UPDQUEUE+3, UPDQUEUE+5, UPDQUEUE+7, UPDQUEUE+8, RMVAPPTS+7 |
| ^VPS(853.9 - [#853.9] | UPDATE+23, RMVAPPTS+2, RMVAPPTS+3 |
| Name | Line Occurrences |
|---|---|
| $$POPAPPTS | GETCHG+38 |
| $$UPDAPPT | UPDATE+25 |
| $$UPDATE | UPDQUEUE+10 |
| ADDDEL | RMVAPPTS+9 |
| DELAPPT | RMVAPPTS+8 |
| RMVAPPTS | GETCHG+41 |
| UPDQUEUE | GETCHG+40 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APPT | UPDQUEUE+1~, UPDQUEUE+9!, UPDQUEUE+10, UPDQUEUE+11, UPDATE~, UPDATE+19 |
| APPT("APPT DA | TE/TIME" , UPDATE+13 |
| APPT("APPT TY | PE IEN" , UPDATE+24 |
| APPT("CLINIC | IEN" , UPDATE+12 |
| APPT("DFN" | UPDATE+14 |
| APPT("DISPLAY | ED APPT STATUS" , UPDATE+24 |
| APPTDT | UPDQUEUE+1~, UPDQUEUE+6*, UPDQUEUE+7*, UPDQUEUE+8, UPDATE+13~*, UPDATE+15, UPDATE+24, RMVAPPTS+5~*, RMVAPPTS+7 |
| APPTIEN | UPDATE+15~*, UPDATE+18, UPDATE+22, UPDATE+23, UPDATE+25, UPDAPPT~, UPDAPPT+12, UPDAPPT+13, RMVAPPTS+1~*, RMVAPPTS+2* , RMVAPPTS+3, RMVAPPTS+8, RMVAPPTS+9, DELAPPT~, DELAPPT+5, ADDDEL~, ADDDEL+5 |
| APPTINFO | UPDQUEUE+1~, UPDQUEUE+8*, UPDQUEUE+9, UPDAPPT~, UPDAPPT+12, UPDAPPT+13, RMVAPPTS+3~*, RMVAPPTS+4, RMVAPPTS+5, RMVAPPTS+6 |
| CLIEN | UPDQUEUE+2~*, UPDQUEUE+3*, UPDQUEUE+5, UPDQUEUE+7, UPDQUEUE+8, UPDATE+12~*, UPDATE+15, UPDATE+24, RMVAPPTS+4~*, RMVAPPTS+7 |
| CNT | GETCHG+38~*, GETCHG+39 |
| CURAPPT | UPDATE+24~*, UPDATE+25 |
| DA | DELAPPT+5~* |
| DA(1 | DELAPPT+5*, DELAPPT+6 |
| DFN | UPDQUEUE+4~*, UPDQUEUE+5*, UPDQUEUE+7, UPDQUEUE+8, UPDATE+14~*, UPDATE+15, UPDATE+24, RMVAPPTS+6~*, RMVAPPTS+7 |
| DIERR | UPDAPPT+15, UPDAPPT+16! |
| DIK | DELAPPT+6~*, DELAPPT+8! |
| FRMDT | POPAPPTS+6~*, POPAPPTS+8, POPAPPTS+11 |
| QINFO | POPAPPTS+5~ |
| QINFO( | POPAPPTS+6, POPAPPTS+7 |
| QUEUEID | POPAPPTS~, POPAPPTS+5, POPAPPTS+6, POPAPPTS+7, UPDQUEUE~, UPDQUEUE+10, UPDQUEUE+11, UPDATE~, UPDATE+15, UPDATE+19 , UPDATE+23, UPDATE+25, UPDAPPT~, UPDAPPT+12, UPDAPPT+13, RMVAPPTS~, RMVAPPTS+2, RMVAPPTS+3, RMVAPPTS+8, DELAPPT~ , DELAPPT+5 |
| SAVAPPT | UPDATE+23~*, UPDATE+25 |
| SEQ | ADDDEL+4~*, ADDDEL+5 |
| THRDT | POPAPPTS+7~*, POPAPPTS+8, POPAPPTS+11 |
| TODO | UPDQUEUE+1~, UPDQUEUE+10*, UPDQUEUE+11, UPDATE+11~*, UPDATE+19*, UPDATE+25*, UPDATE+26, UPDAPPT+10~*, UPDAPPT+15*, UPDAPPT+17 |
| U | UPDATE+24, UPDAPPT+12, UPDAPPT+13, UPDAPPT+15, RMVAPPTS+4, RMVAPPTS+5, RMVAPPTS+6, ADDDEL+5 |
| VPSAPPT | GETCHG~, GETCHG+33* |
| VPSERR | UPDAPPT+14~, UPDAPPT+16! |
| VPSERR("DIERR" | UPDAPPT+15 |
| VPSFDA | UPDAPPT+11~, UPDAPPT+16! |
| VPSFDA( | UPDAPPT+12*, UPDAPPT+13* |
| VPSQUEUE | GETCHG~, GETCHG+36, GETCHG+38, GETCHG+40, GETCHG+41 |