Routine: BDGVAR

Information

BDGVAR ; IHS/ANMC/LJF - VARIABLE SET AND KILL ; [ 01/02/2004 10:27 AM ]

Source Information

Source file <BDGVAR.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
IHS Changes To ADT	2	PAUSE^BDGF $$DIV^BDGPAR
IHS VA Utilities	2	^XBCLS EN^XBVK
Kernel	1	$$VERSION^XPDUTL
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 8

Package	Total	Caller Graph
IHS Changes To ADT	8	BDGH01 BDGH02 BDGH03 BDGH04 BDGH05 BDGH06 BDGIMPL BDGPCCL

Entry Points

Name	Comments	DBIA/ICR reference
SECQUIT
SECENTER	;EP; entry point for Security Officer Menu
MENU	;ENTRY POINT >>> entry action for all submenus
CHECK(TALK)	;PEP; check that ADT is set up and PCC link is turned on ; TALK = 1 means display mini message to screen ; TALK = 2 means display full message to screen ; TALK = 0 means no display; just return status
EXIT	;PEP; kill system wide variables
ENTER	;EP; entry point called by main menu
VAR	;PEP;***> set package variables from site parameter file

Name	Field # of Occurrence
PAUSE^BDGF	ENTER+10, ENTER+14, CHECK+19, CHECK+56, SECENTER+11
$$DIV^BDGPAR	VAR+5
$$GET1^DIQ	ENTER+13, CHECK+23, CHECK+29, CHECK+36, MENU+4, SECENTER+12
^XBCLS	ENTER+4, CHECK+14, SECENTER+3
EN^XBVK	EXIT+2
$$VERSION^XPDUTL	ENTER+7, SECENTER+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF Line Location: ENTER+4
Function Call: WRITE	Prompt: !?27 Line Location: ENTER+4
Function Call: WRITE	Prompt: !?27 Line Location: ENTER+4
Function Call: WRITE	Prompt: !?24," INDIAN HEALTH SERVICE " Line Location: ENTER+5
Function Call: WRITE	Prompt: !?19," ADMISSION/DISCHARGE/TRANSFER SYSTEM " Line Location: ENTER+6
Function Call: WRITE	Prompt: !?24," VERSION ",$$VERSION^XPDUTL("DG"),?53,"" Line Location: ENTER+7
Function Call: WRITE	Prompt: !?27 Line Location: ENTER+8
Function Call: WRITE	Prompt: "*" Line Location: ENTER+8
Function Call: WRITE	Prompt: !!,"YOU MUST SIGN ON PROPERLY THROUGH THE KERNEL TO USE ADT!" Line Location: ENTER+11
Function Call: WRITE	Prompt: !!?80-$L(X)\2,X Line Location: ENTER+13
Function Call: WRITE	Prompt: !!,"INVALID FACILITY; NOTIFY YOUR SITE MANAGER!" Line Location: ENTER+15
Function Call: WRITE	Prompt: !?25,"ADT-PCC LINK ENVIRONMENT" Line Location: CHECK+14
Function Call: WRITE	Prompt: !?25 Line Location: CHECK+15
Function Call: WRITE	Prompt: "-" Line Location: CHECK+15
Function Call: WRITE	Prompt: !!?10,"1) RPMS SITE file is NOT present." Line Location: CHECK+18
Function Call: WRITE	Prompt: !?9," ADT is NOT set up properly; contact application coordinator. " Line Location: CHECK+19
Function Call: WRITE	Prompt: !!?10,"1) PCC is running at this site (RPMS SITE file): ",X Line Location: CHECK+24
Function Call: WRITE	Prompt: !!?10,"2) PCC MASTER CONTROL file is defined for this site: ",$S(X:"YES",1:"NO") Line Location: CHECK+27
Function Call: WRITE	Prompt: !!?10,"3) VISIT TYPE defined in the PCC MASTER CONTROL file: ",X Line Location: CHECK+30
Function Call: WRITE	Prompt: !!?10,"5) PIMS package defined in the PACKAGE file: ",$S(X:"YES",1:"NO") Line Location: CHECK+38
Function Call: WRITE	Prompt: !!?10,"6) PIMS entry exists in the PCC MASTER CONTROL file: ",Y Line Location: CHECK+43
Function Call: WRITE	Prompt: !!?10,"7) PIMS entry has ""PASS DATA TO PCC"" set to: " Line Location: CHECK+48
Function Call: WRITE	Prompt: $S(Y:"YES",1:"NO") Line Location: CHECK+49
Function Call: WRITE	Prompt: !!?(80-$L(X)/2),X Line Location: CHECK+55
Function Call: WRITE	Prompt: !?(80-$L(X)/2),X Line Location: CHECK+57
Function Call: WRITE	Prompt: @IOF,!!?80-$L(BDG("TITLE"))/2,BDG("TITLE") Line Location: MENU+3
Function Call: WRITE	Prompt: !!?80-$L(X)\2,"(",X,")" Line Location: MENU+5
Function Call: WRITE	Prompt: !?18 Line Location: SECENTER+3
Function Call: WRITE	Prompt: "*" Line Location: SECENTER+3
Function Call: WRITE	Prompt: !?18,"* INDIAN HEALTH SERVICE *" Line Location: SECENTER+4
Function Call: WRITE	Prompt: !?18,"* SENSITIVE PATIENT TRACKING MODULE *" Line Location: SECENTER+5
Function Call: WRITE	Prompt: !?18,"* VERSION ",$$VERSION^XPDUTL("PIMS"),?58,"*" Line Location: SECENTER+6
Function Call: WRITE	Prompt: !?18 Line Location: SECENTER+7
Function Call: WRITE	Prompt: "*" Line Location: SECENTER+7
Function Call: WRITE	Prompt: !!?80-$L(X)\2,X Line Location: SECENTER+12
Function Call: WRITE	Prompt: !!,"INVALID FACILITY; NOTIFY YOUR SITE MANAGER!" Line Location: SECENTER+13
Function Call: WRITE	Prompt: ! Line Location: SECQUIT+0

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^DG(40.8 - [#40.8]	GET1^DIQ
^APCCCTRL - [#9001000]	GET1^DIQ
^AUTTSITE - [#9999999.39]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^APCCCTRL - [#9001000]	CHECK+26, CHECK+41, CHECK+45, CHECK+46
^AUTTSITE(1	CHECK+17
^BDGPAR - [#9009020.1]	CHECK+32
^DG(40.8 - [#40.8]	CHECK+34
^DIC(9.4 - [#9.4]	CHECK+38
^XUSEC("DGZSYS"	CHECK+56, CHECK+57

Name	Line Occurrences
EXIT	ENTER+17
SECQUIT	SECENTER+9

Local Variables

Name	Field # of Occurrence
BDG	MENU+1~, SECQUIT!
BDG("I"	SECENTER+3, SECENTER+7
BDG("TITLE"	MENU+2*, MENU+3
BDGDIV	VAR+5*, EXIT+1!
BDGMENU	ENTER+3*, EXIT+1!
BDGQUIT	ENTER+1!, EXIT+1!
DUZ	CHECK+56, CHECK+57
DUZ(0	SECENTER+9
DUZ(2	ENTER+10, ENTER+13, VAR+5, CHECK+26, CHECK+29, CHECK+34, CHECK+41, CHECK+45, CHECK+46, MENU+4 , SECENTER+9, SECENTER+12
I	ENTER+2~, ENTER+4, ENTER+8, CHECK+11~, CHECK+15*
IOF	ENTER+4, MENU+3
STATUS	CHECK+11~, CHECK+22, CHECK+23, CHECK+26, CHECK+29, CHECK+35, CHECK+39, CHECK+42, CHECK+45, CHECK+46 , CHECK+52, CHECK+53, CHECK+54, CHECK+56, CHECK+57, CHECK+59
TALK	CHECK~, CHECK+13, CHECK+18, CHECK+19, CHECK+20, CHECK+24, CHECK+27, CHECK+30, CHECK+36, CHECK+38 , CHECK+43, CHECK+47, CHECK+51, CHECK+55
U	CHECK+46, MENU+2
X	ENTER+2~, ENTER+13, ENTER+14, CHECK+11~, CHECK+23, CHECK+24, CHECK+26, CHECK+27, CHECK+29, CHECK+30 , CHECK+32, CHECK+34, CHECK+38, CHECK+39, CHECK+41, CHECK+45, CHECK+46, CHECK+52, CHECK+53, CHECK+54* , CHECK+55, CHECK+56, CHECK+57, MENU+4, MENU+5, SECENTER+12, SECENTER+13, SECQUIT!
>> XQUIT	ENTER+10, ENTER+14, ENTER+17, VAR+1, CHECK+20, CHECK+56, SECENTER+11, SECENTER+13
>> XQY0	MENU+2
Y	CHECK+11~, CHECK+32, CHECK+34, CHECK+35, CHECK+36, CHECK+41, CHECK+42, CHECK+43, CHECK+46, CHECK+49 , SECQUIT!

Customize PDF page

Package: IHS Changes To ADT

Routine: BDGVAR

Information

Source Information

Call Graph

Call Graph Total: 6

Caller Graph

Caller Graph Total: 8

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed