Routine: VENPCC1P

Package	Total	Call Graph
PCC New Encounter Form	6	$$CLASS^VENPCC1B NEWLIST^VENPCCG ST^VENPCCG1 FILE^VENPCCG2 (,VUE)^VENPCCMG ($$CFG,$$ICD,$$PRV1)^VENPCCU
VA Fileman	5	^%DT ^DIC YN^DICN ^DIE (,IX)^DIK
IHS VA Utilities	1	^XBFMK

Package	Total	Caller Graph
PCC New Encounter Form	2	VENPCC1G VENPCCMD

Entry Points

Name	Comments	DBIA/ICR reference
XCLONE
CONVERT	; EP - CONVERT THE OLD ICD PREFERENCES FILE TO THE NEW ONE
PRVLKUP(OUT)	; EP - RPC (VEN PCC+ GET ACTIVE PROVIDERS) ; GIVEN A LOOKUP VALUE, RETURN THE ADO RECORD GENERATION STRING TO VIEW PROVIDERS
ICD(OUT,IN)	; EP - RPC (VEN PCC+ SUBMIT ICD CRITERIA) ; SUBMIT ICD PREFERENCE CRITERIA AND RETURN THE TABLE GENERATION STRING ; START DATE\|ASSIGNED PROVIDER\|ICD GRP\|CLINIC STOP\|POLLED PROVIDERS\|POLLED DISCIPLINE
NCLONE
DEL	; EP-DELETE A USER'S PREFERENCES
POLL
ICDITEMS(OUT,IN)	; EP RPC(VEN PCC+ GET ICD ITEMS) ; THE INPUT PARAM 'IN' HAST THE FORMAT "PROVIDER IEN,ICD PREFERENCE GROUP IEN"
UID	; EP - FOR GENERATING THE ARRAY
APRV(AP)	; EP-GET THE ASSIGNED PROVIDER
GED	; EP - OPTION (VEN GLOBAL PRV PREF EDIT (NEW))
DISC(OUT)	; EP - RPC (VEN PCC+ GET DISCIPLINES)
GEN	; EP-GENERATE A NEW SET OF PREFERENCES BASED ON USER HX
PL	; EP - GLOBAL LIST OF ICD PREFERENCES (NEW))
OLDCLONE	; CLONE OLD ICD PREFS
T1	; SET FILTER FLAGS
STUFF	; EP-GIVEN THE OLD ICD PREFERENCES IEN, STUFF AN ENTRY INTO THE NEW ICD ITEM FILE
ILIST(PARAM,IENS,MAX,OUT,TOT)	; EP - PRINT THE AVAILABLE ICD PREFERENCE LISTS: ONE FOR EACH USER/GROUP PAIR
ICDGRPS(OUT)	; EP - RPC (VEN PCC+ GET ICD GROUPS)
CSTOPS(OUT)	; EP - RPC (VEN PCC+ GET CLINIC STOPS)
CLONE	; EP-CLONE A USERS PREFERENCES
AC(DA)	; EP - AUTO-POPULTAE THE UID FIELD OF THE ICD ITEM FILE ; PATCHED BY GIS/OIT 10/6/05 ; PCC+ 2.5 PATCH 5
ICDLIST(OUT)	; EP - RPC(VEN PCC+ GET ICD LISTS)
DX(DEFEF,PRV,DFN,DEPTIEN)	; EP - POPULATE THE DX PREFERENCE LIST
CIDC(CODE)	; EP-CONVERT ICD CODE TO BRIEF ICD TEXT

External References

