Routine: BDGSECL

Information

BDGSECL ; IHS/ANMC/LJF - LIST SENSITIVE PATIENTS ;

Source file <BDGSECL.m>

Package	Total	Call Graph
Registration	5	IHS^DGSEC1 (ASKUSR,DTRNG,Q)^DGSEC2 EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1
Kernel	3	$$FMTE^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
IHS Changes To ADT	2	PAUSE^BDGF $$GETITEM^BDGFL
VA Fileman	1	$$GET1^DIQ

Name	Comments	DBIA/ICR reference
RESET	; -- update partition for return to list manager
EN	; -- main entry point for BDG SECURITY LIST
HDR	; -- header code
PAD(D,L)	;EP -- SUBRTN to pad length of data ; -- D=data L=length
EDIT	;EP; -- called by protocol to edit sensitivity level
SP(N)	; -- SUBRTN to pad N number of spaces
EXPND	; -- expand code
SET(DATA,IEN,LINE,NUM)	; -- create ^tmp global for list template
INIT	; -- init variables and list array
EXIT	; -- exit code
RESET2	; -- return to list manager; don't update list
DISPLAY	;EP; -- called by protocol to display access records for patient
HELP	; -- help code

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Function Call: WRITE	Prompt: !!?3,*7,"You do not have the appropriate access privileges to display user access." Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !!?3,$C(7),"You do not have the appropriate access privileges to assign security." Line Location: EDIT+2
Routine Call	VALM Line Location: EN+3

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ
^DGSL(38.1 - [#38.1]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DGSL(38.1 - [#38.1]	INIT+7
^TMP("BDGSECL"	INIT+2!, EXIT+1!, SET+2, SET+3
^TMP("BDGSECL1"	INIT+2!, INIT+14*, INIT+17, INIT+20, INIT+21, INIT+22, INIT+30!
^XUSEC("DG SECURITY OFFICER"	DISPLAY+2
^XUSEC("DG SENSITIVITY"	EDIT+2

Name	Line Occurrences
$$PAD	INIT+26, INIT+27, SP+1
$$SP	HDR+3
HDR	RESET+3
INIT	RESET+3
RESET	EDIT+7
RESET2	DISPLAY+2, DISPLAY+5, DISPLAY+7, DISPLAY+8, EDIT+2, EDIT+5
SET	INIT+17, INIT+28

Name	Field # of Occurrence
BDGI	DISPLAY+3~, DISPLAY+4, DISPLAY+5, DISPLAY+6, EDIT+3~, EDIT+4, EDIT+5, EDIT+6
>> BDGSECL	EDIT+6*
D	PAD~, PAD+2
>> DA	EDIT+6*
DATA	INIT+1~, INIT+22*, INIT+26, INIT+27, SET~, SET+2
>> DFN	DISPLAY+6*
DGN	INIT+1~, INIT+6, INIT+7, INIT+8, INIT+11, INIT+13, INIT+14, INIT+21*, INIT+22, INIT+28
DGNUM	INIT+1~, INIT+6, INIT+24, INIT+25, INIT+28
>> DGPOP	DISPLAY+7
DT	HDR+2
DUZ	DISPLAY+2, EDIT+2
IEN	SET~, SET+3
L	PAD~, PAD+2
LINE	INIT+1~, INIT+25, INIT+26, INIT+27, INIT+28, SET~, SET+1, SET+2, SET+3
N	SP~, SP+1
NAME	INIT+1~, INIT+8, INIT+14, INIT+20, INIT+21, INIT+22, INIT+25
NUM	SET~, SET+3
STATUS	INIT+1~, INIT+8*, INIT+9
U	INIT+14, INIT+26, INIT+27
>> VALMBCK	RESET+1, RESET+2, RESET2+1, RESET2+2
VALMCNT	EN+1~, INIT+3*, INIT+17, INIT+28, EXIT+1!
>> VALMHDR(1	HDR+3*
>> VALMQUIT	RESET+1, RESET2+1
X	HDR+1~, HDR+2, HDR+3, INIT+11, INIT+14, HELP+1*
>> Y	INIT+13*, INIT+14