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
|
| Name | Field # of Occurrence |
|---|---|
| NOW^%DTC | EWL+35, FACEWL+34, EDITNEAR+23 |
| ^DIE | EDITNEAR+25 |
| $$GET1^DIQ | NEARLST+17, NEARLST+23, NEARLST+25, NEARDFN+18, NEARDFN+24, NEARDFN+26, EWL+31, EWL+32, EWL+43, FACEWL+31 , FACEWL+42, EDITNEAR+22 |
| GETS^DIQ | RECALL+32, RCLDFN+35, EWL+34, EWL+44, FACEWL+33, FACEWL+43 |
| ADD^VADPT | NEARLST+19, NEARDFN+21, EWL+35, FACEWL+34 |
| DEM^VADPT | RECALL+34, RCLDFN+37, NEARLST+19, NEARDFN+21, EWL+35, FACEWL+34 |
| ELIG^VADPT | NEARLST+19, NEARDFN+21 |
| KVA^VADPT | RECALL+41, RCLDFN+45, NEARLST+27, NEARDFN+27, EWL+52, FACEWL+63 |
| $$SITE^VASITE | NEARLST+15, NEARDFN+20 |
| $$FMDIFF^XLFDT | EWL+36, FACEWL+35 |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | NEARLST+18, NEARDFN+19, EDITNEAR+19, EDITNEAR+20, EDITNEAR+24, EDITNEAR+26, EDITNEAR+30 |
| ^DPT("AEAR" | NEARLST+16 |
| ^SD(403.5 - [#403.5] | RECALL+20, RCLDFN+23 |
| ^SDWL(409.3 - [#409.3] | EWL+24, EWL+25, FACEWL+22, FACEWL+23 |
| ^TMP($J | NEARLST+13!, NEARLST+25*, NEARLST+28 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| % | EWL+36, EWL+53!, FACEWL+35, FACEWL+64! |
| ACCESS | RECALL+21!, RECALL+35*, RECALL+38, RECALL+43!, RCLDFN+24!, RCLDFN+38*, RCLDFN+41, RCLDFN+47! |
| APPTLEN | RECALL+21!, RECALL+36*, RECALL+38, RECALL+43!, RCLDFN+24!, RCLDFN+39*, RCLDFN+41, RCLDFN+47! |
| ARRAY | RECALL+32~, RCLDFN+35~ |
| ARRAY( | RECALL+33, RECALL+35, RECALL+36, RECALL+37, RCLDFN+36, RCLDFN+38, RCLDFN+39, RCLDFN+40 |
| CELL | NEARLST+14~, NEARLST+23*, NEARLST+25, NEARLST+26!, NEARDFN+15~, NEARDFN+24*, NEARDFN+26 |
| CIEN | RECALL+21!, RECALL+33*, RECALL+38, RECALL+43!, RCLDFN+24!, RCLDFN+36*, RCLDFN+41, RCLDFN+47! |
| CLIN1 | EWL+44!, EWL+54!, FACEWL+43! |
| CLIN1(44 | EWL+44, FACEWL+43 |
| CLINIC | RECALL+21!, RECALL+33*, RECALL+38, RECALL+43!, RCLDFN+24!, RCLDFN+36*, RCLDFN+41, RCLDFN+47! |
| CLINIEN | EWL+40*, EWL+42, EWL+43, EWL+51, EWL+54!, FACEWL+39*, FACEWL+41, FACEWL+42, FACEWL+62, FACEWL+65! |
| CLINNAME | EWL+44*, EWL+51, EWL+54!, FACEWL+43*, FACEWL+62, FACEWL+65! |
| CNT | RECALL+20*, RECALL+38, RECALL+40*, RECALL+43!, RCLDFN+23*, RCLDFN+41, RCLDFN+44*, RCLDFN+46!, NEARLST+16*, NEARLST+20* , NEARLST+25, EWL+25*, EWL+51*, EWL+55!, FACEWL+23*, FACEWL+62*, FACEWL+66! |
| COMM | EDITNEAR~, EDITNEAR+25 |
| COMMENT | RECALL+21!, RECALL+36*, RECALL+38, RECALL+43!, RCLDFN+24!, RCLDFN+39*, RCLDFN+41, RCLDFN+47! |
| DA | EDITNEAR+25*, EDITNEAR+27! |
| DAYSON | EWL+36*, EWL+51, EWL+53!, FACEWL+35*, FACEWL+62, FACEWL+64! |
| DESIRED | EWL+40*, EWL+51, EWL+54!, FACEWL+39*, FACEWL+62, FACEWL+65! |
| DFN | RECALL+21!, RECALL+33*, RECALL+38, RECALL+43!, RCLDFN~, RCLDFN+21, RCLDFN+23, RCLDFN+36*, RCLDFN+41, RCLDFN+47! , NEARLST+14~, NEARLST+19*, NEARLST+26!, NEARLST+29!, NEARDFN~, NEARDFN+16, NEARDFN+18, NEARDFN+19, NEARDFN+26, NEARDFN+29! , EWL~, EWL+23, EWL+24, EWL+25, EWL+51, EWL+55!, FACEWL+23*, FACEWL+62, FACEWL+66!, EDITNEAR~ , EDITNEAR+17, EDITNEAR+19, EDITNEAR+20, EDITNEAR+22, EDITNEAR+24, EDITNEAR+25, EDITNEAR+26, EDITNEAR+30 |
| DFNIEN | NEARLST+14~, NEARLST+16*, NEARLST+17, NEARLST+18, NEARLST+19, NEARLST+25 |
| DGSITE | NEARLST+14~, NEARLST+15*, NEARLST+25, NEARDFN+15~, NEARDFN+20*, NEARDFN+26 |
| DIE | EDITNEAR+25*, EDITNEAR+27! |
| DR | EDITNEAR+25*, EDITNEAR+27! |
| DTREMOVE | EWL+48*, EWL+51, EWL+54!, FACEWL+46*, FACEWL+62 |
| ELIG | NEARLST+14~, NEARLST+23*, NEARLST+24*, NEARLST+25, NEARLST+26!, NEARDFN+15~, NEARDFN+24*, NEARDFN+25*, NEARDFN+26 |
| ENRSTAT | EWL+46*, EWL+51, EWL+54!, FACEWL+44*, FACEWL+62, FACEWL+65! |
| ENRSTAT1 | EWL+54!, FACEWL+65! |
| >> ERR | EDITNEAR+20*, EDITNEAR+21, EDITNEAR+24* |
| FASTNON | RECALL+21!, RECALL+36*, RECALL+38, RECALL+43!, RCLDFN+24!, RCLDFN+39*, RCLDFN+41, RCLDFN+47! |
| LASTNAME | EWL+53!, FACEWL+64! |
| LASTUPDT | EWL+36*, EWL+51, EWL+53!, FACEWL+35*, FACEWL+62, FACEWL+64! |
| LNAME | RECALL+21!, RECALL+33*, RECALL+38, RECALL+43!, RCLDFN+24!, RCLDFN+36*, RCLDFN+41, RCLDFN+47! |
| NODE | RECALL+21!, RECALL+43!, RCLDFN+24!, RCLDFN+47!, EWL+53!, FACEWL+64! |
| ORIGDT | EWL+36*, EWL+51, EWL+53!, FACEWL+35*, FACEWL+62, FACEWL+64! |
| PATRECDT | RECALL+21!, RECALL+37*, RECALL+38, RECALL+43!, RCLDFN+24!, RCLDFN+40*, RCLDFN+41, RCLDFN+47! |
| PHONE | NEARLST+14~, NEARLST+23*, NEARLST+25, NEARLST+26!, NEARDFN+15~, NEARDFN+24*, NEARDFN+26 |
| PNAME | NEARLST+14~, NEARLST+23*, NEARLST+25, NEARLST+26!, NEARDFN+15~, NEARDFN+24*, NEARDFN+26 |
| PRIOR | EWL+54!, FACEWL+65! |
| PRIOR1 | EWL+46*, EWL+51, EWL+54!, FACEWL+44*, FACEWL+62, FACEWL+65! |
| PROVIDER | RECALL+21!, RECALL+35*, RECALL+38, RECALL+43!, RCLDFN+24!, RCLDFN+38*, RCLDFN+41, RCLDFN+47! |
| PTNAME | EWL+38*, EWL+51, EWL+53!, FACEWL+37*, FACEWL+62, FACEWL+64! |
| PTR | EWL+43*, EWL+44, EWL+54!, FACEWL+42*, FACEWL+43, FACEWL+65! |
| REC | EWL+25*, EWL+31, EWL+32, EWL+34, EWL+36, EWL+40, EWL+46, EWL+48, EWL+51, EWL+55! , FACEWL+23*, FACEWL+31, FACEWL+33, FACEWL+35, FACEWL+39, FACEWL+44, FACEWL+46, FACEWL+62, FACEWL+66! |
| RECALLDT | RECALL+21!, RECALL+35*, RECALL+38, RECALL+43!, RCLDFN+24!, RCLDFN+38*, RCLDFN+41, RCLDFN+47! |
| REMINDDT | RECALL+21!, RECALL+37*, RECALL+38, RECALL+43!, RCLDFN+24!, RCLDFN+40*, RCLDFN+41, RCLDFN+47! |
| RESULTS | RECALL~, RCLDFN~, RCLDFN+20!, NEARLST~, NEARLST+28*, NEARDFN~, EWL~, FACEWL~, EDITNEAR~ |
| RESULTS( | RECALL+38*, RCLDFN+41*, EWL+51*, FACEWL+62* |
| RESULTS(0 | RECALL+42*, RCLDFN+21*, RCLDFN+22*, NEARDFN+16*, NEARDFN+17*, NEARDFN+26*, NEARDFN+28*, EWL+23*, EWL+24*, EWL+31* , EWL+32*, FACEWL+22*, EDITNEAR+16*, EDITNEAR+17*, EDITNEAR+18*, EDITNEAR+21*, EDITNEAR+22*, EDITNEAR+24*, EDITNEAR+30*, EDITNEAR+32* |
| SC | EWL+46*, EWL+51, EWL+54!, FACEWL+44*, FACEWL+62, FACEWL+65! |
| SCEPRT | RECALL+21!, RECALL+43!, RCLDFN+24!, RCLDFN+47! |
| SDWL1 | EWL+33~, EWL+54!, FACEWL+32~ |
| SDWL1( | EWL+36, EWL+40, EWL+46, EWL+48, FACEWL+35, FACEWL+39, FACEWL+44, FACEWL+46 |
| SECPRT | RECALL+37*, RECALL+38, RECALL+43!, RCLDFN+40*, RCLDFN+41 |
| SEWL1 | FACEWL+33! |
| SSN | RECALL+21!, RECALL+34*, RECALL+38, RECALL+43!, RCLDFN+24!, RCLDFN+37*, RCLDFN+41, RCLDFN+47!, NEARLST+14~, NEARLST+23* , NEARLST+25, NEARLST+26!, NEARDFN+15~, NEARDFN+24*, NEARDFN+26, EWL+39*, EWL+51, EWL+53!, FACEWL+38*, FACEWL+62 , FACEWL+64! |
| STATUS | EDITNEAR~, EDITNEAR+18, EDITNEAR+25, EDITNEAR+30 |
| STOPPTR | EWL+54!, FACEWL+65! |
| STPCODE | EWL+44*, EWL+51, EWL+54!, FACEWL+43*, FACEWL+62, FACEWL+65! |
| TESTAPP | RECALL+21!, RECALL+35*, RECALL+38, RECALL+43!, RCLDFN+24!, RCLDFN+38*, RCLDFN+41, RCLDFN+47! |
| U | RECALL+38, RCLDFN+41, EWL+51, FACEWL+62, EDITNEAR+20 |
| USER | RECALL+21!, RECALL+37*, RECALL+38, RECALL+43!, RCLDFN+24!, RCLDFN+40*, RCLDFN+41, RCLDFN+47! |
| >> VA("BID" | RECALL+43!, RCLDFN+47!, NEARLST+29!, NEARDFN+29! |
| >> VA("PID" | RECALL+43!, RCLDFN+47!, NEARLST+29!, NEARDFN+29! |
| VACNTRY | NEARLST+29!, NEARDFN+29! |
| VADM | NEARLST+29!, NEARDFN+29! |
| VADM(1 | NEARLST+23, NEARDFN+24, EWL+38, FACEWL+37 |
| VADM(2 | RECALL+34, RCLDFN+37, NEARLST+23, NEARDFN+24, EWL+39, FACEWL+38 |
| VAEL | NEARLST+29!, NEARDFN+29! |
| VAEL(1 | NEARLST+23, NEARDFN+24 |
| VAERR | NEARLST+29!, NEARDFN+29! |
| VAPA | NEARLST+29!, NEARDFN+29! |
| VAPA(6 | EWL+39, FACEWL+38 |
| VAPA(8 | NEARLST+23, NEARDFN+24 |
| XDT | RECALL+43!, RCLDFN+46! |
| XX | RECALL+20*, RECALL+32, RECALL+33, RECALL+35, RECALL+36, RECALL+37, RECALL+43!, RCLDFN+23*, RCLDFN+35, RCLDFN+36 , RCLDFN+38, RCLDFN+39, RCLDFN+40, RCLDFN+46! |
| ZIP | EWL+39*, EWL+51, EWL+54!, FACEWL+38*, FACEWL+62 |
