Routine: VENPCCQZ

Package	Total	Call Graph
PCC New Encounter Form	5	^VENLINIT ^VENMINIT DATA^VENPCCQB VWC^VENPCCQC EXAM^VENPCCQD
VA Fileman	5	^DIC YN^DICN ^DIE ^DIK ^DIR
IHS VA Utilities	1	^XBFMK
M Transfer	1	SS^BMXADO
Patient Care Component	1	WCE^APCHS6B

Package	Total	Caller Graph
PCC New Encounter Form	1	VENPCCQX

Name	Comments	DBIA/ICR reference
SMLOOP
SMORE
ACT1
CMP(Z)	; EP - CHECK COMPONENTS OF WELL CHILD EXAM HEALTH SUMMARY
VPTED	; EP - UPDATE V PATIENT ED FILE
HOLD1
AK1
ACT	; EP - MANAGE WCM DOMIANS: MAKE THEM ACTIVE OR INCATIVE
DINFO	; EP - CHECK/FIX KB DOMAIN POINTERS
MENU1
ACTL	; EP - SHOW IF DOMAIN IS ACTIVE
MP	; EP - SET MEASUREMENT PANELS CORRECTLY
HOLD(KEY)	; EP - SECURITY KEY HOLDERS
MENU	; EP - VIEW/EDIT ASSOCIATIONS BETWEEN MENUS AND THE BROKER OPTION VEN RPC
ADDKEY(USER,KIEN,SELF)	; EP - ALLOCATE A KEY TO A USER
XRT	; EP - MAKE SURE EXTERNAL ROUTINES ARE PRESENT
VWC	; EP - UPDATE V WELL CHILD FILE"
SMENU	; EP - ASSIGN BROKER OPTION AS A SECONDARY MENU FOR WCM USERS

