Routine: VENPCCM3

Package	Total	Call Graph
VA Fileman	5	^DIC YN^DICN ^DIE ^DIK ^DIR
PCC New Encounter Form	3	$$VAR^VENPCCM1 $$PGRP^VENPCCM2 $$CFG^VENPCCU
IHS VA Utilities	1	^XBFMK

Entry Points

External References

Name	Field # of Occurrence
^DIC	ADD+3, MIS+9, C1+1, DQ+3, CDEL+5
YN^DICN	ADD+2, ADD+7, DUP+4, MIS+7, C1+16, CDEL+8, UNI+10
^DIE	ADDMR+1, C1+4, C1+6, C1+8, C1+10, C1+12, C1+14, C1+17, DQ1+1
^DIK	BAD+2, DUP+5, CDEL+10, CDEL+12
^DIR	ONE+1
$$VAR^VENPCCM1	VAR
$$PGRP^VENPCCM2	PG1, PG2+1, ALL+6
$$CFG^VENPCCU	ALL+3, UNI+2
^XBFMK	ONE+5, ALL+8, FIN+2, CFIN, CDFIN

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"There are no Print Groups entered on Print Server #1",!,"You must enter Print Groups on both print servers" Line Location: PG1+1
Function Call: WRITE	Prompt: !,"There are no Print Groups entered on Print Server #2",!,"You must enter Print Groups on both print servers" Line Location: PG2+2
Function Call: WRITE	Prompt: !,"Print Groups entered on Print Server #2 don't match those on Print Server #1",!,"You must enter identical sets of Print Groups on both Print Servers" Line Location: PG2+3
Function Call: WRITE	Prompt: !,"'",NAME,"' has not been entered on the Print Server yet",!,"You must enter this Print Group before going on" Line Location: MISS+0
Function Call: WRITE	Prompt: !,"Unable to delete ",NAME Line Location: BAD+1
Function Call: WRITE	Prompt: !,NAME," has been deleted from the RPMS Server!!" Line Location: BAD+3
Function Call: WRITE	Prompt: !,"'",NAME,"' has not been regestered on the RPMS server yet!" Line Location: ADD+0
Function Call: WRITE	Prompt: !,"Do you want to do this now" Line Location: ADD+1
Function Call: WRITE	Prompt: !,NAME," entered on the RPMS Server!!" Line Location: ADD+5
Function Call: WRITE	Prompt: !,NAME," has been designated as the Medical Records Print Group" Line Location: ADDMR+1
Function Call: WRITE	Prompt: !,"One moment please..." Line Location: ONE+3
Function Call: WRITE	Prompt: !,"Unable to find an IP address for Print Server #1" Line Location: ALL+3
Function Call: WRITE	Prompt: !,"Checking all templates on Print Server #1......." Line Location: ALL+4
Function Call: WRITE	Prompt: !,"One moment please..." Line Location: ALL+5
Function Call: WRITE	Prompt: "Unable to locate any Print Groups on Print Server #1" Line Location: ALL+6
Function Call: WRITE	Prompt: !,"Checking ",NAME Line Location: ALL+7
Function Call: WRITE	Prompt: !!,"Checking the QUEUE TYPE file..." Line Location: QCK+1
Function Call: WRITE	Prompt: !,"The file VEN EHP QUE TYPE has duplicate records that may cause problems",!,"Want to delete the duplicates" Line Location: DUP+3
Function Call: WRITE	Prompt: !,"Duplicates removed!!" Line Location: DUP+6
Function Call: WRITE	Prompt: !,"The following clinics are not found in the QUEUE TYPE file =>" Line Location: MIS+4
Function Call: WRITE	Prompt: !?5,$P(MISS,U,%) Line Location: MIS+5
Function Call: WRITE	Prompt: !!,"Want to add these to the QUEUE TYPE file" Line Location: MIS+6
Function Call: WRITE	Prompt: !?5,$P(Y,U,2)," added to the QUEUE TYPE file" Line Location: MIS+9
Function Call: WRITE	Prompt: !,"The QUEUE TYPE file has been validated!!" Line Location: FIN+1
Function Call: WRITE	Prompt: !!?20,"*** ADD / EDIT A PCC+ CLINIC ***" Line Location: CADD+2
Function Call: WRITE	Prompt: !!,"To add a new clinic, answer the following questions" Line Location: CADD+3
Function Call: WRITE	Prompt: !,"At any time, you may enter '??' to see the choices",!! Line Location: CADD+4
Function Call: WRITE	Prompt: !,"Enter the name of the new clinic. It should be in the format:",!!?3,"{SITE} - {CLINIC} e.g., ANMC - PEDIATRICS or CROW - DENTAL",! Line Location: CADD+5
Function Call: WRITE	Prompt: !!,"Enter the name of the DEPARTMENT (CLINIC STOP) associated with this clinic" Line Location: C1+3
Function Call: WRITE	Prompt: !!,"Enter the name of this clinic's DEFAULT ENCOUNTER FORM used during check-in" Line Location: C1+5
Function Call: WRITE	Prompt: !!,"Enter the name of this clinic's DEFAULT HEALTH SUMMARY used during check-in" Line Location: C1+7
Function Call: WRITE	Prompt: !!,"Enter the name of this clinic's DEFAULT PROVIDER used during check-in" Line Location: C1+9
Function Call: WRITE	Prompt: !!,"Enter the name of this clinic's HEALTH SUMMARY PRINT GROUP" Line Location: C1+11
Function Call: WRITE	Prompt: !!,"Enter the name of this clinic's ENCOUNTER FORM PRINT GROUP" Line Location: C1+13
Function Call: WRITE	Prompt: !!,"Does this clinic ever require an outguide request during check-in" Line Location: C1+15
Function Call: WRITE	Prompt: !!,"Enter the name of another clinic" Line Location: DQ1+2
Function Call: WRITE	Prompt: !! Line Location: CDEL+2
Function Call: WRITE	Prompt: !,"Are you sure you want to delete ",$P(Y,U,2) Line Location: CDEL+7
Function Call: WRITE	Prompt: !,"Clinic deleted!!" Line Location: CDEL+10
Function Call: WRITE	Prompt: !,"The QUEUE TYPE '",NAME,"' has also been deleted" Line Location: CDEL+12
Function Call: WRITE	Prompt: !,"Invalid unique clinic! Configuration file has been automatically repaired." Line Location: UNI+6
Function Call: WRITE	Prompt: !,"The there is more than one PCC+ clinic registered!!",!,"Do you want to delete the unique clinic in the configuration file" Line Location: UNI+9
Routine Call	DIE Line Location: ADDMR+1 C1+4 C1+6 C1+8 C1+10 C1+12 C1+14 C1+17 DQ1+1
Routine Call	DIC Line Location: ADD+3 MIS+9 C1+1 DQ+3 CDEL+5
Routine Call	DIR Line Location: ONE+1

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VEN(7.22 - [#19707.22]	Classic Fileman Calls
^VEN(7.4 - [#19707.4]	Classic Fileman Calls
^VEN(7.95 - [#19707.95]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^VEN(7.22 - [#19707.22]	DUP+1, MIS+2, FIN, DQ+1, CDEL+11
^VEN(7.4 - [#19707.4]	RPMS+2, BAD+1, ADDMR+1, MR+2
^VEN(7.5 - [#19707.5]	ALL+3, UNI+3, UNI+5, UNI+11
^VEN(7.95 - [#19707.95]	MIS+2, FIN*, C1+4, C1+6, C1+8, C1+10, C1+12, C1+14, C1+17, DQ1+1 , UNI+4, UNI+8

Label References

Name	Line Occurrences
$$MR	RPMS+6
C1	DQ1+2
CDFIN	CDEL+5, CDEL+8
CFIN	C1+1, DQ+3
DQ	C1+16
DQ1	DQ+1
FIN	MIS+3, MIS+7
MIS	DUP+2, DUP+4
PG	ONE+4, ALL+7

Naked Globals

Name	Field # of Occurrence
^(	MR+2, DUP+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	NEW~, ADD+2, ADD+7, MR+1~, MR+2, DUP+4, MIS+5, MIS+6, MIS+7, CADD+1~ , C1+16, CDEL+1~, CDEL+8, UNI+1~, UNI+8, UNI+10, UNI+11
%Y	CDEL+1~
BAD	NEW+1~
C	QCK+2~, MIS+1, MIS+2
CFG	UNI+1~, UNI+2*, UNI+3, UNI+5, UNI+11
CIEN	QCK+2~, FIN*
>> CNO	MIS+9*
D	QCK+2~, DUP+1*
DA	NEW~, BAD+1, ADD+3, ADD+7, ONE+1!, DUP+5, CADD+1~, C1+2, DQ1, CDEL+1~ , CDEL+6, CDEL+11*, CDEL+12
DIC	NEW~, ADD+3, QCK+2~, QCK+3, MIS+8, CADD+1~, C1, C1+2, DQ+2, CDEL+1~ , CDEL+4, CDEL+9
DIC("A"	C1, CDEL+3
DIC(0	ADD+3, MIS+8, C1, DQ+2, CDEL+4*
DIE	NEW~, ADDMR+1, CADD+1~, C1+2, DQ1*
DIEN	CADD+1~, C1+2*, DQ1
DIK	BAD+2, QCK+2~, QCK+3, CDEL+1~, CDEL+9, CDEL+12
DIR	ONE+1!
DIR("A"	ONE+1*
DIR(0	ONE+1*
DLAYGO	ADD+3, MIS+8, CADD+1~, C1, DQ+2, CDEL+4*
DNO	QCK+2~, DUP+5*
DR	NEW~, ADDMR+1, CADD+1~, C1+4, C1+6, C1+8, C1+10, C1+12, C1+14, C1+17 , DQ1*
DUP	QCK+2~, DUP, DUP+1, DUP+2, DUP+5, DUP+6!, FIN+1
FSTG	NEW~
I	NEW+1~
IP	NEW~, PG1, PG2, OK, ALL+1~, ALL+2, ALL+3, ALL+6
>> IP1	ALL+2
IPA	NEW~, PG2, PG2+1, OK
MISS	QCK+2~, MIS+1, MIS+2, MIS+3, MIS+5, MIS+9, MIS+10!, FIN+1
MR	NEW~, RPMS+6, ADD+6, MR+1~, MR+2, MR+3
N	QCK+2~, DUP+1*
NAME	PG~, PG+1, OK, MISS, BAD, BAD+1, BAD+3, ADD, ADD+3, ADD+5 , ADDMR+1, ALL+1~, ALL+7, QCK+2~, FIN, CADD+1~, C1+2, DQ+1, DQ+2, CDEL+6 , CDEL+11, CDEL+12
OK	NEW+1~
PCE	NEW+1~
PG1	NEW~, PG1, PG1+1, PG2+2, PG2+3, PG2+5, OK, MISS
PG2	NEW~, PG2+1*, PG2+3
PGN	ALL+1~, ALL+7*
PIEN	NEW+1~, RPMS+1, RPMS+2
POP	CADD+1~
PS1	NEW+1~
PS2	NEW+1~
PSN	NEW+1~
PSTG	NEW~
Q	QCK+2~, DUP, DUP+1
QIEN	QCK+2~, FIN*
RPMS	NEW~, NEW+1~, RPMS+1, RPMS+2, RPMS+3, RPMS+4, OK, MISS, BAD
SOCK	NEW~
STG	NEW+1~, ALL+1~, ALL+6*, ALL+7
STOP	NEW~, NEW+1~, PG2, PG2+2, PG2+3*
U	RPMS+2, RPMS+3, PG2+5, OK, MISS, BAD, ALL+3, ALL+7, MR+2, DUP+1 , DUP+5, MIS+2, MIS+5, MIS+9, FIN, C1+2, CDEL+6, CDEL+7, UNI+3, UNI+5 , UNI+11
UNI	UNI+1~, UNI+3*, UNI+4
WARN	NEW+1~
X	NEW~, NEW+1~, RPMS+2, RPMS+4, ADD+3, MR+1~, MR+2, QCK+2~, MIS+9, CADD+1~ , DQ+2*, CDEL+1~
Y	NEW~, NEW+1~, ADD+3, ADD+4, ONE+2, ONE+4, QCK+2~, MIS+9, CADD+1~, C1+1 , C1+2, DQ+1*, DQ+3, DQ1, CDEL+1~, CDEL+5, CDEL+6, CDEL+7
Z	NEW~

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCM3

Information

Source Information

Call Graph

Call Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Name	Comments	DBIA/ICR reference
VAR
BAD
CADD	; EP-ADD A NEW CLINIC
QCK	; EP-CHECK QUEUE TYPE FILE
NEW
MIS	; MISSING QUEUE TYPES
DQ	; DESTINATION QUEUE TYPE
DQ1
MISS
RPMS	; RPMS PRINT GROUPS
ADDMR	; DEFINE THE MED REC PRINT GRP
ONE	; EP-CHECK ONE PRINT GROUP
CDFIN
C1
MR()	; MED REC PRINT GROUP
ADD
PG2
PG1
DUP
UNI	; EP-CHK VALIDITY OF UNIQUE CLINIC STATUS
FIN
PG(NAME)	; EP-VALIDATE AND SYNCHRONIZE INDIVIDUAL PRINT GROUPS
ALL	; EP-CHECK ALL PRINT GROUPS ON PRINT SERVER #1
OK
CFIN
CDEL	; EP-DELETE A CLINIC