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 |