Name	Field # of Occurrence
WCE^APCHS6B	XRT+3
SS^BMXADO	XRT+11
^DIC	MP+21, MP+26, SMORE+1, SMORE+7, ADDKEY+4, AK1+2, MENU1+1
YN^DICN	SMENU+7, SMORE+5, HOLD+11, HOLD1+1, ADDKEY+7, MENU+18, MENU1+10, ACT+5
^DIE	AK1+4, ACT1+4
^DIK	MP+15, ADDKEY+9, MENU1+12
^DIR	ACT1+1
^VENLINIT	VPTED+2, VWC+2, VPTED+6
^VENMINIT	VWC+6
DATA^VENPCCQB	XRT+5
VWC^VENPCCQC	XRT+7
EXAM^VENPCCQD	XRT+9
^XBFMK	MP+30, SMORE+1, ADDKEY+7, ADDKEY+9, AK1+6

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"It looks like you need to update the V PATIENT ED file..." Line Location: VPTED+3
Function Call: WRITE	Prompt: !,"When asked if you want to overwrite security codes, answer 'YES'" Line Location: VPTED+4
Function Call: WRITE	Prompt: !,"When asked if everything is OK, answer 'YES'",!! Line Location: VPTED+5
Function Call: WRITE	Prompt: ! Line Location: VPTED+7
Function Call: WRITE	Prompt: !,"It looks like you need to install the V WELL CHILD file..." Line Location: VWC+3
Function Call: WRITE	Prompt: !,"When asked if you want to overwrite security codes, answer 'YES'" Line Location: VWC+4
Function Call: WRITE	Prompt: !,"When asked if everything is OK, answer 'YES'" Line Location: VWC+5
Function Call: WRITE	Prompt: ! Line Location: VWC+7
Function Call: WRITE	Prompt: !?5,"The correct measurement panels have been assigned to this component" Line Location: MP+29
Function Call: WRITE	Prompt: !?5,"The WELL CHILD EXAM component is missing" Line Location: CMP+19
Function Call: WRITE	Prompt: !?5,"The MEASUREMENT PANEL component is missing" Line Location: CMP+20
Function Call: WRITE	Prompt: !?5,"The DEMOGRAPHIC component is missing" Line Location: CMP+21
Function Call: WRITE	Prompt: !?5,"All required components are present" Line Location: CMP+22
Function Call: WRITE	Prompt: !!,"Broker options can also be assigned to specific users who do not use" Line Location: SMENU+4
Function Call: WRITE	Prompt: !,"any of the primary menus listed above." Line Location: SMENU+5
Function Call: WRITE	Prompt: !,"Want to allow these special users to access WCM desktop components" Line Location: SMENU+6
Function Call: WRITE	Prompt: !,"This user already has access" Line Location: SMORE+3
Function Call: WRITE	Prompt: !,"Are you sure you want to allow access for this user" Line Location: SMORE+4
Function Call: WRITE	Prompt: "Unable to assign access privileges to this user!!!" Line Location: SMORE+9
Function Call: WRITE	Prompt: !,"OK, secondary menu options have been assigned to provide access for this user.",! Line Location: SMORE+10
Function Call: WRITE	Prompt: !?15,"Holders:" Line Location: HOLD+5
Function Call: WRITE	Prompt: !?20,NAME Line Location: HOLD+6
Function Call: WRITE	Prompt: !?15,"Currently no users hold this key!" Line Location: HOLD+8
Function Call: WRITE	Prompt: !?15,"Want to assign it to yourself" Line Location: HOLD+10
Function Call: WRITE	Prompt: !!?2,"Want to assign ",KEY," to any other IT personnel or supervisors" Line Location: HOLD1+0
Function Call: WRITE	Prompt: !,"This user already holds this key!",!,"Want to de-allocate the key" Line Location: ADDKEY+6
Function Call: WRITE	Prompt: " (Key de-allocated)" Line Location: ADDKEY+9
Function Call: WRITE	Prompt: " <- Allocated" Line Location: AK1+5
Function Call: WRITE	Prompt: !!,"CHECKING BROKER OPTION LINKS" Line Location: MENU+2
Function Call: WRITE	Prompt: !,"In order to access the WCM desktop components, certain broker options must" Line Location: MENU+3
Function Call: WRITE	Prompt: !,"be linked to the PRIMARY MENU of clinic nurses and doctors who use the WCM." Line Location: MENU+4
Function Call: WRITE	Prompt: !,"(One moment please...) " Line Location: MENU+5
Function Call: WRITE	Prompt: !,"The broker option 'VEN RPC' has not been linked to any user menu!" Line Location: MENU+10
Function Call: WRITE	Prompt: !!,"The broker option 'VEN RPC' is assigned to the following menu(s):" Line Location: MENU+11
Function Call: WRITE	Prompt: !?5,TOT,". ",Z Line Location: MENU+14
Function Call: WRITE	Prompt: " NONE!",!,"Want to assign VEN RPC to a menu" Line Location: MENU+16
Function Call: WRITE	Prompt: !,"Want to make any changes to the 'VEN RPC' assignments" Line Location: MENU+17
Function Call: WRITE	Prompt: !! Line Location: MENU1+1
Function Call: WRITE	Prompt: !,"VEN RPC must be associated with a menu option" Line Location: MENU1+4
Function Call: WRITE	Prompt: !,$P(Y,U,2)," is not a menu option. Try again" Line Location: MENU1+5
Function Call: WRITE	Prompt: !,"VEN RPC is already associated with this option." Line Location: MENU1+8
Function Call: WRITE	Prompt: !,"Want to remove VEN RPC from this menu" Line Location: MENU1+9
Function Call: WRITE	Prompt: !,"VEN RPC has been removed from this menu" Line Location: MENU1+12
Function Call: WRITE	Prompt: !,"VEN RPC is now associated with this option" Line Location: MENU1+18
Function Call: WRITE	Prompt: !?10,"Knowledgebase domain definitions have been verified" Line Location: DINFO+10
Function Call: WRITE	Prompt: !!,"Checking Knowledgebase domains... ",! Line Location: ACT+2
Function Call: WRITE	Prompt: !!,"Want to change the status of any of these elements" Line Location: ACT+4
Function Call: WRITE	Prompt: !! Line Location: ACT1+6
Function Call: WRITE	Prompt: !!,"CHECKING REQUIRED ROUTINES OUTSIDE OF THE WCM PACKAGE..." Line Location: XRT+2
Function Call: WRITE	Prompt: !?5,"The routine APCHS6B is missing!" Line Location: XRT+3
Function Call: WRITE	Prompt: !?5,"^APCHS6B",?15,"<- OK" Line Location: XRT+4
Function Call: WRITE	Prompt: !?5,"The routine VENPCCQB is missing!" Line Location: XRT+5
Function Call: WRITE	Prompt: !?5,"^VENPCCQB",?15,"<- OK" Line Location: XRT+6
Function Call: WRITE	Prompt: !?5,"The routine VENPCCQB is missing!" Line Location: XRT+7
Function Call: WRITE	Prompt: !?5,"^VENPCCQB",?15,"<- OK" Line Location: XRT+8
Function Call: WRITE	Prompt: !?5,"The routine VENPCCQD is missing!" Line Location: XRT+9
Function Call: WRITE	Prompt: !?5,"^VENPCCQD",?15,"<- OK" Line Location: XRT+10
Function Call: WRITE	Prompt: !?5,"The Broker routines (BMX*) are missing!" Line Location: XRT+11
Function Call: WRITE	Prompt: !?5,"The Broker routines (BMX*) are loaded" Line Location: XRT+12
Routine Call	DIE Line Location: AK1+4 ACT1+4
Routine Call	DIC Line Location: MP+21 MP+26 SMORE+1 SMORE+7 ADDKEY+4 AK1+2 MENU1+1
Routine Call	DIR Line Location: ACT1+1

FileNo	Call Tags
^VEN(7.13 - [#19707.13]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^APCDTKW("B"	DINFO+2
^APCHSCMP("B"	CMP+4, CMP+5, CMP+6
^APCHSCTL - [#9001015]	MP+7, MP+8, MP+20, MP+22, MP+25, MP+27, CMP+7, CMP+13, CMP+14
^APCHSCTL("B"	MP+2, CMP+3
^APCHSMPN("B"	MP+3, MP+4, MP+5
^DD(9001015	MP+18
^DIC(19 - [#19]	SMENU+2, SMENU+3, MENU+6, MENU+7, MENU+9, MENU+13, MENU1+3, MENU1+7, MENU1+11, MENU1+14 , MENU1+21
^DIC(19.1 - [#19.1]	HOLD+2
^VA(200 - [#200]	SMORE+3, HOLD+3, HOLD+6, ADDKEY+5, AK1+4
^VEN(7.13 - [#19707.13]	DINFO+3, ACT1+4, ACTL+2, ACTL+3
^XUSEC(	HOLD+4, HOLD+6
^XUSEC("XUMGR"	HOLD+3

Name	Line Occurrences
$$ADDKEY	HOLD+12, HOLD1+3
ACT1	ACT1+6
ACTL	ACT+3, ACT1+5
AK1	ADDKEY+2
HOLD1	HOLD+4, HOLD1+4
MENU1	MENU+10, MENU1+3, MENU1+7, MENU1+19, MENU1+23
SMLOOP	SMORE+5
SMORE	SMORE+3, SMLOOP

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	MP+1~, CMP+1~, CMP+7, CMP+8, CMP+9, CMP+10, CMP+14, CMP+15, CMP+16, CMP+17 , SMENU+1~, SMENU+7, SMORE+5, HOLD+1~, HOLD+11, HOLD+12, HOLD1+1, HOLD1+2, ADDKEY+1~, ADDKEY+7* , MENU+1~, MENU+18, MENU1+10, MENU1+16, MENU1+20, DINFO+1~, ACT+1~, ACT+4*, ACT+5
%Y	SMENU+1~, MENU+1~, ACT+1~
ASQ	MP+1~, MP+5*, MP+12, MP+27
BIEN	SMENU+1~, SMENU+3, SMORE+3, SMORE+7, MENU+1~, MENU+6, MENU+9, MENU1+7, MENU1+11, MENU1+17
CIEN	CMP+1~, CMP+12, CMP+13, CMP+14
>> D0	MENU1+11*
DA	MP+1~, MP+14, SMENU+1~, ADDKEY+1~, ADDKEY+8, MENU+1~, MENU1+11, MENU1+12, ACT+1~, ACT1+2 , ACT1+4
DA(1	MP+14, MP+17, SMORE+6, ADDKEY+8, AK1, AK1+4, MENU1+11
DFN	SMENU+1~, SMORE+2, SMORE+3, SMORE+6, HOLD+1~, HOLD+5, HOLD+6*
DIC	MP+1~, MP+17, SMENU+1~, SMORE, SMORE+6, SMORE+8!, ADDKEY+1~, ADDKEY+3, AK1, AK1+3 , MENU+1~, MENU1, ACT+1~
DIC("A"	SMENU+8, SMORE+11, ADDKEY+3, MENU+19
DIC("P"	MP+18, SMORE+6, AK1*
DIC(0	MP+18, SMORE, SMORE+6, ADDKEY+3, AK1, MENU1
DIE	MP+1~, SMENU+1~, ADDKEY+1~, AK1+3, MENU+1~, ACT+1~, ACT1+3
DIEN	CMP+1~, CMP+6, CMP+17, DINFO+1~, DINFO+5, DINFO+6, DINFO+7, DINFO+8, ACT+1~, ACTL+1* , ACTL+2*, ACTL+3, ACTL+5
DIK	MP+1~, MP+14, ADDKEY+8, MENU1+11*
DIR	ACT+1~
DIR("A"	ACT+6, ACT1+6
DIR(0	ACT1*
>> DLAYGO	MP+18, SMORE+6, AK1*
DR	SMENU+1~, ADDKEY+1~, AK1+3, MENU+1~, ACT+1~, ACT1+3
DUZ	HOLD+3, HOLD+12, HOLD1+3, ADDKEY+2
DUZ(0	HOLD+3
GBL	DINFO+1~, DINFO+3, DINFO+4, DINFO+5, DINFO+6, DINFO+7, DINFO+8*
KEY	HOLD~, HOLD+2, HOLD+4, HOLD+6, HOLD1
KIEN	HOLD+1~, HOLD+2*, HOLD+3, HOLD+12, HOLD1+3, ADDKEY~, ADDKEY+5, AK1+1
MIEN	CMP+1~, CMP+5, CMP+16, MENU+1~, MENU1+2, MENU1+3, MENU1+7, MENU1+11, MENU1+14, MENU1+21
MNIEN	DINFO+1~, DINFO+2*, DINFO+7
MP	MP+1~
NAME	HOLD+1~, HOLD+6, DINFO+1~, DINFO+3, DINFO+4*, DINFO+5, DINFO+8
PIEN	MP+1~, MP+6, MP+7, MP+8, MP+14
PRIV	HOLD+1~, HOLD+2, HOLD+3, HOLD+4, HOLD+9
PS	MP+1~, MP+3*, MP+10, MP+22
PSM	MP+1~, MP+4*, MP+11
SCIEN	ADDKEY+1~, ADDKEY+5*, ADDKEY+8
SELF	ADDKEY~, ADDKEY+2
STG	DINFO+1~
TIEN	MP+1~, MP+2, MP+7, MP+8, MP+14, MP+17, MP+20, MP+22, MP+25, MP+27 , CMP+1~, CMP+3, CMP+7, CMP+13, CMP+14
TODAY	ADDKEY+1~
TOT	MENU+1~, MENU+8!, MENU+9, MENU+10, MENU+12, MENU+14, ACT+1~, ACT+3!, ACT1, ACTL+1 , ACTL+5*, ACTL+6
TOT(	MENU+9, MENU+12, ACT1+2, ACTL+5
TOT(1	MENU+16
TXT	DINFO+1~, DINFO+3*, DINFO+4
TYPE	DINFO+1~
U	MP+9, MP+18, MP+22, MP+27, CMP+7, CMP+8, CMP+14, HOLD+6, MENU+13, MENU1+3 , MENU1+5, MENU1+16, MENU1+20, DINFO+7, DINFO+8, ACTL+4, ACTL+5
USER	ADDKEY~
VIEN	SMENU+1~, SMENU+2*, SMORE+3, SMORE+7
WIEN	CMP+1~, CMP+4*, CMP+7, CMP+8, CMP+10, CMP+15
X	VPTED+1~, VWC+1~, MP+1~, MP+8, MP+9, MP+20, MP+25, CMP+1~, SMENU+1~, SMORE+7 , ADDKEY+1~, AK1+1, MENU+1~, MENU1+14, MENU1+17, MENU1+21, MENU1+22, DINFO+1~, ACT+1~, ACTL+3 , ACTL+4, ACTL+5
XIEN	MENU+1~, MENU+7*, MENU1+19, MENU1+22
Y	VPTED+1~, VWC+1~, MP+1~, MP+9, MP+10, MP+11, MP+12, MP+21, MP+22, MP+26 , MP+27, CMP+1~, CMP+12, CMP+15, CMP+16, CMP+17, CMP+19, CMP+20, CMP+21, SMENU+1~ , SMORE+1, SMORE+2, SMORE+9, HOLD+1~, HOLD+12, HOLD1+3, ADDKEY+1~, ADDKEY+2, ADDKEY+4, ADDKEY+5 , ADDKEY+8, AK1, AK1+2, MENU+1~, MENU+8, MENU+9, MENU+12, MENU+13, MENU1+1, MENU1+2 , MENU1+5, MENU1+14, MENU1+15, DINFO+1~, ACT+1~, ACT1+1, ACT1+2, ACTL+4*, ACTL+6
Z	VPTED+1~, VWC+1~, MP+1~, MP+6, MP+10, MP+11, MP+12, MP+19, MP+24, CMP~ , CMP+2, CMP+7, CMP+10, CMP+12, CMP+19, CMP+20, CMP+21, SMENU+1~, HOLD+1~, MENU+1~ , MENU+13, MENU+14, MENU1+14, MENU1+15, MENU1+16, MENU1+17, MENU1+19, MENU1+20, MENU1+22, ACT+1~ , ACTL+5*, ACTL+6

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCQZ

Information

Source Information

Call Graph

Call Graph Total: 13

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	Field # of Occurrence
$T(DATA^VENPCCQB	XRT+5
$T(EXAM^VENPCCQD	XRT+9
$T(SS^BMXADO	XRT+11
$T(VWC^VENPCCQC	XRT+7
$T(WCE^APCHS6B	XRT+3
$T(^VENLINIT	VPTED+2, VWC+2