BDGSECU ; IHS/ANMC/LJF - UPDATE SECURITY PARAMETERS ;
Source file <BDGSECU.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 3 | ^DDS ^DIC FILE^DICN |
IHS Changes To ADT | 2 | ($$READ,MSG,PAUSE)^BDGF ^BDGSECU1 |
Kernel | 1 | $$REPEAT^XLFSTR |
Name | Comments | DBIA/ICR reference |
---|---|---|
PAD(D,L) | ;EP -- SUBRTN to pad length of data
; -- D=data L=length |
|
SP(N) | ; -- SUBRTN to pad N number of spaces
|
|
1 | ; -- call screenman to edit parameters
|
|
3 | ; -- list holders of module's security keys
|
|
2 | ; -- call screenman to edit mail group members
|
|
CHOOSE | ; ask user to choose function to perform
|
|
MSG | ;EP - Warning message on sensitive patients
; called by PRIV^DGSEC4 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DG(43 - [#43] | 1+4 |
^XMB(3.8 - [#3.8] | 2+3, 2+9 |
Name | Line Occurrences |
---|---|
$$PAD | SP+1 |
$$SP | CHOOSE+2, CHOOSE+3, CHOOSE+4 |
@( | CHOOSE+7 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
BDGA | CHOOSE+1~, CHOOSE+6 |
BDGA(1 | CHOOSE+2* |
BDGA(2 | CHOOSE+3* |
BDGA(3 | CHOOSE+4* |
BDGA(4 | CHOOSE+5* |
BDGERR | 1+1~, 1+4, 1+7* |
D | PAD~, PAD+2 |
DA | 1+1~, 1+10*, 2+19* |
DD | 1+5! |
DDR | 1+1~ |
DDSFILE | 1+10*, 1+11!, 2+19*, 2+20! |
>> DGSENS(5 | MSG+2* |
>> DGSENS(6 | MSG+3* |
>> DGSENS(7 | MSG+4* |
>> DGSENS(8 | MSG+5* |
DIC | 1+1~, 1+5*, 2+13* |
DIC("DR" | 2+15* |
DIC("S" | 2+14* |
DIC(0 | 1+5*, 2+13* |
>> DINUM | 1+6* |
DLAYGO | 1+1~, 1+5*, 2+13* |
DO | 1+5! |
DR | 1+10*, 1+11!, 2+19*, 2+20! |
L | PAD~, PAD+2 |
N | SP~, SP+1 |
>> X | 1+6*, 2+3*, 2+4, 2+9 |
Y | CHOOSE+1~, CHOOSE+6*, CHOOSE+7, 1+7, 2+16, 2+19 |