©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
SCAPU1 ;ALB/REW - TEAM API UTILITIES ; 9/17/09 4:30pm
Source file <SCAPU1.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 2 | BLD^DIALOG $$GET1^DIQ |
| Authorization Subscription | 1 | $$SUBCLASS^USRLM |
| Scheduling | 1 | INIT^SCAPMCU1 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| QTOKUSR | ||
| DTCHKQ | ||
| OKUSRCL(USRARRAY,CHECK) | ; see if input user class array says 'check' is ok
|
|
| ERR(SEQ,ERNUM,PARMS,OUTPUT,SCER) | ;-- process errors
|
|
| DTCHK(BEGINDT,ENDDT,INCL,ACTDT,INACTDT) | ; -- given activation/inactivation dates and begin & end dates and include flag was it active?
|
|
| DTCHK2(SCDATES,ACTDT,INACTDT) | ;given scdates array was it active?
|
|
| 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 |
| FileNo | Call Tags |
|---|---|
| ^DI(.84 - [#.84] | GET1^DIQ |
| Name | Line Occurrences |
|---|---|
| $$DTCHK | DTCHK2+3 |
| DTCHKQ | DTCHK+13, DTCHK+16, DTCHK+18, DTCHK+20, DTCHK+22, DTCHK+24 |
| QTOKUSR | OKUSRCL+3, OKUSRCL+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTDT | DTCHK2~, DTCHK2+3, DTCHK~, DTCHK+13, DTCHK+18, DTCHK+22 |
| ARRAY | OKARRAY~, OKARRAY+6 |
| BEGINDT | DTCHK~, DTCHK+13, DTCHK+16, DTCHK+22 |
| CHECK | OKARRAY~, OKARRAY+6, OKUSRCL~, OKUSRCL+3, OKUSRCL+8, OKUSRCL+11 |
| ENDDT | DTCHK~, DTCHK+13, DTCHK+18, DTCHK+24 |
| ERNUM | ERR~, ERR+2*, ERR+3*, ERR+6, ERR+7 |
| INACTDT | DTCHK2~, DTCHK2+3, DTCHK~, DTCHK+16, DTCHK+24 |
| INCL | DTCHK~, DTCHK+20 |
| OK | DTCHK+11~, DTCHK+12*, DTCHK+14*, DTCHK+20*, DTCHK+25*, 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 |