SDAMA300 ;BPOIFO/ACS-Filter API Validate Filters ; 9/14/05 7:49am
Source file <SDAMA300.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | (,DD)^%DT H^%DTC |
| Kernel | 1 | $$FMTE^XLFDT |
| Scheduling | 1 | $$RSACLNC^SDAMA307 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| VSTAPPTS | ;validate parameter for retrieving only VistA Appointments
|
|
| FMDATE(SDDATE,SDERR) | ;
|
|
| FLDS | ;Quit if field list is null
|
|
| 115 | ;;INVALID INPUT ARRAY ENTRY
|
|
| 117 | ;;Fatal RSA error. See SDAM RSA ERROR LOG file.
|
|
| 116 | ;;DATA MISMATCH
|
|
| VALARR(SDARRAY,SDFLTR) | ;
|
|
| CHKDTES(SDFROM,SDTO) | ;validate date(/time)s
|
|
| ERROR(SDERRNUM) | ;Generate Error and put in ^TMP global
|
|
| 1 | ;SDARRAY(1): Appt dates
|
|
| 3 | ;SDARRAY(3): Appointment Status Code
|
|
| 2 | ;SDARRAY(2): Clinic IEN
|
|
| 4 | ;SDARRAY(4): Patient DFN
|
|
| PURGED | ;validate parameter for retrieving PURGED VistA appts
|
|
| FLTRS | ;Quit if max filters exceeded
|
|
| SORT | ;Quit if SORT Filter is a value other than P or null
|
|
| CHKRSACL(SDCL) | ;validate RSA clinics
|
|
| CHKGBL(SDGBL) | ;Check Global for number of entries
|
|
| 101 | ;;DATABASE IS UNAVAILABLE
|
|
| NOFIL | ;No filter allowed
|
|
| 13 | ;SDARRAY(13): Primary Stop Code
|
|
| 12 | ;SDARRAY(12): Encounter Exists
|
|
| 16 | ;SDARRAY(16): Date Appointment Made
|
|
| MAX | ;Maximum number of appointments requested
|
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(40.7 - [#40.7] | 13+5 |
| ^DPT - [#2] | 4+9, 4+21 |
| ^SC - [#44] | 2+7, 2+19, CHKRSACL+12, CHKRSACL+17 |
| ^TMP($J | ERROR+2* |
| Name | Line Occurrences |
|---|---|
| $$CHKGBL | MAX+12, MAX+15 |
| $$CHKRSACL | 2+8, 2+20 |
| @( | VALARR+6, VALARR+14 |
| CHKDTES | 1+2, 16+2 |
| ERROR | 1+5, 1+7, 2+7, 2+8, 2+14, 2+19, 2+20, 3+3, 4+7, 4+9 , 4+16, 4+21, 13+4, 13+5, 16+5, 16+7, VSTAPPTS+3, PURGED+2, PURGED+5, PURGED+8 , NOFIL+1, FMDATE+3, FMDATE+6, CHKDTES+12, CHKDTES+16, MAX+19, FLDS+2, FLDS+8, FLTRS+4, SORT+4 |
| FMDATE | CHKDTES+6 |
| NOFIL | VALARR+18 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | CHKDTES+1~, CHKDTES+2* |
| %H | FMDATE+2~, FMDATE+6 |
| %T | FMDATE+2~ |
| %Y | FMDATE+2~ |
| SDARRAY | VALARR~ |
| SDARRAY( | VALARR+10, VALARR+12, NOFIL+1, FLTRS+3 |
| SDARRAY("CLNGBL" | 2+3, 2+10, MAX+15, MAX+16 |
| SDARRAY("CNT" | VALARR+7, VALARR+19, ERROR+1* |
| SDARRAY("DAMFR" | 16+2, 16+5 |
| SDARRAY("DAMTO" | 16+2, 16+7 |
| SDARRAY("FC" | VALARR+18, FLDS+8, FLTRS+2 |
| SDARRAY("FLDS" | PURGED+8, FLDS+2, FLDS+4 |
| SDARRAY("FR" | 1+2, 1+5 |
| SDARRAY("MAX" | MAX+3 |
| SDARRAY("MF" | FLTRS+4 |
| SDARRAY("PATGBL" | 4+3, 4+12, MAX+12, MAX+13 |
| SDARRAY("PURGED" | PURGED+1, PURGED+2 |
| SDARRAY("SORT" | SORT+2 |
| SDARRAY("TO" | 1+2, 1+7 |
| SDARRAY("VSTAPPTS" | VSTAPPTS+2, VSTAPPTS+3 |
| SDARRAY(13 | 13+3 |
| SDARRAY(2 | 2+6, 2+11, 2+12, MAX+15, MAX+16 |
| SDARRAY(3 | 3+2 |
| SDARRAY(4 | 4+6, 4+13, 4+14, PURGED+5, MAX+12, MAX+13 |
| SDCCOUNT | MAX+2~, MAX+4*, MAX+15*, MAX+16*, MAX+17, MAX+18 |
| SDCL | CHKRSACL~, CHKRSACL+12, CHKRSACL+14, CHKRSACL+17 |
| SDCOUNT | VALARR+2~, VALARR+12*, 2+5, 3+1, 4+5, 13+2, FLDS+5*, FLDS+6, CHKGBL+1~, CHKGBL+2* , CHKGBL+3, CHKGBL+4*, CHKGBL+5 |
| SDDATA | VALARR+2~, 2+6*, 2+7, 2+8, 2+16*, 2+18*, 2+19, 2+20, 3+2*, 3+3 , 4+6*, 4+7, 4+9, 4+18*, 4+20*, 4+21, 13+3*, 13+4, 13+5 |
| SDDATE | FMDATE~, FMDATE+3, FMDATE+6 |
| SDDFN | 4+16~* |
| SDERR | VALARR+2~, VALARR+3*, 1+5, 1+7, 2+7, 2+8, 2+14, 2+19, 2+20, 3+3 , 4+7, 4+9, 4+16, 4+21, 13+4, 13+5, 16+5, 16+7, CHKRSACL+8~, CHKRSACL+9* , CHKRSACL+12, CHKRSACL+15, CHKRSACL+19*, CHKRSACL+20, VSTAPPTS+3, PURGED+2, PURGED+5, PURGED+8, NOFIL+1, FMDATE~ , FMDATE+3, FMDATE+6, CHKDTES+6, CHKDTES+12, CHKDTES+16, MAX+19, FLDS+2, FLDS+8, FLTRS+4, SORT+4 |
| SDERRNUM | ERROR~, ERROR+2 |
| SDFCNT | FLTRS+1~*, FLTRS+3*, FLTRS+4 |
| SDFIELD | FLDS+1~, FLDS+7*, FLDS+8 |
| SDFIELDS | FLDS+1~, FLDS+4*, FLDS+5, FLDS+7 |
| SDFLTR | VALARR~ |
| SDFLTR( | VALARR+10*, VALARR+11* |
| SDFROM | CHKDTES~, CHKDTES+3, CHKDTES+16 |
| SDGBL | CHKGBL~, CHKGBL+3 |
| SDI | VALARR+2~, VALARR+6*, VALARR+9*, VALARR+10, VALARR+11, VALARR+12, VALARR+14, VALARR+18*, PURGED+7~*, PURGED+8 , NOFIL+1, CHKDTES+1~, CHKDTES+3*, CHKDTES+5, CHKDTES+6, CHKDTES+9, CHKDTES+10, FLDS+6*, FLDS+7, FLTRS+2* , FLTRS+3 |
| SDIEN | 2+14~*, CHKGBL+1~, CHKGBL+2*, CHKGBL+3* |
| SDMAXAPT | MAX+2~, MAX+3*, MAX+5, MAX+7, MAX+8, MAX+9 |
| SDPCOUNT | MAX+2~, MAX+4*, MAX+12*, MAX+13*, MAX+17, MAX+18 |
| SDQUIT | VALARR+2~, VALARR+3*, VALARR+6, VALARR+9, VALARR+13*, VALARR+16, VALARR+18, 1+3, 1+6, 2+5 , 2+15, 2+18, 3+1, 4+5, 4+8, 4+10, 4+17, 4+20, 4+22, 13+2 , 16+3, 16+6, PURGED+3, PURGED+6, PURGED+7, FMDATE+4, CHKDTES+3, CHKDTES+7, CHKDTES+13, CHKDTES+14 , MAX+7*, MAX+8*, MAX+9*, MAX+17*, MAX+18*, MAX+19, FLDS+3, FLDS+6, FLDS+8*, FLTRS+4* , ERROR+1* |
| SDRNODE | CHKRSACL+8~, CHKRSACL+17*, CHKRSACL+19 |
| SDRSA | CHKRSACL+8~, CHKRSACL+14*, CHKRSACL+15 |
| SDSORT | SORT+1~, SORT+2*, SORT+3, SORT+4 |
| SDTO | CHKDTES~, CHKDTES+3, CHKDTES+16 |
| SDX | VALARR+2~, 2+5*, 2+6, 2+12*, 2+14, 2+18, 3+1*, 3+2, 4+5*, 4+6 , 4+14*, 4+16, 4+20, 13+2*, 13+3 |
| X | FMDATE+2~, FMDATE+6*, CHKDTES+1~, CHKDTES+10* |
| Y | FMDATE+2~, FMDATE+3*, CHKDTES+1~, CHKDTES+12 |
| Name | Field # of Occurrence |
|---|---|
| $T(@SDERRNUM | ERROR+2 |