Routine: VENPCCIT

Package	Total	Call Graph
VA Fileman	5	^DIC YN^DICN ^DIE ^DIK ^DIR
PCC New Encounter Form	2	LAB^VENPCCIX $$CFG^VENPCCU
IHS VA Utilities	1	^XBFMK
Kernel	1	$$FMDIFF^XLFDT

Package	Total	Caller Graph
PCC New Encounter Form	1	VENPCCIX

Entry Points

External References

Name	Field # of Occurrence
^DIC	TMN1+11, LKUP+5
YN^DICN	DX1+2, MSR1+2, MSR3+4, POV1+1, POV2+4, POV3+4, POV4+4, POV5+4, RX1+1, RX3+4 , RX4+4, RX9+4, RX10+4, RX11+4, RX12+4, RX13+3, HMR1+2, HMR2+4, HMR3+4, HMR4+4 , HMR6+3, DT+4
^DIE	TMN1+14, DIE+8
^DIK	DT+7
^DIR	OLD+2, NAME1+1, TMN1+4, DX2+4, MSR2+4, MSR4+3, POVN+5, POV6+5, RXN+5, RX2+4 , RX5+3, RX6+3, RX8+3, HMR5+5
LAB^VENPCCIX	HMRDIE+1
$$CFG^VENPCCU	INIT
^XBFMK	OLD+3, FIN, DT+5, DT+9, LKUP+8
$$FMDIFF^XLFDT	INIT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter the NAME of the new PCC+ template." Line Location: NAME+1
Function Call: WRITE	Prompt: !,"This is the name that will be seen during the check-in process." Line Location: NAME+2
Function Call: WRITE	Prompt: !,"Naming conventions-> " Line Location: NAME+3
Function Call: WRITE	Prompt: !?3,"If your PCC+ system is used (& will be used) in only one facility:" Line Location: NAME+4
Function Call: WRITE	Prompt: !?5,"<CLINIC NAME>" Line Location: NAME+5
Function Call: WRITE	Prompt: !?5,"Examples: 'PODIATRY', or 'WALKIN'" Line Location: NAME+6
Function Call: WRITE	Prompt: !?3,"Otherwise, if your PCC+ system covers multiple facilities: " Line Location: NAME+7
Function Call: WRITE	Prompt: !?5,"<BRIEF SITE NAME> <CLINIC NAME>" Line Location: NAME+8
Function Call: WRITE	Prompt: !?5,"Examples: 'ANMC NEUROLOGY' or 'WARM SPRINGS MEDICAL'",! Line Location: NAME+9
Function Call: WRITE	Prompt: !?5,"Also, if you want to edit the properties of an existing template, enter the" Line Location: NAME+10
Function Call: WRITE	Prompt: !?5,"the EXACT, full name of that template now" Line Location: NAME+11
Function Call: WRITE	Prompt: " ??",!,DIR("?") Line Location: NAME1+3
Function Call: WRITE	Prompt: !,"This template already exits. Try again" Line Location: NAME1+7
Function Call: WRITE	Prompt: !! Line Location: NAME1+7
Function Call: WRITE	Prompt: !!,"Enter this template's mnemonic..." Line Location: TMN+1
Function Call: WRITE	Prompt: !?3,"The mnemonic is 1-10 lowercase characters/numbers" Line Location: TMN+2
Function Call: WRITE	Prompt: !?3,"It is the first part of this template's file name on the print server" Line Location: TMN+3
Function Call: WRITE	Prompt: !?3,"For example, 'neuro' is the mnemonic for the template 'neuro_template.doc" Line Location: TMN+4
Function Call: WRITE	Prompt: " ??",!,DIR("?") Line Location: TMN1+7
Function Call: WRITE	Prompt: !!,"Update failed!" Line Location: TMN1+11
Function Call: WRITE	Prompt: !!,SEP," ICD PREFERENCES ",SEP Line Location: DX+1
Function Call: WRITE	Prompt: !!,"Does this form contain Dx mail merge fields (ICD preferences)" Line Location: DX1+0
Function Call: WRITE	Prompt: !!,"Count the number of Dx mail merge fields on this form" Line Location: DX2+0
Function Call: WRITE	Prompt: !!,SEP," MEASUREMENTS ",SEP Line Location: MSR+1
Function Call: WRITE	Prompt: !!,"Does this form contain measurements" Line Location: MSR1+0
Function Call: WRITE	Prompt: !!,SEP Line Location: MSR1+3
Function Call: WRITE	Prompt: !,"Specify default measurement units ->" Line Location: MSR2+0
Function Call: WRITE	Prompt: !!,"Will the Nurse Check-in Module be used with this form" Line Location: MSR3+0
Function Call: WRITE	Prompt: !!,"Specify the max length of the Chief Complaint narrative allowed on this form" Line Location: MSR4+0
Function Call: WRITE	Prompt: !!,SEP," POVS AND PROBLEMS ",SEP Line Location: POV+1
Function Call: WRITE	Prompt: !!,"Does this form contain POVs and/or Active Problems" Line Location: POV1+0
Function Call: WRITE	Prompt: !!,SEP Line Location: POV1+2
Function Call: WRITE	Prompt: !!,"Count the number of PROBLEM/POV mail merge fields on this form" Line Location: POVN+1
Function Call: WRITE	Prompt: !!,"If the Onset Date has been stored in RPMS,",!,"want to display it with the POV/Problem" Line Location: POV2+0
Function Call: WRITE	Prompt: !!,"If the Visit Control # (VCN) has been stored in RPMS,",!,"want to display it with the POV/Problem" Line Location: POV3+0
Function Call: WRITE	Prompt: !!,"Show only PROBLEMS (no POVs) in the POV/Problem list" Line Location: POV4+0
Function Call: WRITE	Prompt: !!,"Want to block the display of ICD codes entered at other facilities" Line Location: POV5+0
Function Call: WRITE	Prompt: !!,DIR("?") Line Location: POV6+1
Function Call: WRITE	Prompt: !!,SEP," PRESCRIPTIONS ",SEP Line Location: RX+1
Function Call: WRITE	Prompt: !!,"Does this form contain a Prescription List" Line Location: RX1+0
Function Call: WRITE	Prompt: !!,SEP Line Location: RX1+2
Function Call: WRITE	Prompt: !!,"Count the number of Rx mail merge fields on this form" Line Location: RXN+1
Function Call: WRITE	Prompt: !!,"You can limit the time that a drug is displayed beyond it run-out date" Line Location: RX2+0
Function Call: WRITE	Prompt: !!,"Want to display only active prescriptions" Line Location: RX3+0
Function Call: WRITE	Prompt: !!,"Want to hide redundant prescriptions" Line Location: RX4+0
Function Call: WRITE	Prompt: !!,"You can now specify the max length of the RX and its components." Line Location: RX4+8
Function Call: WRITE	Prompt: !!,"Want to hide the Rx reminder note" Line Location: RX9+0
Function Call: WRITE	Prompt: !!,"Want to show the prescribing provider" Line Location: RX10+0
Function Call: WRITE	Prompt: !!,"Want to display the Rx issue date" Line Location: RX11+0
Function Call: WRITE	Prompt: !!,"Want to show chronic meds only" Line Location: RX12+0
Function Call: WRITE	Prompt: !!,"Want to sort the list by 'chronic' & 'incidental' Rxs" Line Location: RX13+0
Function Call: WRITE	Prompt: !!,SEP," HEALTH MAINTENANCE REMINDERS ",SEP Line Location: HMR+1
Function Call: WRITE	Prompt: !!,"Does this form contain reminders" Line Location: HMR1+0
Function Call: WRITE	Prompt: !!,SEP Line Location: HMR1+3
Function Call: WRITE	Prompt: !!,"Want to use the new surveillance list - !RECOMMENDED!" Line Location: HMR2+0
Function Call: WRITE	Prompt: !!,"When displaying reminders, hide last date & result" Line Location: HMR3+0
Function Call: WRITE	Prompt: !!,"When displaying reminders, hide forecasts if not 'due now'" Line Location: HMR4+0
Function Call: WRITE	Prompt: !!,"You can hide 'refusals' that are old or 'stale'." Line Location: HMR5+0
Function Call: WRITE	Prompt: !!,"Include patient education topics in the refusal list" Line Location: HMR6+0
Function Call: WRITE	Prompt: !!,"Are you sure you want to completely delete this template" Line Location: DT+3
Function Call: WRITE	Prompt: !,"Nothing deleted..." Line Location: DT+5
Function Call: WRITE	Prompt: !,"Template deleted" Line Location: DT+8
Function Call: WRITE	Prompt: "PCC+ Template: " Line Location: LKUP+4
Routine Call	DIE Line Location: TMN1+14 DIE+8
Routine Call	DIC Line Location: TMN1+11 LKUP+5
Routine Call	DIR Line Location: OLD+2 NAME1+1 TMN1+4 DX2+4 MSR2+4 MSR4+3 POVN+5 POV6+5 RXN+5 RX2+4 RX5+3 RX6+3 RX8+3 HMR5+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VEN(7.41 - [#19707.41]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSRX("AD"	INIT+3
^VEN(7.41 - [#19707.41]	OLD+4, NAME1+5, TMN1+2, TMN1+3, TMN1+14, DX2+2, MSR2+2, MSR3+2, MSR4+2, POVN+3 , POV2+2, POV3+2, POV4+2, POV5+2, POV6+3, RXN+3, RX2+2, RX3+2, RX4+2, RX5+1 , RX6+1, RX8+1, RX9+2, RX10+2, RX11+2, RX12+2, RX13+2, HMR2+2, HMR3+2, HMR4+2 , HMR5+3, HMR6+2, DT+2, DIE+8
^VEN(7.5 - [#19707.5]	INIT

Label References

Name	Line Occurrences
$$LKUP	OLD+4
DIE	DXDIE, MSRDIE, POVDIE, RXDIE, HMRDIE
DT	OLD+5
DX	DX2+5, MSR1+3
DXDIE	DX1+3
FIN	NAME1+2, TMN1+6, TMN1+11, DX1+2, DX2+6, MSR1+4, MSR2+7, MSR3+6, MSR4+5, POV1+3 , POVN+7, POV2+6, POV3+6, POV4+6, POV5+6, POV6+7, RX1+3, RXN+7, RX2+6, RX3+6 , RX4+6, RX5+5, RX6+5, RX8+5, RX9+6, RX10+6, RX11+6, RX12+6, RX13+5, HMR1+4 , HMR2+6, HMR3+6, HMR4+6, HMR5+7, HMR6+5
HMN	NAME1+6
HMR1	HMR2+5
HMR2	HMR3+5
HMR3	HMR4+5
HMR4	HMR5+6
HMR5	HMR6+4
HMRDIE	HMR1+5
MSR	POV1+2
MSR1	MSR2+6
MSR2	MSR3+5
MSR3	MSR4+4
MSRDIE	MSR1+5, MSR3+8
NAME1	NAME1+3, NAME1+7, TMN1+5
OLD	OLD+5
POV	MSR2+5, RX1+2
POV1	POVN+6
POV2	POV3+5
POV3	POV4+5
POV4	POV5+5
POV5	POV6+6
POVDIE	POV1+4
POVN	POV2+5
RX	HMR1+3
RX1	RXN+6
RX10	RX11+5
RX11	RX12+5
RX12	RX13+4
RX2	RX3+5, RX5+4
RX3	RX4+5
RX5	RX6+4
RX6	RX8+4
RX8	RX9+5
RX9	RX10+5
RXDIE	RX1+4
RXN	RX2+5
TEDIT	OLD+6
TMN1	TMN1+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	VENPCCIT+5~, TMN1+2, TMN1+3, DX1+1, DX1+3, DX2+2, DX2+3, MSR1+1, MSR1+5, MSR1+6 , MSR2+2, MSR3+1, MSR3+2, MSR3+3, MSR3+7, MSR3+8, MSR4+2, POV1+1, POV1+4, POV1+5* , POVN+3, POVN+4, POV2+1, POV2+2, POV2+3, POV2+7, POV3+1, POV3+2, POV3+3, POV3+7 , POV4+1, POV4+2, POV4+3, POV4+7, POV5+1, POV5+2, POV5+3, POV5+7, POV6+3, RX1+1 , RX1+4, RX1+5, RXN+3, RXN+4, RX2+2, RX3+1, RX3+2, RX3+3, RX3+7, RX4+1 , RX4+2, RX4+3, RX4+7, RX5+1, RX6+1, RX8+1, RX9+1, RX9+2, RX9+3, RX9+7 , RX10+1, RX10+2, RX10+3, RX10+7, RX11+1, RX11+2, RX11+3, RX11+7, RX12+1, RX12+2 , RX12+3, RX12+7, RX13+1, RX13+2, RX13+6, HMR1+1, HMR1+5, HMR1+6, HMR2+1, HMR2+2* , HMR2+3, HMR2+7, HMR3+1, HMR3+2, HMR3+3, HMR3+7, HMR4+1, HMR4+2, HMR4+3, HMR4+7 , HMR5+3, HMR6+1, HMR6+2, HMR6+6, DT+3*, DT+5
%Y	VENPCCIT+5~, DX1+2, MSR1+3, MSR1+4, MSR3+5, MSR3+6, POV1+2, POV1+3, POV2+5, POV2+6 , POV3+5, POV3+6, POV4+5, POV4+6, POV5+5, POV5+6, RX1+2, RX1+3, RX3+5, RX3+6 , RX4+5, RX4+6, RX9+5, RX9+6, RX10+5, RX10+6, RX11+5, RX11+6, RX12+5, RX12+6 , RX13+4, RX13+5, HMR1+3, HMR1+4, HMR2+5, HMR2+6, HMR3+5, HMR3+6, HMR4+5, HMR4+6 , HMR6+4, HMR6+5
CIEN	LKUP+1~
DA	VENPCCIT+5~, TMN1+12*, DT~, DT+2, DIE~, DIE+8
DIC	VENPCCIT+5~, TMN1+9, TMN1+13, DT+1~, LKUP+1~, LKUP+2
DIC(0	TMN1+9, LKUP+3
DIE	TMN1+13, DIE+1~, DIE+2
DIK	VENPCCIT+5~, DT+1~, DT+6*
DIR	VENPCCIT+5~, OLD!, OLD+2!, DX2+1!, MSR2+1!, MSR4+1!, POVN+2!, POV6!, RXN+2!, RX2+1! , RX5!, RX6!, RX8!, HMR5+1!
DIR("?"	NAME1, NAME1+3, TMN1, TMN1+7, POV6*, POV6+1
DIR("A"	OLD+1, NAME1+1, TMN1+1, DX2+1, MSR2+1, MSR4+1, POVN+2, POV6+2, RXN+2, RX2+1 , RX5, RX6, RX8, HMR5+2
DIR("B"	TMN1+3, DX2+1, DX2+2, DX2+3, MSR2+1, MSR2+2, MSR2+3, MSR4+1, MSR4+2, POVN+2 , POVN+3, POVN+4, POV6+2, POV6+3, POV6+4, RXN+2, RXN+3, RXN+4, RX2+1, RX2+2 , RX2+3, RX5, RX5+1, RX5+2, RX6, RX6+1, RX6+2, RX8, RX8+1, RX8+2 , HMR5+2, HMR5+3, HMR5+4*
DIR(0	OLD+1, NAME1+1, TMN1+1, DX2+1, MSR2+1, MSR4+1, POVN+2, POV6+2, RXN+2, RX2+1 , RX5, RX6, RX8, HMR5+1
>> DLAYGO	TMN1+9*
DR	TMN1+13, DIE+1~, DIE+3, DIE+5, DIE+6
DT	INIT+3
FLD	VENPCCIT+5~, TMN1+15!, DIE+3, DIE+4, DIE+6, DIE+9!
FLD(	OLD+4, NAME1+4, HMN, TMN1+2, TMN1+8, TMN1+10, DX1+3, DX2+3, DX2+7, MSR1+6* , MSR2+3, MSR2+8, MSR3+3, MSR3+7, MSR3+8, MSR4+6, POV1+5, POVN+4, POVN+8, POV2+3 , POV2+7, POV3+3, POV3+7, POV4+3, POV4+7, POV5+3, POV5+7, POV6+4, POV6+8, RX1+5 , RXN+4, RXN+8, RX2+3, RX2+7, RX3+3, RX3+7, RX4+3, RX4+7, RX5+2, RX5+6* , RX6+2, RX6+6, RX8+2, RX8+6, RX9+3, RX9+7, RX10+3, RX10+7, RX11+3, RX11+7* , RX12+3, RX12+7, RX13+6, HMR1+6, HMR2+3, HMR2+7, HMR3+3, HMR3+7, HMR4+3, HMR4+7 , HMR5+4, HMR5+8, HMR6+6, DIE+4
GGIEN	VENPCCIT+5~
KIEN	VENPCCIT+5~
KNM	VENPCCIT+5~
RXFLAG	VENPCCIT+5~, INIT+2, INIT+3
SEP	VENPCCIT+5~, INIT+1*, DX+1, MSR+1, MSR1+3, POV+1, POV1+2, RX+1, RX1+2, HMR+1 , HMR1+3
TIEN	VENPCCIT+5~, OLD+4, OLD+5, TMN1+12, TMN1+14, DX2+2, DXDIE, MSR2+2, MSR3+2, MSR4+2 , MSRDIE, POVN+3, POV2+2, POV3+2, POV4+2, POV5+2, POV6+3, POVDIE, RXN+3, RX2+2 , RX3+2, RX4+2, RX5+1, RX6+1, RX8+1, RX9+2, RX10+2, RX11+2, RX12+2, RX13+2 , RXDIE, HMR2+2, HMR3+2, HMR4+2, HMR5+3, HMR6+2, HMRDIE, LKUP+6, LKUP+7, LKUP+9
TMN	VENPCCIT+5~, TMN1+8*
TNM	VENPCCIT+5~, OLD+4, NAME1+4, NAME1+5
U	INIT, OLD+4, TMN1+3, TMN1+5, DX2+2, DX2+5, MSR1+3, MSR2+2, MSR2+6, MSR3+2 , MSR3+5, MSR4+2, MSR4+4, POV1+2, POVN+3, POVN+6, POV2+2, POV2+5, POV3+2, POV3+5 , POV4+2, POV4+5, POV5+2, POV5+5, POV6+3, POV6+6, RX1+2, RXN+3, RXN+6, RX2+2 , RX2+5, RX3+2, RX3+5, RX4+2, RX4+5, RX5+1, RX5+4, RX6+1, RX6+4, RX8+1 , RX8+4, RX9+2, RX9+5, RX10+2, RX10+5, RX11+2, RX11+5, RX12+2, RX12+5, RX13+2 , RX13+4, HMR1+3, HMR2+2, HMR2+5, HMR3+2, HMR3+5, HMR4+2, HMR4+5, HMR5+3, HMR5+6 , HMR6+2, HMR6+4
VER25	VENPCCIT+5~, INIT*
X	VENPCCIT+5~, INIT+3, NAME1+3, TMN1+10*, LKUP+1~
Y	VENPCCIT+5~, OLD!, OLD+3, OLD+4, OLD+5, OLD+6, NAME1+2, NAME1+3, NAME1+4, TMN1+5 , TMN1+6, TMN1+7, TMN1+8, TMN1+11, TMN1+12, DX2+5, DX2+6, DX2+7, MSR2+5, MSR2+6 , MSR2+7, MSR2+8, MSR4+4, MSR4+5, MSR4+6, POVN+6, POVN+7, POVN+8, POV6+6, POV6+7 , POV6+8, RXN+6, RXN+7, RXN+8, RX2+5, RX2+6, RX2+7, RX5+4, RX5+5, RX5+6 , RX6+4, RX6+5, RX6+6, RX8+4, RX8+5, RX8+6, HMR5+6, HMR5+7, HMR5+8, LKUP+1~ , LKUP+6, LKUP+7
Z	VENPCCIT+5~, NAME1+5, NAME1+6, MSR3+3, POV2+3, POV3+3, POV4+3, POV5+3, RX3+3, RX4+3 , RX9+3, RX10+3, RX11+3, RX12+3, HMR2+3, HMR3+3, HMR4+3*

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCIT

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:

Name	Comments	DBIA/ICR reference
MSRDIE
POVN	; MAX NO OF POVS ; PATCHED BY GIS/OIT 10/15/05 ; PCC+ 2.5 PATCH 1
MSR	; MEASUREMENTS
DX1
LKUP()	; EP - LOOK UP A PCC+ TEMPLATE
DX	; ICD PREFERENCES ; PATCHED BY GIS/OIT 10/15/05 ; PCC+ 2.5 PATCH 1
MSR4
MSR2
MSR3
TMN	; TEMPLATE MNEMONIC
MSR1
HMR3
TMN1
OLD
HMR2
POV	; POVS AND PROBLEMS
RX12
RX	; PRESCRIPTIONS
HMN
HMR	; EP - HEALTH MAINTENANCE REMINDERS
RX9
RX8
INIT
DIE(DA)	; EP - UPDATE FILEMAN FIELDS
RX1
RX3
RX2
RX5
RX4
RX6
HMRDIE
RX11
RX10
RX13
RXN	; MAX RXS ; PATCHED BY GIS/OIT 10/15/05 ; PCC+ 2.5 PATCH 1
HMR4
DX2
POVDIE
DT(DA)	; EP - DELETE A TEMPLATE
NAME1
FIN
TEDIT	; EP - EDIT TEMPLATE PROPERTIES ; TIEN MUST EXIT
DXDIE
NAME	; TEMPLATE NAME
RXDIE
POV5
POV4
HMR1
POV6
POV1
HMR6
POV3
POV2
HMR5