MBAARPCL ;OIT-PD/PB - Scheduling RPCs ;02/10/2016
Source file <MBAARPCL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| RECALL(RESULTS) | ||
| RCLDFN(RESULTS,DFN) | ;pull a list of recalls by patient MBAA RPC: MBAA RECALL LIST BY PATIENT
; Input parameter = DFN (PTR to Patient file #2) ; Output: RESULTS Array: ; $P(1) = DFN ; $P(2) = PTR TO CLINIC FILE ; $P(3) = ACCESSION# ; $P(4) = TEST/APP - PTR TO FILE 403.51 ; $P(5) = PROVIDER - PTR TO FILE 405.54 ; $P(6) = RECALL DATE PER PROVIDER ; $P(7) = COMMENT ; $P(8) = FAST/NON-FASTING (SET OF CODES: f = Fasting, n = Non- Fasting) ; $P(9) = LENGTH OF APPOINTMENT ; $P(10) = DATE REMINDER SENT ; $P(11) = USER WHO ENTERED RECALL (PTR to file 200) ; $P(12) = RECALL DATE (PER PATIENT) ; $P(13) = SECOND PRINT DATE ; $P(14) = PATIENT NAME (LAST,FIRST) ; $P(15) = PATIENT SSN ; $P(16) = CLINIC NAME |
|
| NEARLST(RESULTS) | ;Gets the NEAR List for a Facility MBAA RPC: MBAA FACILITY NEAR LIST
; No input parameters required ; Output: TMP($J,"NEAR")=DFN^PATIENTNAME^SSN^ELIGIBILITY CODE INTERNAL^ELIGIBILITY CODE EXTERNAL^HOME PHONE^CELL PHONE^DATE^SITE ; DFN = PATIENT ID ; PATIENTNAME = PATIENT NAME ; SSN = LAST FOUR OF SSN ; ELIGIBILITY CODE INTERNAL = INTERNAL ELIGIBILITY CODE ; ELIGIBILITY CODE EXTERNAL = EXTERNAL ELIGIBILITY CODE ; HOME PHONE ; CELL PHONE ; DATE = APPOINTMENT DATE REQUESTED ; SITE = FACILITY ID |
|
| NEARDFN(RESULTS,DFN) | ;Gets the NEAR List for a PATIENT MBAA RPC: MBAA PATIENT NEAR LIST
; INPUT: Patient DFN ; Output: ; If the patient is on the NEAR List, returns the array: ; DFN^PATIENTNAME^SSN^ELIGIBILITY CODE INTERNAL^ELIGIBILITY CODE EXTERNAL^HOME PHONE^CELL PHONE^DATE^SITE ; DFN = PATIENT ID ; PATIENTNAME = PATIENT NAME ; SSN = LAST FOUR OF SSN ; ELIGIBILITY CODE INTERNAL = INTERNAL ELIGIBILITY CODE ; ELIGIBILITY CODE EXTERNAL = EXTERNAL ELIGIBILITY CODE ; HOME PHONE ; CELL PHONE ; DATE = APPOINTMENT DATE REQUESTED ; SITE = FACILITY ID ; If the patient is not on the NEAR List returns "1^Patient not on the NEAR List" |
|
| EWL(RESULTS,DFN) | ; gets the EWL data by patient as described in the output data MBAA RPC: MBAA WAIT LIST BY DFN
; Input: Patient DFN (PTR to Patient File (#2)) ; Outputs if successful - patient is on the EWL: ; $P(1) = DFN ; $P(2) = DSS STOP CODE ; $P(3) = LAST UPDATED (RETURNED IN FILEMAN FORMAT) ; $P(4) = PATIENT NAME ; $P(5) = PATIENT SSN ; $P(6) = CLINIC NAME ; $P(7) = ORIGINATING DATE (RETURNED IN FILEMAN FORMAT) ; $P(8) = DESIRED DATE OF APPOINTMENT ; $P(9) = DAYS ON EWL ; $P(10) = DATE REMOVED FROM EWL (RETURNED IN FILEMAN FORMAT) ; $P(11) = PATIENT ZIP CODE ; $P(12) = SERVICE CONNECTED % ; $P(13) = ENROLLEE STATUS ; $P(14) = PRIORITY ; $P(15) = CLINIC ID ; $P(16) = IEN FROM SDWL(409.3 FOR THE ENTRY |
|
| FACEWL(RESULTS) | ; gets the EWL data for a facility as described in the output data MBAA RPC: MBAA FACILITY WAIT LIST
; Outputs if successful - patient is on the EWL: ; $P(1) = DFN ; $P(2) = DSS STOP CODE ; $P(3) = LAST UPDATED (RETURNED IN FILEMAN FORMAT) ; $P(4) = PATIENT NAME ; $P(5) = PATIENT SSN ; $P(6) = CLINIC NAME ; $P(7) = ORIGINATING DATE (RETURNED IN FILEMAN FORMAT) ; $P(8) = DESIRED DATE OF APPOINTMENT ; $P(9) = DAYS ON EWL ; $P(10) = DATE REMOVED FROM EWL (RETURNED IN FILEMAN FORMAT) ; $P(11) = PATIENT ZIP CODE ; $P(12) = SERVICE CONNECTED % ; $P(13) = ENROLLEE STATUS ; $P(14) = PRIORITY ; $P(15) = CLINIC ID ; $P(16) = IEN FROM SDWL(409.3 FOR THE ENTRY |
|
| EDITNEAR(RESULTS,DFN,STATUS,COMM) | ;Edit a patient on the NEAR List MBAA RPC: MBAA UPDATE NEAR LIST
|
| RPC Name | Call Tags |
|---|---|
| MBAA WAIT LIST BY DFN | EWL |
| MBAA FACILITY WAIT LIST | FACEWL |
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | Classic Fileman Calls, GET1^DIQ |
| ^SD(403.5 - [#403.5] | GETS^DIQ |
| ^SDWL(409.3 - [#409.3] | GET1^DIQ, GETS^DIQ |
| ^SDWL(409.32 - [#409.32] | GET1^DIQ |
| ^SC - [#44] | GETS^DIQ |
