Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  All
Print Page as PDF
Routine: MBAARPCL

Package: Mobile Scheduling Applications Suite

Routine: MBAARPCL


Information

MBAARPCL ;OIT-PD/PB - Scheduling RPCs ;02/10/2016

;;1.0;Scheduling Calendar View;**1**;Feb 10, 2016;Build 85

Source Information

Source file <MBAARPCL.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 3 NOW^%DTC  ^DIE  ($$GET1,GETS)^DIQ  
Registration 2 (ADD,DEM,ELIG,KVA)^VADPT  $$SITE^VASITE  
Kernel 1 $$FMDIFF^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
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
RECALL(RESULTS)
EDITNEAR(RESULTS,DFN,STATUS,COMM) ;Edit a patient on the NEAR List MBAA RPC: MBAA UPDATE NEAR LIST
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
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
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
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"

External References

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

Used in RPC

RPC Name Call Tags
MBAA WAIT LIST BY DFN EWL
MBAA FACILITY WAIT LIST FACEWL

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Entry Points |  External References |  Used in RPC |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables |  All