Name	Field # of Occurrence
^%DT	ICD+11
^DIC	CONVERT+6, STUFF+14, CLONE+4, CLONE+9, OLDCLONE+4, NCLONE+5, DEL+4, APRV+5
YN^DICN	DEL+8
^DIE	CONVERT+14, STUFF+17, STUFF+22
^DIK	DEL+10
IX^DIK	OLDCLONE+8
$$CLASS^VENPCC1B	DX+20
NEWLIST^VENPCCG	GEN+1
ST^VENPCCG1	POLL
FILE^VENPCCG2	POLL+1
^VENPCCMG	GED+3
VUE^VENPCCMG	PL+3
$$CFG^VENPCCU	DX+13, ICD+9
$$ICD^VENPCCU	CIDC+2
$$PRV1^VENPCCU	ICD+30
^XBFMK	CONVERT+12, CONVERT+15, CLONE+4, CLONE+6, CLONE+9, XCLONE, DEL+4, DEL+6, DEL+8, DEL+11 , APRV+5, APRV+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter the name of the provider whose preferences are to be cloned ->" Line Location: CLONE+2
Function Call: WRITE	Prompt: !!,"This provider has no ICD preferences. Request terminated..." Line Location: CLONE+6
Function Call: WRITE	Prompt: !!,"Enter the name of the provider who will receive the preferences ->" Line Location: CLONE+7
Function Call: WRITE	Prompt: !!,"Cloning preferences...Please be patient." Line Location: CLONE+11
Function Call: WRITE	Prompt: !,"Done!" Line Location: XCLONE+1
Function Call: WRITE	Prompt: !!,"Enter the name of the provider whose preferences are to be deleted ->" Line Location: DEL+2
Function Call: WRITE	Prompt: !!,"This provider has no ICD preferences. Request terminated..." Line Location: DEL+6
Function Call: WRITE	Prompt: !,"Are you sure you want to delete these preferences" Line Location: DEL+7
Function Call: WRITE	Prompt: !!,"Deleting entries...Please be patient" Line Location: DEL+9
Function Call: WRITE	Prompt: !,"Done" Line Location: DEL+12
Routine Call	DIE Line Location: CONVERT+14 STUFF+17 STUFF+22
Routine Call	DIC Line Location: CONVERT+6 STUFF+14 CLONE+4 CLONE+9 OLDCLONE+4 NCLONE+5 DEL+4 APRV+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(19 - [#19]	Classic Fileman Calls
^VEN(7.1 - [#19707.1]	Classic Fileman Calls
^VEN(7.33 - [#19707.33]	Classic Fileman Calls
^VEN(7.34 - [#19707.34]	Classic Fileman Calls
^VA(200 - [#200]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(	ICD+7
^DIC(19 - [#19]	CONVERT+12, CONVERT+14
^ICD9 - [#80]	CIDC+3
^VA(200 - [#200]	STUFF+4, APRV+2
^VEN(	DEL+10
^VEN(7.1 - [#19707.1]	CONVERT+11, STUFF+3, CLONE+6, OLDCLONE+2, OLDCLONE+6, OLDCLONE+7, DEL+6
^VEN(7.33 - [#19707.33]	DX+3, DX+16, CONVERT+2, ICD+14, ICDITEMS+5
^VEN(7.34 - [#19707.34]	DX+5, DX+9, DX+14, DX+17, UID+1, UID+2, UID+3, UID+5, UID+13, STUFF+11 , STUFF+17, STUFF+22, CLONE+6, CLONE+12, NCLONE+1, NCLONE+2, NCLONE+3, NCLONE+9, NCLONE+10, DEL+6 , AC+2, POLL+2, ICDITEMS+4, ILIST+3, ILIST+4
^VEN(7.41 - [#19707.41]	DX+2, DX+23
^VEN(7.5 - [#19707.5]	DX+13
^VEN(7.95 - [#19707.95]	DX+8

Label References

Name	Line Occurrences
$$APRV	T1+12
NCLONE	CLONE+12
STUFF	CONVERT+11
XCLONE	OLDCLONE+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	DX+1~, DX+5, DX+6, DX+8, DX+9, DX+10, DX+14, DX+15, DX+17, DX+18 , STUFF+20, STUFF+21, CLONE+1~, NCLONE+7, NCLONE+8, NCLONE+9, DEL+1~, DEL+8, ICD+3~, ICD+6* , ICD+7, T1+10, T1+11, T1+12, POLL+2*, APRV+1, APRV+2
%DT	ICD+3~, ICD+11*
%Y	DEL+1~
AF	STUFF+2~
AGE	ICD+5~
AGEBUK	ICD+5~
AGEGRP	ICD+5~
AGESEX	ICD+5~
AM	STUFF+2~
AP	ICD+5~, APRV~, APRV+4, APRV+6*, APRV+8
B	ICD+3~, ICD+10*, ICD+11, ICD+13, ICD+15, ICD+17, ICD+26, T1+10, T1+11
BD	ICD+3~, ICD+12*, T1+1
CC	ICD+5~
CFIGIEN	ICD+4~, ICD+9*
CHLD	STUFF+2~
CLASS	DX+1~, DX+20*, DX+21
CODE	DX+1~, UID+6*, CIDC~, CIDC+2
CODE1	STUFF+1~, STUFF+5*, STUFF+6, STUFF+7
CODE2	STUFF+1~, STUFF+10*
CPV	DX+1~, DX+8*, DX+9, DX+10
CSIEN	ICD+3~
DA	CONVERT+1~, CONVERT+12, CONVERT+14, STUFF+11, STUFF+12, STUFF+15, STUFF+19, STUFF+22, CLONE+1~, OLDCLONE+8 , DEL+1~, DEL+10, AC~, AC+2, ILIST+1~, ILIST+4
DEFEF	DX~, DX+2, DX+23
DEPTIEN	DX~, DX+8
DESALL	ICD+5~
DFN	DX~, DX+20
DIC	CONVERT+1~, CONVERT+4, CONVERT+10, CLONE+1~, CLONE+3, CLONE+8, OLDCLONE+1, NCLONE, DEL+1~, DEL+3* , APRV+3~, APRV+4*
DIC("A"	CLONE+3, CLONE+8, DEL+3*
DIC(0	CONVERT+4, CONVERT+10, CLONE+3, CLONE+8, OLDCLONE+1, NCLONE, DEL+3, APRV+4
DIE	CONVERT+1~, CONVERT+10, CONVERT+13
DIK	OLDCLONE+1, DEL+1~, DEL+10
DISC	ICD+3~
>> DLAYGO	CONVERT+4, CONVERT+10, OLDCLONE+1, NCLONE, APRV+4*
DOB	ICD+5~
DR	CONVERT+1~, CONVERT+13, STUFF+16, STUFF+21*
DT	ICD+12
DX	DX+1~, UID+8!
DX(	UID+9*, UID+11, UID+12
DXPRV	ICD+3~, T1+12*, T1+13
ED	ICD+3~, ICD+12*, T1+1
FL	ICD+4~
FN	DEL+1~, DEL+10*
GIEN	DX+1~, DX+2, DX+3, DX+5, DX+9, DX+14, DX+16, DX+22, CONVERT+1~, CONVERT+2* , CONVERT+3, CONVERT+7*, CONVERT+9, STUFF+7, ICD+3~
I	ICD+4~, ICD+19, ICD+20, ICD+28, ICD+29
ICD	DX+1~, UID+14*, UID+16, ICD+5~
ICDPTR	ICD+5~
IEN	CONVERT+1~, CONVERT+11, STUFF+3, CLONE+1~, NCLONE+1, NCLONE+2, NCLONE+3
IENS	ILIST~
IIEN	DX+1~, UID+2, UID+3, UID+4, UID+5, UID+6, UID+9, UID+12, UID+13, ILIST+1~ , CIDC+1~, CIDC+2, CIDC+3
IN	ICD~, ICD+11, ICD+13, ICD+15, ICD+17, ICD+26, T1+10, T1+11, ICDITEMS~, ICDITEMS+3* , ICDITEMS+4, ICDITEMS+5
INF	STUFF+2~
IO	ICD+3~
IPV	DX+1~, DX+13*, DX+14, DX+15, DX+17, DX+18
IX	DX+1~, DX+22*, UID+1, STUFF+1~
MAX	ILIST~
MOST	ICD+5~
MOSTPNP	ICD+5~
NAME	STUFF+1~, STUFF+8*
NARR	ICD+5~
NEWDXP	ICD+4~, ICD+13, ICD+14, T1+13
NEWFLAG	GED+1~, GED+2, PL+1~, PL+2
NIEN	CLONE+1~, OLDCLONE+5, OLDCLONE+6, OLDCLONE+7, OLDCLONE+8, NCLONE+6, NCLONE+9, NCLONE+10
OLDDA	CLONE+1~, OLDCLONE+2*, OLDCLONE+6
ORD	DX+1~, DX+23!
ORD(	UID+4, UID+5, UID+6*, UID+9
OUT	ICD~, ICD+6, POLL+3, PRVLKUP~, PRVLKUP+2, CSTOPS~, CSTOPS+1, DISC~, DISC+1, ICDITEMS~ , ICDITEMS+8, ICDGRPS~, ICDGRPS+1, ICDLIST~, ICDLIST+1, ILIST~
P200	ICD+4~, ICD+7*, ICD+30
PARAM	ILIST~
PAT	ICD+5~
PCE	DX+1~, DX+21*, UID+3
PGIEN	ICDITEMS+2~, ICDITEMS+5*, ICDITEMS+6
PIEN	DX+1~, DX+4, DX+6, DX+7, DX+10, DX+12, DX+15, DX+18, DX+22, STUFF+1~ , STUFF+4, STUFF+7, STUFF+13, CLONE+1~, CLONE+5, CLONE+6, CLONE+12, OLDCLONE+2, NCLONE+1, DEL+5 , DEL+6, DEL+10
PNP	ICD+3~
POP	ICD+4~
POS	DX+1~, UID+8, UID+9, UID+10, UID+11, UID+12
PROVFLG	ICD+3~
PRV	DX~, DX+5, DX+6, DX+18, ICD+3~
PRVIEN	ICDITEMS+2~, ICDITEMS+4*, ICDITEMS+6
QUIET	ICD+4~, ICD+6*
RIEN	CLONE+1~, CLONE+10*, OLDCLONE+3, OLDCLONE+7, NCLONE+4, NCLONE+7, NCLONE+8
SEX	ICD+3~
SF	STUFF+2~
SM	STUFF+2~
STG	DX+1~, UID+13, UID+14, CONVERT+1~, STUFF+1~, STUFF+3, STUFF+4, STUFF+5, STUFF+8, STUFF+9 , STUFF+10, AC+1~, AC+2*, AC+3, AC+4, AC+5
STG0	CLONE+1~, NCLONE+2*, NCLONE+7
STG1	CLONE+1~, NCLONE+3*, NCLONE+9
TF	STUFF+2~
TM	STUFF+2~
TMP	UID+16, ICD+4~, ICD+8, T1+1, T1+3, T1+4, T1+7, T1+8*
TORD	DX+1~, DX+23*, UID+4, UID+5, UID+6
TOT	DX+1~, UID+10, UID+14, UID+15, ILIST~
TOTPN	ICD+3~
TXT	DX+1~, UID+5, UID+14, UID+16, CIDC+1~, CIDC+3*, CIDC+4
TYPE	CONVERT+1~, STUFF+1~, STUFF+9, STUFF+20, ICD+4~, ICD+15, ICD+16, ICD+25, T1+2, T1+6
U	DX+2, DX+8, DX+13, DX+21, DX+23, UID+3, UID+5, UID+14, STUFF+5, STUFF+8 , STUFF+9, STUFF+10, STUFF+20, OLDCLONE+4, OLDCLONE+7, NCLONE+7, NCLONE+8, AC+4, AC+5, CIDC+3
UID	DX+1~, DX+22, UID+1, UID+2, UID+6, STUFF+1~, STUFF+7, STUFF+11, CLONE+1~, NCLONE+8 , NCLONE+10, ICD+4~, T1+13, POLL+2, POLL+3, ILIST+1~, ILIST+2, ILIST+3, ILIST+4, ILIST+6
VAR	DX+1~, UID+15*, UID+16
VAR1	DX+1~, UID+15*, UID+16
VD	ICD+4~
VDFN	ICD+4~
VEN	ICD+3~
VEN("PC"	ICD+16, ICD+18!, ICD+21, ICD+22, T1+4
VEN("PRV"	ICD+25, ICD+27!, ICD+31, ICD+32, T1+8
VENDEPT	ICD+4~, T1+10*
VENFLNO	ICD+3~
VENT	ICD+5~
VIS	ICD+5~
X	DX+1~, DX+16, DX+17, UID+8, UID+9, CONVERT+1~, CONVERT+5, STUFF+13, CLONE+1~, OLDCLONE+3 , NCLONE+4, DEL+1~, AC+1~, AC+3, AC+6, ICD+3~, ICD+11, ICD+17, ICD+19, ICD+20 , ICD+26, ICD+28, ICD+29, APRV+3~, APRV+4, ICDITEMS+2~, ICDITEMS+6*, ICDITEMS+7, ICDITEMS+8
XDR	CONVERT+1~
Y	CONVERT+1~, CONVERT+6, CONVERT+7, STUFF+14, STUFF+15, CLONE+1~, CLONE+4, CLONE+5, CLONE+9, CLONE+10 , OLDCLONE+4, OLDCLONE+5, NCLONE+5, NCLONE+6, DEL+1~, DEL+4, DEL+5, AC+1~, AC+4, AC+6 , ICD+3~, ICD+11, ICD+12, ICD+20, ICD+21, ICD+29, ICD+30, ICD+31, APRV+3~, APRV+5 , APRV+6, ICDITEMS+2~, ICDITEMS+7*, ICDITEMS+8
Z	AC+1~, AC+5*, AC+6

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCC1P

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: