Routine: VENPCCMI

Package	Total	Call Graph
VA Fileman	6	^DIC YN^DICN ^DIE ^DIK EN1^DIP ^DIR
PCC New Encounter Form	2	(CL,EF,PG)^VENPCCMC $$CFG^VENPCCU
IHS VA Utilities	1	^XBCLS

Entry Points

Name	Comments	DBIA/ICR reference
CLL	; EP-LIST CLINICS
BAR	; FIELD .04: BARCODE CHARACTER NO LONGER REQUIRED IN 2.2
NAME
CL	; EP-ENTER A CLINIC
CFG	; EP-EDIT THE CONFIG FILE
PGL	; EP-PRINTER GROUP LISTER ; EP FROM OPTION FILE
EF	; EP-ENTER AN ENCOUNTER FORM ; EP FROM OPTION FILE
CL1
HMN
EFL	; EP-ENCOUNTER FORM LIST ; EP FROM OPTION FILE
PG	; EP-PRINTER GROUP ENTRY ; EP FROM OPTION FILE
N1
NOTES
TMN	; TEMPLATE MNEMONIC

External References

Name	Field # of Occurrence
^DIC	PG+6, N1+1, CL1
YN^DICN	HMN+6
^DIE	PG+8, HMN+3, HMN+7, TMN+7, BAR+1, CL1+4, CFG+11
^DIK	N1+2, CL1+2
EN1^DIP	PGL+3, EFL+3, CLL+3
^DIR	TMN+2
CL^VENPCCMC	CL1+5
EF^VENPCCMC	BAR+2
PG^VENPCCMC	PG+9
$$CFG^VENPCCU	CFG+4
^XBCLS	PG+2, EF+1, CL+1, CFG+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Enter the name of a new Print Group in the format LOCATION_DEPARTMENT",!,"Examples: GIMC_PEDIATRICS, CROW_DENTAL, etc.",! Line Location: PG+3
Function Call: WRITE	Prompt: !!,"Enter the name of a Print Group in the format: Location Department",!,"Examples: GIMC PEDIATRICS, CROW WALK-IN",! Line Location: NAME+0
Function Call: WRITE	Prompt: *7,!,"Name not in the recommended format. ENTRY DELETED. Try again..." Line Location: N1+2
Function Call: WRITE	Prompt: ! Line Location: N1+2
Function Call: WRITE	Prompt: !,"The current header mnemonic is '",HMN,"'. Want to change it to 'EF'" Line Location: HMN+5
Function Call: WRITE	Prompt: !,"Must be 1-10 lowercase characters! Try again...",! Line Location: TMN+4
Function Call: WRITE	Prompt: !,"This mnemonic has already been used in template: ",$P($G(^VEN(7.41,X,0)),U),!,"Try entering another one...",! Line Location: TMN+6
Function Call: WRITE	Prompt: !!!,"If any corrections have been suggested, please make them now." Line Location: NOTES+0
Function Call: WRITE	Prompt: !!,"You are now ready to place a new encounter form template on the Print Server." Line Location: NOTES+1
Function Call: WRITE	Prompt: !?5,"1) The name of the template should be "_TMN_"_template.doc" Line Location: NOTES+2
Function Call: WRITE	Prompt: !?5,"3) Make sure that the template is in the proper state. The document should be UNMERGED with the fields names showing." Line Location: NOTES+3
Function Call: WRITE	Prompt: !?5,"2) Place the template in c:\program files\ilc\ilc forms print service\templates\" Line Location: NOTES+4
Function Call: WRITE	Prompt: !!,"Enter the name of a new Clinic in the format LOCATION - CLINIC",!,"Examples: GIMC - PEDIATRICS, CROW - DENTAL, etc.",! Line Location: CL+2
Function Call: WRITE	Prompt: !,"Format error. Entry cancelled",!?5,"Should be in the format 'LOCATION - CLINIC' e.g., 'GIMC - DENTAL'" Line Location: CL1+2
Function Call: WRITE	Prompt: !?10,"*** EDIT PARAMETERS FOR THE DEFAULT PCC+ CONFIGURATION ***",!!! Line Location: CFG+2
Routine Call	DIE Line Location: PG+8 HMN+3 HMN+7 TMN+7 BAR+1 CL1+4 CFG+11
Routine Call	DIC Line Location: PG+6 N1+1 CL1
Routine Call	DIR Line Location: TMN+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VEN(7.4 - [#19707.4]	Classic Fileman Calls
^VEN(7.41 - [#19707.41]	Classic Fileman Calls
^VEN(7.5 - [#19707.5]	Classic Fileman Calls
^VEN(7.95 - [#19707.95]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	CL1+3
^PSDRUG(0	CFG+9
^VEN(7.4 - [#19707.4]	PG+8
^VEN(7.41 - [#19707.41]	N1+4, HMN+3, HMN+7, TMN+6, TMN+7, BAR+1
^VEN(7.5 - [#19707.5]	CFG+11
^VEN(7.95 - [#19707.95]	CL1+4, CFG+6, CFG+7

Label References

Name	Line Occurrences
CL1	CL1+2
CLL	CL+1
EFL	EF+1
N1	N1+2
PGL	PG+2
TMN	HMN, HMN+1, TMN+4, TMN+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	PG+4~, PGL+1~, EFL+1~, EF+2~, HMN+6, HMN+7, CLL+1~, CL+3~, CFG+3~, CFG+6 , CFG+7*
%Y	EF+2~, TMN+3!
BY	PGL+1~, PGL+2, EFL+1~, EFL+2, CLL+1~, CLL+2*
C	EF+2~
CFG	CFG+3~
CFLG	PG+1~, PG+9
D	PG+4~, EF+2~, CL+3~, CFG+3~
D0	PG+4~, EF+2~, CL+3~, CFG+3~
DA	PG+4~, PG+7, PG+8, EF+2~, N1+2!, N1+3, N1+4, HMN+3, HMN+7, TMN+2! , TMN+7, BAR+1, CL+3~, CL1+2, CL1+3, CL1+4, CFG+3~, CFG+4*, CFG+11
DHD	PGL+1~, PGL+2, EFL+1~, EFL+2, CLL+1~, CLL+2*
DI	EF+2~
DIC	PG+4~, PG+5, PGL+1~, PGL+2, EFL+1~, EFL+2, EF+2~, N1, N1+2, N1+3 , CLL+1~, CLL+2, CL+3~, CL1, CL1+2, CL1+3, CFG+3~
DIC("A"	PG+5, N1, CL1*
DIC(0	PG+5, N1, CL1*
DIE	PG+4~, PG+5, EF+2~, N1, N1+3, CL+3~, CL1+3, CFG+3~, CFG+5*
DIG	PG+4~, EF+2~, CL+3~, CFG+3~
DIH	PG+4~, EF+2~, CL+3~, CFG+3~
DIK	EF+2~, N1+2!, CL1+2
DIR	EF+2~, TMN+2!, CL+3~, CFG+3~
DIR("?"	TMN+2*
DIR("A"	TMN+2*
DIR("B"	TMN+1*
DIR(0	TMN+2*
DIRUT	TMN+3!
>> DLAYGO	PG+5, N1, CL1*
DQ	EF+2~
DR	PG+4~, PG+7, EF+2~, HMN+2, HMN+7, TMN+7, BAR+1, CL+3~, CL1+3, CFG+3~ , CFG+5, CFG+7, CFG+8, CFG+9, CFG+10*
DTO	EF+2~
DTOUT	PG+4~, EF+2~, TMN+3!, CL+3~, CFG+3~
DUOUT	PG+4~, EF+2~, CL+3~, CFG+3~
DUZ(2	CL1+3
>> FLDS	PGL+2, EFL+2, CLL+2*
FR	PGL+1~, PGL+2, EFL+1~, EFL+2, CLL+1~, CLL+2*
HMN	EF+2~, N1+4*, HMN, HMN+1, HMN+5
IOP	PGL+1~, PGL+2, EFL+1~, EFL+2, CLL+1~, CLL+2*
J	EF+2~
L	PGL+1~, PGL+2, EFL+1~, EFL+2, CLL+1~, CLL+2*
NAME	EF+2~, N1+3*
TIEN	EF+2~, N1+3*, TMN+6, TMN+7
TMN	EF+2~, N1+4, TMN+1, TMN+7, NOTES+2
TO	PGL+1~, PGL+2, EFL+1~, EFL+2, CLL+1~, CLL+2*
U	N1+2, N1+3, N1+4, TMN+6, CL1+2, CL1+3, CFG+7
X	PG+4~, PGL+1~, EFL+1~, EF+2~, N1+4, TMN+5, TMN+6, CLL+1~, CL+3~, CFG+3~ , CFG+6, CFG+7*
Y	PG+4~, PG+6, PG+7, PGL+1~, EFL+1~, EF+2~, N1+1, N1+2, N1+3, TMN+3 , TMN+4, TMN+6, TMN+7, CLL+1~, CL+3~, CL1+1, CL1+2, CL1+3, CFG+3~

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCMI

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

Local Variables

Legend: