MBAAMDAL ;OIT-PD/VSL - FILE ACCESS DAL ;02/10/2016
Source file <MBAAMDAL.m>
| 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 |
|---|---|---|
| Mobile Scheduling Applications Suite | 3 | MBAAMDA1 MBAAMDA2 MBAAMDA3 |
| 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) |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| APT | GETRECA+14~, GETRECA+31!, GETRECA+33 |
| C | GETREC+15~ |
| DT | SCREEN+6 |
| ERROR | GETRECA+14~ |
| EXT | GETREC~, GETREC+26 |
| FILE | GETREC~, GETREC+29, GETREC+33, GETREC+34, GETREC+35, GETREC+36, GETREC+42! |
| FLAG | GETREC+15~, GETREC+24*, GETREC+25*, GETREC+26*, GETREC+27*, GETREC+29, GETREC+34, GETREC+35, GETREC+36, GETREC+40 , GETREC+41, GETREC+42!, GETSREC~, GETSREC+5, GETSREC+6, GETSREC+7, GETRECA+32 |
| FLD | GETREC+15~, GETREC+24*, GETREC+33*, GETREC+34, GETREC+35, GETREC+36, GETSREC+1*, GETSREC+3*, GETSREC+5, GETSREC+6 , GETSREC+7, GETSREC+9, GETSREC+10 |
| FLDS | GETREC~ |
| FLDS( | GETREC+18 |
| ID | GETSREC+1~, GETSREC+4*, GETSREC+5, GETSREC+6, GETSREC+7, GETSREC+10 |
| IDX | GETSREC+1~*, GETSREC+2*, GETSREC+3, GETSREC+4, GETSREC+5, GETSREC+6, GETSREC+7, GETSREC+9, GETSREC+10 |
| IENS | GETRECA+14~, GETRECA+16*, GETRECA+17, GETRECA+30*, GETRECA+32 |
| IFLD | GETREC+15~, GETREC+17*, GETREC+18* |
| IFN | GETREC~, GETREC+29, GETREC+33, GETREC+34, GETREC+35, GETREC+36, GETRECA+16, GETRECA+30 |
| INT | GETREC~, GETREC+25 |
| LP | GETRECA+14~, GETRECA+29*, GETRECA+30 |
| REC | GETREC+15~, GETREC+41, GETSREC~, GETRECA+33* |
| REC( | GETREC+33, GETREC+34, GETREC+35, GETREC+36, GETSREC+2, GETSREC+3, GETSREC+5, GETSREC+6, GETSREC+7, GETSREC+9 , GETSREC+10 |
| RETURN | GETREC~, GETREC+41, GETSREC~ |
| RETURN( | GETREC+34*, GETREC+35*, GETREC+36*, GETSREC+5*, GETSREC+6*, GETSREC+7*, GETSREC+10* |
| REZ | GETREC~, GETREC+27 |
| SCREEN | GETRECA+14~, GETRECA+15*, GETRECA+17 |
| SD | GETREC~, GETRECA+15, SCREEN~, SCREEN+4, SCREEN+5 |
| SFILE | GETREC+15~, GETREC+19*, GETREC+22*, GETREC+38*, GETREC+39*, GETREC+40, GETREC+41, GETSREC~, GETSREC+2, GETSREC+3 , GETSREC+5, GETSREC+6, GETSREC+7, GETSREC+9, GETSREC+10 |
| SFILES | GETREC~ |
| SFILES( | GETREC+22, GETREC+39, GETREC+40, GETREC+41 |
| SFILES(1900 | GETREC+31 |
| SFLD | GETSREC~, GETSREC+5, GETSREC+6, GETSREC+7, GETSREC+10 |
| SFLDN | GETREC+15~, GETREC+40*, GETREC+41 |
| SI | GETSREC+8~*, GETSREC+9*, GETSREC+10 |
| SKIPSF | GETREC+15~ |
| STRF | GETREC+15~, GETREC+16*, GETREC+18*, GETREC+22*, GETREC+29, GETREC+42! |
| TARGET | GETRECA+14~ |
| TARGET("DILIST" | GETRECA+26, GETRECA+29, GETRECA+30 |
| U | GETREC+36, GETSREC+7 |
