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 |
Package | Total | Caller Graph |
---|---|---|
VA Point of Service | 1 | VPS GET CHANGED APPOINTMENTS |
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 |