SCAPU1 ;ALB/REW,HPE/ART - TEAM API UTILITIES ; 9/17/09 4:30pm ;07/06/2017
Source file <SCAPU1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DTCHK2(SCDATES,ACTDT,INACTDT) | ;given scdates array was it active?
|
|
| DTCHK(BEGINDT,ENDDT,INCL,ACTDT,INACTDT) | ; -- given activation/inactivation dates and begin & end dates and include flag was it active?
|
|
| DTCHKQ | ||
| ERR(SEQ,ERNUM,PARMS,OUTPUT,SCER) | ;-- process errors
|
|
| OKARRAY(ARRAY,CHECK) | ; see if input array says 'check' should be used
; DOES NOT change any varriables - $$okarray(.xx,.yy) is safe... ; if array is null OR undefined it is ok ; if @array@(check) is defined it is ok ; if @array@('exclude') is defined results switch ; RETURNS: 1: Yes use/0: No don't |
|
| OKUSRCL(USRARRAY,CHECK) | ; see if input user class array says 'check' is ok
|
|
| QTOKUSR |
| FileNo | Call Tags |
|---|---|
| ^DI(.84 - [#.84] | GET1^DIQ |
