Routine: VENPCCQ8

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN ^DIE ^DIR
M Transfer	2	^BMXEHR ($$SEMAPHOR,STOP,STRT)^BMXMON
PCC New Encounter Form	2	(,CSUM)^VENCS265 CIABMX^VENPCCQ7
IHS VA Utilities	1	^XBFMK

Package	Total	Caller Graph
PCC New Encounter Form	1	VENPCCQ6

Entry Points

External References

Name	Field # of Occurrence
^BMXEHR	BMX+3
$$SEMAPHOR^BMXMON	BSTART
STOP^BMXMON	BSTOP+5
STRT^BMXMON	BSTART+5
^DIC	BOR+8, BADASQP+16, LOOP1+3, LOOP1+6, LOOP2+3, LOOP2+6
YN^DICN	BSTART+3, BSTOP+3
^DIE	BADASQP+10, BADASQP+18
^DIR	PORT, SBMX+3, BOPT+9
^VENCS265	RTN+8
CSUM^VENCS265	RTN+10
CIABMX^VENPCCQ7	RPC+13
^XBFMK	BOR+10, BADASQP+13, BADASQP+19, LOOP1+3, LOOP2+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Checking required ROUTINES..." Line Location: RTN+0
Function Call: WRITE	Prompt: !?5,U,RTN," is missing!" Line Location: RTN+4
Function Call: WRITE	Prompt: " < All ROUTINES installed" Line Location: RTN+7
Function Call: WRITE	Prompt: !,"ROUTINE checksum verification..." Line Location: RTN+9
Function Call: WRITE	Prompt: !?5,"Integrity check violation!!" Line Location: RTN+11
Function Call: WRITE	Prompt: " < All ROUTINES passed" Line Location: RTN+12
Function Call: WRITE	Prompt: !,"Checking required FILES..." Line Location: FILE+0
Function Call: WRITE	Prompt: !?5,"File ",FIEN," is missing!" Line Location: FILE+4
Function Call: WRITE	Prompt: " < All FILES present" Line Location: FILE+7
Function Call: WRITE	Prompt: ! Line Location: FILE+9
Function Call: WRITE	Prompt: " < The VEN EHP ASQ QUESTIONNAIRE file has not been updated!" Line Location: FILE+10
Function Call: WRITE	Prompt: !,"Checking MEASUREMENT TYPES..." Line Location: MEAS+0
Function Call: WRITE	Prompt: !?5,"Measurement type ASQ"_X_" is missing!" Line Location: MEAS+7
Function Call: WRITE	Prompt: " < All MEASUREMENT TYPES present" Line Location: MEAS+11
Function Call: WRITE	Prompt: !,"Checking SECURITY KEYS..." Line Location: KEY+0
Function Call: WRITE	Prompt: !?5,"The key ",KEY," is missing!" Line Location: KEY+4
Function Call: WRITE	Prompt: " < All KEYS present" Line Location: KEY+7
Function Call: WRITE	Prompt: !,"Checking OPTIONS..." Line Location: OPT+0
Function Call: WRITE	Prompt: !?5,"The option ",OPT," is missing!" Line Location: OPT+4
Function Call: WRITE	Prompt: !?5,"The broker option 'VEN RPC' is missing" Line Location: OPT+9
Function Call: WRITE	Prompt: " < All OPTIONS present" Line Location: OPT+10
Function Call: WRITE	Prompt: !,"Checking REMOTE PROCEDURE CALLS..." Line Location: RPC+0
Function Call: WRITE	Prompt: !?5,"The RPC ",RPC," is missing!" Line Location: RPC+6
Function Call: WRITE	Prompt: " < All RPCs present and registered" Line Location: RPC+15
Function Call: WRITE	Prompt: !?5,"Because broker option 'VEN RPC' is missing. No RPCs can be registered." Line Location: RPC+16
Function Call: WRITE	Prompt: !,"Checking INPUT TEMPLATES: " Line Location: DIE+0
Function Call: WRITE	Prompt: !?5,"The input template ",Y," is missing!" Line Location: DIE+6
Function Call: WRITE	Prompt: " < All required INPUT TEMPLATES present" Line Location: DIE+11
Function Call: WRITE	Prompt: !,"Checking DATA ENTRY MNEMONICS: " Line Location: MN+0
Function Call: WRITE	Prompt: !?10,"The data entry mnemonic 'WCE' is missing!" Line Location: MN+1
Function Call: WRITE	Prompt: " < All required MNEMONICS present" Line Location: MN+2
Function Call: WRITE	Prompt: !!,"The Well Child GUI validation process detected at least one problem",! Line Location: CSCX+1
Function Call: WRITE	Prompt: !!,"The validation process was terminated prematurely!",!,"Please complete the validation at a later time" Line Location: CSCX+2
Function Call: WRITE	Prompt: !!!,Z,!,Y,!,X,!,Y,!,Z,!! Line Location: BOX+7
Function Call: WRITE	Prompt: !!,"Checking BMX.NET..." Line Location: BMX+2
Function Call: WRITE	Prompt: !!,"Uh oh!..." Line Location: BMX+4
Function Call: WRITE	Prompt: !,"The BMX.NET Broker package (Ver 3.0 or higher) has not been installed." Line Location: BMX+5
Function Call: WRITE	Prompt: !,"Well Child Module GUI installation aborted!!!" Line Location: BMX+6
Function Call: WRITE	Prompt: !,"Install the BMX.NET Broker package now, and then rerun this KIDS build" Line Location: BMX+7
Function Call: WRITE	Prompt: " < Broker installed" Line Location: BMX+10
Function Call: WRITE	Prompt: !,"Checking BMX SCHEMAS..." Line Location: BMXSCH+0
Function Call: WRITE	Prompt: !?5,"The schema 'VEN CF VISIT LIST' is missing!!" Line Location: BMXSCH+2
Function Call: WRITE	Prompt: " < All BMX SCHEMAS are present" Line Location: BMXSCH+3
Function Call: WRITE	Prompt: !!,"The BMX Broker must be running continuously to enable the WCM desktop" Line Location: BROKER+1
Function Call: WRITE	Prompt: !?5,"You must start the BMX Broker each time the RPMS server is re-booted" Line Location: BROKER+2
Function Call: WRITE	Prompt: !?5,"The BMXNet Management menu has options to START and STOP the BMX Broker" Line Location: BROKER+3
Function Call: WRITE	Prompt: !!,"Checking BMX PORT MONITOR..." Line Location: BMXMON+0
Function Call: WRITE	Prompt: !!,"Currently, there are no ports assigned to the BMX MONITOR" Line Location: BMXMON+2
Function Call: WRITE	Prompt: !?5,"Please assign a port number for this namespace" Line Location: BMXMON+3
Function Call: WRITE	Prompt: !!,"The WCM will not be functional without an active BMX Monitor port" Line Location: PORT+2
Function Call: WRITE	Prompt: !,"Use the EDIT option on the BMXNet Management menu to register a port" Line Location: PORT+3
Function Call: WRITE	Prompt: !,"Use the STRT option on the BMXNet Management menu to activate a port" Line Location: PORT+4
Function Call: WRITE	Prompt: !!,"The following ports have been assigned to BMX: ",!?5 Line Location: PORT+13
Function Call: WRITE	Prompt: !!,"The following port has been assigned to BMX: " Line Location: PORT+14
Function Call: WRITE	Prompt: STG Line Location: PORT+15
Function Call: WRITE	Prompt: !,"Use the STRT option on the BMXNet Management menu to activate a port" Line Location: PORT+16
Function Call: WRITE	Prompt: !,"<>" Line Location: STOP+0
Function Call: WRITE	Prompt: $C(13)," ",$C(13) Line Location: STOP+3
Function Call: WRITE	Prompt: !!,"Want to start the BMX broker listener now" Line Location: BSTART+2
Function Call: WRITE	Prompt: !! Line Location: BSTART+4
Function Call: WRITE	Prompt: !!,"The BMX broker listener is currently running on port "_PORT,!," Want to stop it" Line Location: BSTOP+1
Function Call: WRITE	Prompt: !! Line Location: BSTOP+4
Function Call: WRITE	Prompt: !?10,"WCM GUI Management" Line Location: HDR+1
Function Call: WRITE	Prompt: !,"----------------------------------------------------------",!! Line Location: HDR+2
Function Call: WRITE	Prompt: !?5,"RPC '",RPC,"' is not registered in broker option VEN RPC" Line Location: BOR+9
Function Call: WRITE	Prompt: !!,"Unable to find VEN RPC in the OPTION file!",!! Line Location: BOPT+4
Function Call: WRITE	Prompt: !,"A user must have broker option VEN RPC to use the Well Child Module!!!" Line Location: BOPT+5
Function Call: WRITE	Prompt: !!?5,"1. Add VEN RPC option to the Primay Menu(s) of WCM users (recommended)" Line Location: BOPT+6
Function Call: WRITE	Prompt: !?5,"2. Assign VEN RPC to individual users as a seconday menu option" Line Location: BOPT+7
Function Call: WRITE	Prompt: !?5,"3. Quit" Line Location: BOPT+8
Function Call: WRITE	Prompt: !?5,"Unable to add VEN RPC to this primary menu" Line Location: LOOP1+6
Function Call: WRITE	Prompt: !?5,"VEN RPC has already been added to this menu",! Line Location: LOOP1+7
Function Call: WRITE	Prompt: !?5,"ADDED",! Line Location: LOOP1+10
Function Call: WRITE	Prompt: !?5,"Unable to assign this secondary menu option to the user" Line Location: LOOP2+6
Function Call: WRITE	Prompt: !?5,"VEN RPC has already been assigned to the user",! Line Location: LOOP2+7
Function Call: WRITE	Prompt: !?5,"VEN RPC has been assigned as a secondary menu to this user",! Line Location: LOOP2+10
Routine Call	DIE Line Location: BADASQP+10 BADASQP+18
Routine Call	DIC Line Location: BOR+8 BADASQP+16 LOOP1+3 LOOP1+6 LOOP2+3 LOOP2+6
Routine Call	DIR Line Location: PORT SBMX+3 BOPT+9

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(19 - [#19]	Classic Fileman Calls
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^APCDTKW("B"	MN+1
^AUTTMSR - [#9999999.07]	MEAS+8, MEAS+9, BADASQP+5, BADASQP+10, BADASQP+18
^AUTTMSR("B"	MEAS+6, BADASQP+4
^BMXADO("B"	BMXSCH+2
^BMXMON - [#90093.5]	PORT+8, PORT+9
^BMXMON(0	BMXMON+1
^DD(	FILE+3
^DIC(19 - [#19]	OPT+3, OPT+8, RPC+10, BOPT+3, LOOP1+8, LOOP2+8
^DIC(19.1 - [#19.1]	KEY+3
^DIE - [#.402]	DIE+7
^DIE("B"	DIE+5
^VEN(7.14 - [#19707.14]	FILE+8
^XPD(9.6 - [#9.6]	RTN+2, FILE+2, KEY+2, OPT+2, RPC+3
^XWB(8994 - [#8994]	RPC+4

Label References

Name	Line Occurrences
$$STOP	RTN+14, FILE+13, MEAS+12, KEY+9, OPT+11, RPC+17, DIE+12, MN+3, CSCX+4, BSTART , BSTOP+6
BADASQP	MEAS+1
BOPT1	BOPT+10
BOPT2	BOPT+11
BOR	RPC+11
BOX	EXITMSG
CSCX	RPC+18
EXITMSG	CSCX+1
FILE	RTN+15
KEY	OPT+7
LOOP1	LOOP1+7, LOOP1+11
LOOP2	LOOP2+7, LOOP2+11
VALIDATE	CSC261+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CSC261+1~, CSC261+2, VALIDATE+3~, MEAS+3, MEAS+4, MEAS+5, DIE+5, DIE+6, DIE+7, BOX+3~ , BOX+4, BOX+5, BMX~, STOP+1, STOP+2, SBMX+1~, BSTART, BSTART+1, BSTART+3, BSTOP+2 , BSTOP+3, BOR+3~, BADASQP+1~, BOPT+2~, BOPT1+1~, BOPT2+1~
%Y	SBMX+1~
BIEN	VALIDATE~, VALIDATE+1, RTN+2, FILE+2, KEY+2, OPT+2, RPC+3, BMX~, PORT+7, PORT+8 , PORT+9
BOIEN	OPT+8*, OPT+9, RPC+9, RPC+10, RPC+11, RPC+16, BOR~, BOR+1, BOR+4
CODE	BADASQP+2~, BADASQP+8, BADASQP+15
>> D0	LOOP1+5, LOOP2+5
DA	PORT!, BOR+3~, BADASQP+2~, BADASQP+3, BADASQP+4, BADASQP+5, BADASQP+6, BADASQP+10, BADASQP+17*, BADASQP+18 , BOPT1+1~, BOPT2+1~
DA(1	BOR+4, BOR+5, LOOP1+5, LOOP1+8, LOOP2+5*, LOOP2+8
DIC	BOR+3~, BOR+5, BADASQP+2~, BADASQP+3, BOPT1+1~, LOOP1+2, LOOP1+5, BOPT2+1~, LOOP2+2, LOOP2+5
DIC("A"	LOOP1, LOOP1+1, LOOP1+4!, LOOP2, LOOP2+1, LOOP2+4!
DIC("P"	BOR+6, LOOP1+5, LOOP2+5*
DIC(0	BOR+7, BADASQP+3, LOOP1+2, LOOP1+5, LOOP2+2, LOOP2+5
DIE	BOR+3~, BADASQP+2~, BADASQP+3*
DIK	BOPT+2~
DIR	PORT!, SBMX+1~, BOPT+9!
DIR("A"	PORT, SBMX+2, BOPT+9*
DIR("B"	SBMX+2*
DIR(0	PORT, SBMX+2, BOPT+9*
DLAYGO	BOR+3~, BOR+6, BADASQP+2~, BADASQP+3, BOPT1+1~, LOOP1+5, BOPT2+1~, LOOP2+5
DO	BOPT1+1~, LOOP1+4!, BOPT2+1~, LOOP2+4!
DO(2	LOOP1+4!, LOOP2+4!
DR	BOR+3~, BADASQP+2~, BADASQP+9, BADASQP+17, BOPT1+1~, BOPT2+1~
DTIME	STOP+1
ERR	VALIDATE~, VALIDATE+2, VALIDATE+4, RTN+4, RTN+11, FILE+5, FILE+11, MEAS+7, KEY+5, KEY+8* , OPT+5, OPT+9, RPC+7, RPC+14, DIE+10, MN+1, CSCX+1, CSCX+3, BMX+8, BMXSCH+2 , BOR+9*
FIEN	VALIDATE+3~, FILE+1, FILE+2, FILE+3, FILE+4
GBL	BOPT1+1~, LOOP1+8, LOOP1+9, BOPT2+1~, LOOP2+8, LOOP2+9
>> I	MEAS+4*, MEAS+5
IEN	BADASQP+2~, BADASQP+3, BADASQP+6, BADASQP+13
>> KEY	KEY+1, KEY+2, KEY+3, KEY+4
MODE	VALIDATE~, VALIDATE+1, RTN+15, OPT+7, RPC+13, RPC+18
MORE	BOPT1+1~, BOPT1+2, LOOP1, BOPT2+1~, BOPT2+2, LOOP2
OIEN	BOPT+2~, BOPT+3*, BOPT+4, BOPT+10, BOPT+11, BOPT1~, LOOP1+5, BOPT2~, LOOP2+5
OK	VALIDATE~, VALIDATE+4, RTN+1, RTN+4, RTN+6, RTN+10, RTN+11, RTN+14, FILE+1, FILE+5* , FILE+7, FILE+9, FILE+11, FILE+13, MEAS+2, MEAS+7, MEAS+11, MEAS+12, KEY+1, KEY+5* , KEY+7, KEY+9, OPT+1, OPT+5, OPT+9, OPT+10, OPT+11, RPC+2, RPC+7, RPC+9 , RPC+11, RPC+13, RPC+14, RPC+15, RPC+17, DIE+1, DIE+6, DIE+10, DIE+12, MN+3 , CSCX+2, CSCX+3, BMX~, BMX+1, BMX+8, BMX+10, BMXSCH+1, BMXSCH+2, BOR~, BOR+9* , BOPT~, BOPT+1, BOPT+10, BOPT+11, BOPT1~, LOOP1+6, BOPT2~, LOOP2+6*
>> OPT	OPT+1, OPT+2, OPT+3, OPT+4
>> PCE	DIE+3*, DIE+4
PIEN	BOPT1+1~, BOPT2+1~
PORT	SBMX+1~, SBMX+4*, BSTART, BSTART+5, BSTOP+1, BSTOP+5
RIEN	RPC+1~, RPC+4*, RPC+5, RPC+10, RPC+11, BOR~, BOR+1, BOR+7, BOPT1+1~, BOPT2+1~
RPC	VALIDATE+3~, RPC+2, RPC+3, RPC+4, RPC+6, RPC+11, BOR~, BOR+1, BOR+9
RTN	VALIDATE+3~, RTN+1, RTN+2, RTN+3, RTN+4
STG	BMX~, PORT+7, PORT+10, PORT+11*, PORT+13, PORT+15
TYPE	BADASQP+2~, BADASQP+5, BADASQP+6, BADASQP+7, BADASQP+8, BADASQP+15*
U	RTN+4, FILE+8, DIE+3, DIE+4, BADASQP+5, LOOP1+7, LOOP1+9, LOOP2+7, LOOP2+9
X	VALIDATE+3~, MEAS+5, MEAS+6, MEAS+7, MEAS+8, DIE+2, DIE+3, DIE+4, CSCX+1, SUCCESS , EXITMSG, BOX~, BOX+1, BOX+2, BOX+4, BOX+6, BOX+7, BMX~, SBMX+1~, BOR+3~ , BOR+7, BADASQP+2~, BADASQP+15, BOPT+2~, BOPT1+1~, LOOP1+5, BOPT2+1~, LOOP2+5*
Y	VALIDATE+3~, MEAS+6, MEAS+7, MEAS+8, MEAS+9, DIE+4, DIE+5, DIE+6, DIE+7, DIE+8 , BOX+3~, BOX+5, BOX+6*, BOX+7, BMX~, PORT+1, SBMX+1~, SBMX+3, SBMX+4, BOR+3~ , BOR+9, BADASQP+2~, BADASQP+16, BADASQP+17, BOPT+2~, BOPT+10, BOPT+11, BOPT1+1~, LOOP1+3, LOOP1+5 , LOOP1+6, LOOP1+7, LOOP1+8, BOPT2+1~, LOOP2+3, LOOP2+5, LOOP2+6, LOOP2+7, LOOP2+8
Z	VALIDATE+3~, DIE+2, BOX+3~, BOX+5, BOX+7, BMX~, PORT+9*, PORT+11, SBMX+1~, BOR+3~ , BADASQP+2~, BOPT+2~, BOPT1+1~, BOPT2+1~

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCQ8

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items

Name	Comments	DBIA/ICR reference
BOPT1(OIEN,OK)	; ADD VEN RPC TO PRIMARY MENU(S)
HDR	; EP - OPTION HEADER
DIE
BOPT2(OIEN,OK)	; ADD VEN RPC TO PRIMARY MENU(S)
EXITMSG
BROKER	; EP - IF USING DESKTOP, CONFIGURE THE BROKER
VALIDATE(BIEN,MODE,OK,ERR)	; EP - VALIDATE WCM CONTENT
FILE
PORT
MEAS
BSTART
BMX(OK)
SBMX	; EP - OPTION: VEN WCM START OR STOP BROKER
RTN
CSC261	; EP - VALIDATE PCC+ 2.6 PATCH 1: WCM GUI
RPC
BOPT(OK)	; EP - PLACE BROKER OPTION ON PRIMARY MENU OR ASSIGN IT TO INDIVIDUAL PROVIDER AS A SECONDARY MENU
STOP()
SUCCESS
BADASQP	; EP - FIX SITES THAT HAD ALPHA VERSION OF 2.6 WITH CORRUPT ASQP
BMXSCH
LOOP2
LOOP1
BOX(X)	; EP - HIGHLIGHT TEXT INSIDE A * BOX
OPT
CSCX	; FINISH UP
BOR(BOIEN,RIEN,RPC,OK)	; EP - REGISTER A WCM RPC IN THE BROKER OPTION VEN RPC
MN
KEY
BMXMON
BSTOP	; STOP THE BROKER