SCAPU1 ;ALB/REW,HPE/ART - TEAM API UTILITIES ; 9/17/09 4:30pm ;07/06/2017
Source file <SCAPU1.m>
Package | Total | Call Graph |
---|---|---|
VA FileMan | 2 | BLD^DIALOG $$GET1^DIQ |
Authorization Subscription | 1 | $$SUBCLASS^USRLM |
Scheduling | 1 | INIT^SCAPMCU1 |
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 |
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 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ACTDT | DTCHK2~, DTCHK2+3, DTCHK~, DTCHK+13, DTCHK+17, DTCHK+19*, DTCHK+25, DTCHK+31 |
ARRAY | OKARRAY~, OKARRAY+6 |
BEGINDT | DTCHK~, DTCHK+13, DTCHK+17, DTCHK+20*, DTCHK+23, DTCHK+31 |
CHECK | OKARRAY~, OKARRAY+6, OKUSRCL~, OKUSRCL+3, OKUSRCL+8, OKUSRCL+11 |
ENDDT | DTCHK~, DTCHK+13, DTCHK+17, DTCHK+21*, DTCHK+25, DTCHK+27, DTCHK+33 |
ERNUM | ERR~, ERR+2*, ERR+3*, ERR+6, ERR+7 |
INACTDT | DTCHK2~, DTCHK2+3, DTCHK~, DTCHK+17, DTCHK+18*, DTCHK+23, DTCHK+27, DTCHK+33 |
INCL | DTCHK~, DTCHK+29 |
OK | DTCHK+11~, DTCHK+12*, DTCHK+14*, DTCHK+29*, DTCHK+34*, DTCHKQ |
OUTPUT | ERR~, ERR+7 |
PARMS | ERR~, ERR+7 |
SCBEGIN | DTCHK2+1~, DTCHK2+3 |
SCDATES | DTCHK2~ |
SCEND | DTCHK2+1~, DTCHK2+3 |
SCER | ERR~, ERR+4, ERR+7 |
SCER( | ERR+6* |
SCINCL | DTCHK2+1~, DTCHK2+3 |
SCOK | OKUSRCL+1~, OKUSRCL+2*, OKUSRCL+3*, OKUSRCL+7*, OKUSRCL+8*, OKUSRCL+10*, OKUSRCL+11*, QTOKUSR |
SCU | OKUSRCL+1~, OKUSRCL+5*, OKUSRCL+8*, OKUSRCL+11* |
SEQ | ERR~, ERR+5*, ERR+6 |
USRARRAY | OKUSRCL~, OKUSRCL+3, OKUSRCL+4, OKUSRCL+6, OKUSRCL+8, OKUSRCL+11 |