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 |