MBAAMDAL ;OIT-PD/VSL - FILE ACCESS DAL ;02/10/2016
Source file <MBAAMDAL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| GETREC(RETURN,IFN,FILE,FLDS,SFILES,INT,EXT,REZ,SD) | ;
; Input Variables ; RETURN - RETURN results passed by reference ; IFN - Internal Entry Number to the Files passed in (File 2 or File 44) ; FILE - File # ; FLDS = Array of FLDS ; SFILES - Array of Sub-files ; INT - Internal values returned ; EXT - External values returned ; REZ - Resolve field names instead of those peck numbers ; SD - Date.Time if you only want one appointment in particular ; Date if you want all appointment on a give date ; or nothing if you want all appointments from today forward |
|
| GETSREC(RETURN,REC,SFILE,SFLD,FLAG) | ; Get record subfile data Called by RPC MBAA APPOINTMENT MAKE, MBAA RPC: MBAA CANCEL APPOINTMENT, MBAA PATIENT PENDING APPT
|
|
| GETRECA | ;MBAA*1*7;will use SCREEN to get only the data that is needed from sub-file 2.98
; The orignal code pulled every appointment the patient ever had by doing one inquiry on the patient file. ; It returned so many that it had to store in a global and then parse the global to return everything > than yesterday ; and then potentially further parse when it gets back to calling routine which may have only wanted one to cancel ; Instead of one DIQ call on the patient, it has been changed to a LIST^DIC call using a SCREEN on the sub-file which gets just what you want. |
|
| SCREEN(SD) | ;
; SCREEN will either be I Y=SD (FileMan format) ; or I $P(Y,".")=SD ; or I Y>(TODAY - 1 second) (FileMan Format) |
