Routine: VENPCCG

Package	Total	Call Graph
VA Fileman	4	^DIC YN^DICN ^DIE ^DIR
PCC New Encounter Form	3	ST^VENPCCG1 FILE^VENPCCG2 $$CFG^VENPCCU
IHS VA Utilities	2	^XBCLS ^XBFMK

Package	Total	Caller Graph
PCC New Encounter Form	1	VENPCC1P

Entry Points

Name	Comments	DBIA/ICR reference
A	; EP-DRIVER
GETPRV()	; EP-RETURN THE IEN OF THE ACTUAL OR GENERIC PROVIDER
DATES	; GET DATES FOR REPORT
END	;
DEPT	; FILTER RESULTS BY DEPARTMENT
NEWLIST	; EP - NEW WAY TO SAVE DX PREFERENCES
GP	; EP-GET A GENERIC PROVIDER
AC
T1	; SET FILTER FLAGS
AP
PRV	;
CONF
TYPE	;
CLASS	;

External References

Name	Field # of Occurrence
^DIC	AP+3, AC, DEPT+5, GETPRV+10, GP+6, NEWLIST+10
YN^DICN	CONF+2, NEWLIST+6
^DIE	GETPRV+13, GETPRV+23
^DIR	DATES+1, TYPE+4, DEPT+2
ST^VENPCCG1	CONF+3
FILE^VENPCCG2	CONF+4
$$CFG^VENPCCU	A+4, GETPRV+2
^XBCLS	A+6
^XBFMK	NEWLIST+7, NEWLIST+10, NEWLIST+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Extract most commonly used Diagnoses...",!! Line Location: A+7
Function Call: WRITE	Prompt: !,"No provider specified. Request terminated..." Line Location: T1+12
Function Call: WRITE	Prompt: !!,"This will take a while..." Line Location: CONF+0
Function Call: WRITE	Prompt: !,"BYE!" Line Location: CONF+2
Function Call: WRITE	Prompt: ! Line Location: DEPT+2
Function Call: WRITE	Prompt: !!,"There is no generic provider listed for this institution...",!,"You must enter one now." Line Location: GETPRV+4
Function Call: WRITE	Prompt: !,"Enter a name like 'PIMC,GENERIC PROVIDER' OR 'CROWNPOINT,GENERIC PROVIDER'" Line Location: GETPRV+5
Function Call: WRITE	Prompt: !,"You can also enter '??' or a partial name like 'PIMC",!,"to see if a suitable name already exists." Line Location: GETPRV+6
Function Call: WRITE	Prompt: !,"If you are asked to enter INITIALS, just type them in; e.g., 'GPP'." Line Location: GETPRV+7
Function Call: WRITE	Prompt: !,"If you are asked to enter a mail code, press the return key.",! Line Location: GETPRV+8
Function Call: WRITE	Prompt: !!,"Preferences will be assigned",!,"to the Default Institutional Provider: ",$P($G(^VA(200,PIEN,0)),U) Line Location: GETPRV+17
Function Call: WRITE	Prompt: !!,"There is no generic provider listed for this clinic/department...",!,"You must enter one now." Line Location: GETPRV+20
Function Call: WRITE	Prompt: !!,"Preferred diagnoses will be assigned to ",$P($G(^VA(200,PIEN,0)),U) Line Location: GETPRV+27
Function Call: WRITE	Prompt: !!,"Preferred diagnoses will be assigned to ",$P($G(^VA(200,PIEN,0)),U) Line Location: GETPRV+31
Function Call: WRITE	Prompt: !!,"You must assign a generic provider to represent this group of providers..." Line Location: GETPRV+33
Function Call: WRITE	Prompt: !!,"Enter a name like 'PIMC,PEDIATRICIAN' OR 'CROWNPOINT,FAMILY DOCTOR'" Line Location: GP+1
Function Call: WRITE	Prompt: !,"You can also enter '??' or a partial name like 'PIMC,'",!,"to see if a suitable name already exists." Line Location: GP+2
Function Call: WRITE	Prompt: !,"If you are asked to enter INITIALS, just type them in; e.g., 'FDC'." Line Location: GP+3
Function Call: WRITE	Prompt: !,"If you are asked to enter a mail code, press the return key.",! Line Location: GP+4
Function Call: WRITE	Prompt: !,"NOTE: In the future, this generic provider can be assigned to other PCC+ forms or clincs",!! Line Location: GP+8
Function Call: WRITE	Prompt: !! Line Location: NEWLIST+2
Function Call: WRITE	Prompt: ?20,"*** WARNING **" Line Location: NEWLIST+3
Function Call: WRITE	Prompt: !,"This procedure may delete exsiting preferences of selected provider(s)!!!" Line Location: NEWLIST+4
Function Call: WRITE	Prompt: !,"Do you want to proceed" Line Location: NEWLIST+5
Routine Call	DIE Line Location: GETPRV+13 GETPRV+23
Routine Call	DIC Line Location: AP+3 AC DEPT+5 GETPRV+10 GP+6 NEWLIST+10
Routine Call	DIR Line Location: DATES+1 TYPE+4 DEPT+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VEN(7.33 - [#19707.33]	Classic Fileman Calls
^VEN(7.5 - [#19707.5]	Classic Fileman Calls
^VEN(7.95 - [#19707.95]	Classic Fileman Calls
^VA(200 - [#200]	Classic Fileman Calls
^DIC(7 - [#7]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(9000010.06	AP+2
^VA(200 - [#200]	GETPRV+17, GETPRV+27, GETPRV+31
^VEN(7.5 - [#19707.5]	A+5, GETPRV+3, GETPRV+13, GETPRV+16
^VEN(7.95 - [#19707.95]	GETPRV+19, GETPRV+23, GETPRV+26

Label References

Name	Line Occurrences
$$GETPRV	T1+12
A	NEWLIST+13
AC	AC+3
AP	AP+7
CLASS	TYPE+7
DEPT	T1+11
GP	GETPRV+21, GETPRV+34
PRV	TYPE+8
TYPE	TYPE+7, TYPE+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	CONF+2, AP+2, NEWLIST+1~, NEWLIST+6*, NEWLIST+7
%Q	A+1~
%T	A+1~
%Y	A+1~
AGE	A+1~
AGEBUK	A+1~
AGEGRP	A+1~
AGESEX	A+1~
AP	A+1~
BD	A+1~, DATES+1*, T1+2
C	A+1~
CC	A+1~
CFIGIEN	A+1~, A+4, A+5, GETPRV+1~, GETPRV+2, GETPRV+3, GETPRV+12, GETPRV+16
CLASS	CLASS+1~
DA	AP+4!, AC!, DEPT+2!, GETPRV+12, GETPRV+13, GETPRV+22, GETPRV+23
DESALL	A+1~
DIC	PRV+1~, AP+2, AP+4!, CLASS+1~, AC!, DEPT+1~, DEPT+4, GETPRV+9, GP+5, NEWLIST+1~ , NEWLIST+9
DIC("A"	AP, AC, DEPT+4, GETPRV+9, GP+5, NEWLIST+8
DIC("B"	NEWLIST+8*
DIC(0	AP+1, AC, DEPT+4, GETPRV+9, GP+5, NEWLIST+9
>> DIE	GETPRV+12, GETPRV+22
DIR	A+2~, DATES+1!, TYPE+1!, DEPT+1~, DEPT+2!
DIR("A"	DATES+1, TYPE+3, DEPT+2*
DIR("B"	DEPT+2*
DIR(0	DATES+1, TYPE+2, DEPT+2*
>> DIRUT	TYPE+5
>> DLAYGO	GETPRV+9, GP+5, NEWLIST+9*
>> DLOUT	DATES+1
DOB	A+2~
>> DR	GETPRV+12, GETPRV+22
DT	DATES+2
DUB	A+1~
>> DUOUT	DATES+1
DXPRV	A+2~, T1+12*
ED	A+1~, DATES+2*, T1+2
FL	A+2~
I	A+1~
ICD	A+1~
ICDPTR	A+1~
MORE	PRV+1~, PRV+2, AP, AP+7, CLASS+1~, AC, AC+3
MOST	A+1~
MOSTPNP	A+1~
NARR	A+2~
NEWDXP	T1+12, CONF+1, NEWLIST+1~, NEWLIST+11*
PAT	A+2~
PATH	A+1~, A+5*
PIEN	GETPRV+1~, GETPRV+2, GETPRV+3, GETPRV+11, GETPRV+12, GETPRV+15, GETPRV+16, GETPRV+17, GETPRV+19, GETPRV+21 , GETPRV+22, GETPRV+25, GETPRV+26, GETPRV+27, GETPRV+29, GETPRV+30, GETPRV+31, GETPRV+35, GP+7
PNP	A+2~
POP	A+2~
PROVFLG	A+2~
PROVLG	A+2~
PRV	PRV+1~
SEX	A+2~
TMP	A+1~, A+3, T1+2, T1+4, T1+5, T1+8, T1+9*
TOTPN	A+2~
TYPE	A+2~, TYPE+6*, TYPE+7, TYPE+8, T1+3, T1+7, GETPRV+3, GETPRV+15, GETPRV+29
U	AP+2, GETPRV+3, GETPRV+16, GETPRV+17, GETPRV+19, GETPRV+26, GETPRV+27, GETPRV+31
VD	A+2~
VDFN	A+2~
>> VEN("PC"	TYPE+7!, T1+5, AC+1, AC+2
>> VEN("PRV"	TYPE+8!, T1+9, AP+5, AP+6, GETPRV+29, GETPRV+30
VENDEPT	A+1~, DEPT+6*, GETPRV+3, GETPRV+15, GETPRV+19, GETPRV+22, GETPRV+25, GETPRV+26
VENFLNO	A+2~
VENT	A+2~
VIS	A+2~
X	PRV+1~, CLASS+1~, DEPT+1~, NEWLIST+1~
Y	DATES+1, TYPE+6, PRV+1~, AP+4, AP+5, CLASS+1~, AC, AC+1, DEPT+1~, DEPT+3 , DEPT+5, DEPT+6, GETPRV+10, GETPRV+11, GP+6, GP+7, NEWLIST+1~, NEWLIST+10, NEWLIST+11
Z	PRV+1~

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCG

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: