Routine: BDGSPT2

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Registration	4	EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2
IHS Changes To ADT	3	($$READ,PAUSE)^BDGF $$HRCN^BDGF2 EN^BDGSPT3
Kernel	3	$$NOW^XLFDT $$REPEAT^XLFSTR DISP^XQORM1
VA Fileman	3	^DIC ^DIE $$GET1^DIQ

Package

Total

Call Graph

Registration

EN^VALM TERM^VALM0 (CLEAR,FULL)^VALM1 EN^VALM2

IHS Changes To ADT

($$READ,PAUSE)^BDGF $$HRCN^BDGF2 EN^BDGSPT3

Kernel

$$NOW^XLFDT $$REPEAT^XLFSTR DISP^XQORM1

VA Fileman

^DIC ^DIE $$GET1^DIQ

Package	Total	Caller Graph
IHS GPRA Information System	8	BGP2GUA BGP3GUA BGP4GUA BGP5GUA BGP6GUA BGP7GUA BGP8GUA BGPGP
Mental Health Social Services	2	AMHGP AMHUTIL2
Registration	2	DGSEC DGSEC4
IHS Changes To ADT	1	BDGSPT3

Package

Total

Caller Graph

IHS GPRA Information System

BGP2GUA BGP3GUA BGP4GUA BGP5GUA BGP6GUA BGP7GUA BGP8GUA BGPGP

Mental Health Social Services

AMHGP AMHUTIL2

Registration

DGSEC DGSEC4

IHS Changes To ADT

BDGSPT3

Entry Points

Name	Comments	DBIA/ICR reference
RESET	;EP; return from protocol & rebuild list
ADDUSER	; adds user to file if not already there
EN	;EP; -- main entry point for BDG SECURITY RESTRICTIONS list template
RESUMCHK(USER,DFN,DTIEN,RESUME)	;EP; called by input transform ; Make sure date restriction resumes is not before date lifted
HDR	; -- header code
SET(LINE,NUM,COUNT,IEN)	; put display line into array
PAD(D,L)	; -- SUBRTN to pad length of data ; -- D=data L=length
SP(N)	; -- SUBRTN to pad N number of spaces
RESUME	;EP; called by BDG RESTRICTED RESUME protocol
ADD	;EP; called by BDG RESTRICTED ADD protocol
GETPAT	; -- select patient from listing
INIT	; -- init variables and list array
LIFT	;EP; called by BDG RESTRICTED LIFT protocol
HELP	;EP -- help code
USER	;EP; Select User whose access will be restricted ; called by option BDG SECURITY RESTRICTIONS
LIFTCHK(USER,DFN,DTIEN,LIFT)	;EP; called by input transform ; make sure date restriction lifted is not before first restriction ; AND not before last time restriction resumed
STATUS(USR,PAT,MODE)	;EP; returns restriction status for user/patient pair ; called by this routine and computed field STATUS ; also called by ^DGSEC to determine access for user to this patient ; If MODE=1, then return short format (default) ; If MODE=2, then return long format
EXIT	;EP -- exit code
EXPND	;EP -- expand code
VIEW	;EP; called by BDG RESTRICTED VIEW protocol

External References

Name	Field # of Occurrence
$$READ^BDGF	USER+6, LIFT+9, RESUME+13
PAUSE^BDGF	ADD+6, RESUME+8
$$HRCN^BDGF2	INIT+19
EN^BDGSPT3	VIEW+5
^DIC	ADD+11, LIFT+21, ADDUSER+2
^DIE	LIFT+13, RESUME+20
$$GET1^DIQ	HDR+2, HDR+3, HDR+4, INIT+6, RESUME+11, STATUS+13, STATUS+15, STATUS+16
EN^VALM	EN+2
TERM^VALM0	EN+1, RESET+1
CLEAR^VALM1	EN+1, EN+3
FULL^VALM1	ADD+1, LIFT+1, RESUME+1, VIEW+1, GETPAT+2
EN^VALM2	GETPAT+4
$$NOW^XLFDT	ADD+10, LIFT+12, LIFT+19, RESUME+19, STATUS+13
$$REPEAT^XLFSTR	PAD+2
DISP^XQORM1	HELP+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PROBLEM ADDING USER TO FILE - CONTACT IT DEPARTMENT" Line Location: ADD+4
Function Call: WRITE	Prompt: !!,$$STATUS(BDGUSR,DFN,2) Line Location: LIFT+8
Function Call: WRITE	Prompt: !!,"ACCESS CURRENTLY RESTRICTED; NOTHING TO RESUME" Line Location: RESUME+7
Function Call: WRITE	Prompt: !!,"RESTRICTION LAST RESUMED ON "_X Line Location: RESUME+12
Function Call: WRITE	Prompt: !! Line Location: HELP+1
Routine Call	VALM Line Location: EN+2
Routine Call	DIE Line Location: LIFT+13 RESUME+20
Routine Call	DIC Line Location: ADD+11 LIFT+21 ADDUSER+2

FileNo	Call Tags
^DPT - [#2]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ
9009018.111	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BDGSPT - [#9009018.1]	INIT+5, ADD+2, ADD+3, LIFT+6, LIFT+7, RESUME+5, STATUS+6, STATUS+7, STATUS+11, STATUS+13 , STATUS+14, LIFTCHK+3, LIFTCHK+4, LIFTCHK+5, RESUMCHK+2
^DD(9009018.1	ADD+9
^DD(9009018.11	LIFT+18
^TMP("BDGSPT2"	INIT+1!, INIT+23, SET+2, SET+3*, GETPAT+7, GETPAT+8, GETPAT+9, GETPAT+10, EXIT+1!
^TMP("BDGSPT2A"	INIT+1!, INIT+9*, INIT+13, INIT+15, INIT+16, INIT+20, INIT+24!

Label References

Name	Line Occurrences
$$PAD	HDR+3, INIT+18, INIT+19, SP+1
$$SP	HDR+3, HDR+4, INIT+18, INIT+23
$$STATUS	INIT+7, LIFT+8
ADDUSER	ADD+2
EN	USER+7
GETPAT	LIFT+3, RESUME+3, VIEW+3
HDR	RESET+1
INIT	RESET+1
RESET	ADD+12, LIFT+7, LIFT+22, RESUME+8, RESUME+11, RESUME+21
SET	INIT+14, INIT+21
USER	USER+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
BDGPAT	GETPAT+1~, GETPAT+3, GETPAT+7, GETPAT+10, GETPAT+11
BDGUSR	USER+2~, USER+6*, HDR+2, HDR+3, HDR+4, INIT+5, INIT+7, ADD+2, ADD+3, ADD+8 , LIFT+6, LIFT+7, LIFT+8, LIFT+11, LIFT+17, LIFT+19, RESUME+5, RESUME+11, RESUME+17, RESUME+18 , ADDUSER+2
COUNT	INIT+12, INIT+14, INIT+17, INIT+18, INIT+21, SET~, SET+3
D	PAD~, PAD+2
DA	LIFT+10~, LIFT+11, LIFT+16~, RESUME+16~, RESUME+18
DA(1	ADD+8, LIFT+11, LIFT+19, RESUME+18
DA(2	LIFT+11, LIFT+19, RESUME+18*
DATE	LIFT+2~, LIFT+6, LIFT+7, LIFT+11, RESUME+2~, RESUME+5, RESUME+6, RESUME+11, RESUME+18, STATUS+10~ , STATUS+11*, STATUS+12, STATUS+13, STATUS+14, STATUS+15, STATUS+16
DFN	INIT+4~, INIT+5, INIT+6, INIT+7, INIT+9, INIT+16, INIT+19, INIT+20, INIT+21, LIFT+2~ , LIFT+3, LIFT+6, LIFT+7, LIFT+8, LIFT+11, LIFT+17, LIFT+19, RESUME+2~, RESUME+3, RESUME+5 , RESUME+11, RESUME+17, RESUME+18, VIEW+2~, VIEW+3, GETPAT+11*, LIFTCHK~, LIFTCHK+3, LIFTCHK+4, LIFTCHK+5 , RESUMCHK~, RESUMCHK+2
DIC	ADD+8, LIFT+16~, LIFT+17, ADDUSER+1~, ADDUSER+2*
DIC("DR"	ADD+10, LIFT+20
DIC("P"	ADD+9, LIFT+18
DIC(0	ADD+8, LIFT+17, ADDUSER+2*
DIE	LIFT+10~, LIFT+11, RESUME+16~, RESUME+17
DLAYGO	ADD+8, LIFT+17, ADDUSER+1~, ADDUSER+2*
DR	LIFT+10~, LIFT+12, RESUME+16~, RESUME+19
DT	STATUS+16
DTIEN	LIFTCHK~, LIFTCHK+4, RESUMCHK~, RESUMCHK+2
DUZ	ADD+10, LIFT+12, LIFT+20, RESUME+19
DUZ(2	INIT+19
END	STATUS+10~, STATUS+14*, STATUS+15, STATUS+16
HELP	USER+2~, USER+5*, USER+6
IEN	SET~, SET+3
L	PAD~, PAD+2
LAST	LIFTCHK+4~*, LIFTCHK+5
LIFT	LIFTCHK~, LIFTCHK+3, LIFTCHK+5
LINE	INIT+18, INIT+19, INIT+20*, INIT+21, SET~, SET+2
MODE	STATUS~, STATUS+15, STATUS+16
N	SP~, SP+1
NUM	SET~, SET+1*, SET+2, SET+3
PAT	STATUS~, STATUS+5, STATUS+6, STATUS+7, STATUS+11, STATUS+13, STATUS+14, STATUS+15, STATUS+16
PATNM	INIT+4~, INIT+6, INIT+9, INIT+15, INIT+16, INIT+18, INIT+20
QUIT	RESUME+10~, RESUME+11, RESUME+13*
RESUME	RESUMCHK~, RESUMCHK+2
SCREEN	USER+2~, USER+4*, USER+6
SORT	INIT+4~, INIT+8, INIT+9, INIT+13, INIT+15, INIT+16, INIT+20
STATUS	INIT+4~, INIT+7*, INIT+8, INIT+9
U	ADD+9, LIFT+7, LIFT+18, STATUS+13, STATUS+14, LIFTCHK+3, LIFTCHK+5, RESUMCHK+2
USER	LIFTCHK~, LIFTCHK+3, LIFTCHK+4, LIFTCHK+5, RESUMCHK~, RESUMCHK+2
USR	STATUS~, STATUS+5, STATUS+6, STATUS+7, STATUS+11, STATUS+13, STATUS+14, STATUS+15, STATUS+16
>> VALMBCK	ADD+5, VIEW+6, RESET+1*
VALMCNT	EN+1~, INIT+1, INIT+14, INIT+21, INIT+23
>> VALMHDR(1	HDR+3*
>> VALMHDR(2	HDR+4*
>> VALMY	GETPAT+5
>> VALMY(0	GETPAT+6
X	HDR+1~, HDR+2, HDR+3, LIFT+16~, LIFT+19, RESUME+10~, RESUME+11, RESUME+12, RESUME+16~, ADDUSER+1~ , ADDUSER+2, GETPAT+1~, GETPAT+6, GETPAT+10, HELP+1
>> XQORNOD(0	GETPAT+4
Y	LIFT+16~, RESUME+16~, ADDUSER+1~, GETPAT+1~, GETPAT+7*, GETPAT+8, GETPAT+9, GETPAT+10
Z	GETPAT+1~, GETPAT+8*, GETPAT+9, GETPAT+10

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGSPT2

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 13

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: