Routine: VENPCCM4

Package	Total	Call Graph
VA Fileman	5	^DIC YN^DICN ^DIE ^DIK ^DIR
PCC New Encounter Form	2	($$FILE,$$TEMPLATE)^VENPCCM2 ($$CFG,$$WAIT)^VENPCCU
IHS VA Utilities	1	^XBFMK
Kernel	1	($$LOW,$$UP)^XLFSTR

Name	Comments	DBIA/ICR reference
BAR(CIEN)	; EP-CHECK BAR CODE UNIQUENESS ; DEAD CODE IN 2.2
WARN	; EP-PRINT WARNINGS
ALL	; EP-CHECK ALL TEMPLATES
SET	; EP-UPDATE THE CONFIG FILE
MSG1	; INITIAL MESSAGE
VAL	; EP-VALIDATE A TEMPLATE
INIT(ISTG,HSTG)	; EP-CHECK ELEMENTS
REM2()	; EP-REDUNDANT CONFIG FILE ENTRIES
CAP	; EP-CAPTIONED TEMPLATE DESCRIPTION
REM1()	; MISSING TEMPLATE
ONE	; EP-ENTRY POINT FOR CHECKING JUST ONE TEMPLATE
DUP
VAR
ADD(X)	; EP-ADD A NEW FILE
IP()	; EP-GET IP ADDRESSES FOR PRINT SERVERS
DIE
ASK
TSTG(IP)	; EP-RETURN THE TEMPLATE STRING IN THE PROPER FORMAT
LINK(LINK)	; EP-LINK THE TEMPLATE TO AN ORDERABLE SET
FLD	; EP-TABLE OF FIELDS

Name	Field # of Occurrence
^DIC	REM2+4, DIE, LINK+7
YN^DICN	REM1+5, ADD+3, BAR+12, SET+3, LINK+5
^DIE	DIE+4, DIE+6, DIE+7, LINK+9
^DIK	REM1+7, REM2+5
^DIR	ASK
$$FILE^VENPCCM2	VAR, VAR+3
$$TEMPLATE^VENPCCM2	TSTG+2
$$CFG^VENPCCU	IP+2, IP+3, IP+4
$$WAIT^VENPCCU	ALL+9, WARN+4
^XBFMK	DIE+11
$$LOW^XLFSTR	VAR+2, INIT+9, TSTG+3
$$UP^XLFSTR	INIT+9

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Enter the file name of the template you want to validate =>" Line Location: ONE+2
Function Call: WRITE	Prompt: !,"Must use format: {mnemonic}_template.doc; e.g. 'wic_template.doc'. Try again..." Line Location: ASK+3
Function Call: WRITE	Prompt: !,"Checking all templates on Print Server #1......." Line Location: ALL+3
Function Call: WRITE	Prompt: !,"Evaluating '",FILE,"'" Line Location: ALL+7
Function Call: WRITE	Prompt: !,"One moment please...." Line Location: VAL+3
Function Call: WRITE	Prompt: !,"Unable to access this template's header file. Request terminated!" Line Location: VAR+1
Function Call: WRITE	Prompt: !,"File '",FILE,"' was not found on one of the Print Servers",!,"Add this file now!" Line Location: MSG1+2
Function Call: WRITE	Prompt: !,"File '",IFILE,"' not found on Print Server #1!,",!,"Create this file using the 'template info.dot' form and try again." Line Location: MSG1+5
Function Call: WRITE	Prompt: !,"Invalid template information file! Request terminated..." Line Location: MSG1+8
Function Call: WRITE	Prompt: !,"Invald or missing Bar Code Caracter. Session terminated..." Line Location: MSG1+10
Function Call: WRITE	Prompt: !,"The template '",FILE,"' is missing from the print servers",!,"but it is registered in the PCC+ EF TEMPLATE file on the RPMS server" Line Location: REM1+2
Function Call: WRITE	Prompt: !,"This may cause the Print Server to lock up!" Line Location: REM1+3
Function Call: WRITE	Prompt: !,"Want to remove this template from the EF TEMPLATE file" Line Location: REM1+4
Function Call: WRITE	Prompt: !?5,$P(^VEN(7.41,DA,0),U)," removed..." Line Location: REM1+7
Function Call: WRITE	Prompt: !,"DONE!" Line Location: REM1+9
Function Call: WRITE	Prompt: !,"OK, You must add this file to the print servers before proceeding" Line Location: REM1+12
Function Call: WRITE	Prompt: !,"Also, create the companion file on Print Server #1 using 'template info.dot'" Line Location: REM1+13
Function Call: WRITE	Prompt: !,"The EF TEMPLATE file has multiple entries linked to '",FILE,"'" Line Location: REM2+1
Function Call: WRITE	Prompt: !?5,$P(%,";",2) Line Location: REM2+2
Function Call: WRITE	Prompt: !!,"Please remove one of these entries..." Line Location: REM2+3
Function Call: WRITE	Prompt: !,"File '",FILE,"' is on the Print Server",!,"but it is not registered in the EF TEMPLATE file. Want to register it now" Line Location: ADD+1
Function Call: WRITE	Prompt: !,"Want to update the PCC+ cnfig file for '",FILE,"'" Line Location: ADD+2
Function Call: WRITE	Prompt: !,"The Bar Code '"_BAR_"' assigned to this template is not unique" Line Location: BAR+11
Function Call: WRITE	Prompt: !,"OK, The Bar Code '",BAR,"' has been assigned to this template" Line Location: BAR+14
Function Call: WRITE	Prompt: !,"Template: ",MNAME,?40,"Header file: ",HNAME Line Location: CAP+1
Function Call: WRITE	Prompt: !,"Descriptive name: ",TNAME Line Location: CAP+2
Function Call: WRITE	Prompt: !,"Description: ",DESC Line Location: CAP+4
Function Call: WRITE	Prompt: !,"Created by: ",BY Line Location: CAP+6
Function Call: WRITE	Prompt: ?40,"Created on: ",ON Line Location: CAP+8
Function Call: WRITE	Prompt: !,"Created at: ",AT Line Location: CAP+10
Function Call: WRITE	Prompt: ?40,"Version: ",VER Line Location: CAP+12
Function Call: WRITE	Prompt: !!,"Field",?7,"Description",?38,"# on this form",?55,"Max allowed on this form" Line Location: FLD+2
Function Call: WRITE	Prompt: !,"-----",?7,"---------------------------",?38,"---------------",?55,"------------------------" Line Location: FLD+3
Function Call: WRITE	Prompt: !,MN,?7,Y,?38,N,?55,T Line Location: FLD+8
Function Call: WRITE	Prompt: 13,?79,13,?20,"*** WARNINGS ***",! Line Location: WARN+6
Function Call: WRITE	Prompt: ! Line Location: WARN+7
Function Call: WRITE	Prompt: !,"Missing elements: " Line Location: WARN+8
Function Call: WRITE	Prompt: ", " Condition for execution: I>1 Line Location: WARN+8
Function Call: WRITE	Prompt: MN,$P(%,U,I) Line Location: WARN+8
Function Call: WRITE	Prompt: !,"The number of '",MN,"' fields exceeds the maximum number allowed!" Line Location: WARN+9
Function Call: WRITE	Prompt: !,"Fields of type '",MN,"' appear to be out of order!" Line Location: WARN+10
Function Call: WRITE	Prompt: !,"Repeated elements: " Line Location: WARN+11
Function Call: WRITE	Prompt: ", " Condition for execution: I>1 Line Location: WARN+11
Function Call: WRITE	Prompt: $P(%,U,I) Line Location: WARN+11
Function Call: WRITE	Prompt: !!,"Do you want to update your EF TEMPLATE file now" Line Location: SET+2
Function Call: WRITE	Prompt: !,"Configuration file not updated" Line Location: SET+3
Function Call: WRITE	Prompt: !,"The VEN EHP EF TEMPLATE file has been updated!" Line Location: SET+5
Function Call: WRITE	Prompt: !,"Unable to update EF TEMPLATE file! Request terminated..." Line Location: DIE+1
Function Call: WRITE	Prompt: !,"Unable to find the IP address for any Print Server. Request terminated..." Line Location: IP+7
Function Call: WRITE	Prompt: !,"Want to link this template to an order set" Line Location: LINK+4
Function Call: WRITE	Prompt: !,"The template and order set have been linked..." Line Location: LINK+10
Routine Call	DIE Line Location: DIE+4 DIE+6 DIE+7 LINK+9
Routine Call	DIC Line Location: REM2+4 DIE LINK+7
Routine Call	DIR Line Location: ASK

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

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	INIT+5
^VEN(7.41 - [#19707.41]	DUP, REM1+7, BAR+3, BAR+4, BAR+8, BAR+9, DIE+4, DIE+6, DIE+7, DIE+8* , DIE+9*, LINK+9
^VEN(7.5 - [#19707.5]	IP+2, IP+3, IP+4
^VEN(7.92 - [#19707.92]	LINK+2
^VEN(7.93 - [#19707.93]	LINK+3

Name	Line Occurrences
$$ADD	MSG1+6, MSG1+7
$$INIT	MSG1+8
$$IP	ASK+4, ALL+2
$$REM1	MSG1+3
$$REM2	MSG1+4
$$TSTG	ASK+5, ALL+4, VAR+6
ASK	ASK+3
CAP	MSG1+11
DIE	SET+4
DUP	MSG1+4
FLD	MSG1+11
LINK	DIE+10
SET	MSG1+11
VAL	ASK+6, ALL+8
WARN	MSG1+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	ONE+1~, VAL+1~, DUP, REM1+1~, REM1+5, REM1+7, REM2+2, ADD+3, BAR+1~, BAR+2 , BAR+4, BAR+5, BAR+7, BAR+8, BAR+9, BAR+12, INIT+1, INIT+2, INIT+30, WARN+5 , WARN+8, WARN+11, SET+1~, SET+3, LINK+5
%Y	REM1+1~, REM1+11
A	WARN+1~
ALL	VAL+2~, INIT+33*
AT	VAL+1~, INIT+4, CAP+9, CAP+10
B	WARN+1~
BAR	VAL+1~, BAR+1~, BAR+2, BAR+3, BAR+5, BAR+9, BAR+10, BAR+11, BAR+13, BAR+14 , BAR+15, DIE+2*
BY	VAL+1~, INIT+3, CAP+5, CAP+6
C	WARN+1~
CEX	VAL+1~, DUP+1*, DUP+2, MSG1+1, MSG1+2, MSG1+3, MSG1+4, MSG1+6, MSG1+7
CFSTG	VAL+1~, DUP*, DUP+1, DUP+2, MSG1+4, REM2+2
CIEN	DUP+2*, BAR~, BAR+3, BAR+8, BAR+9
CNAME	VAL+1~, DUP+2*, MSG1+9, DIE
CNT	VAL+1~, INIT+10*
DA	ASK!, REM1+7, REM1+8!, REM2+5, SET+1~, DIE, DIE+4, DIE+6, DIE+7, DIE+8 , DIE+9, DIE+10, LINK+1~, LINK+8
DESC	VAL+1~, CAP+3*, CAP+4, DIE+9
DIC	REM2+4!, SET+1~, DIE, LINK+1~, LINK+6*
DIC("A"	REM2+4, LINK+6
DIC("S"	REM2+4*
DIC(0	REM2+4, DIE, LINK+6*
DIE	SET+1~, DIE+2, LINK+1~, LINK+8
DIK	REM1+6, REM1+8!, REM2+5
DIR	ONE+1~, ASK!
DIR("?"	ASK*
DIR("A"	ASK*
DIR(0	ASK*
>> DLAYGO	DIE*
>> DNAME	INIT+14*, INIT+25
DR	SET+1~, DIE+3, DIE+5, DIE+7, LINK+1~, LINK+8
DSTG	VAL+1~, INIT+11*, INIT+14
DT	INIT+5, DIE+8
EDITNAME	VAL+2~, DIE+7
ERR	VAL+1~, INIT+13, INIT+19, INIT+26
ESTG	VAL+1~, INIT+10*, INIT+12
EXAM	VAL+2~, INIT+32*
FILE	ONE+1~, ASK+5, ALL+1~, ALL+5, ALL+6, ALL+7, VAR+2*, VAR+5, VAR+6, DUP , MSG1+1, MSG1+2, REM1+2, REM1+7, REM2+1, ADD+1, ADD+2
FIN	ALL+1~, ALL+4, ALL+5, ALL+9
HMR	VAL+2~, INIT+32*
HNAME	VAL+1~, INIT+7, CAP+1, DIE+3
HSTG	VAL+1~, VAR, VAR+1, MSG1+8, INIT~, INIT+10, INIT+23
>> I	REM2+2, INIT+2, INIT+15, INIT+23, INIT+24, WARN+2, WARN+8, WARN+11*
IEX	VAL+1~, VAR+4*, MSG1+1, MSG1+5
IFILE	VAL+1~, VAR+2*, VAR+3, MSG1+1, MSG1+5
IMM	VAL+2~, INIT+32*
INJ	VAL+2~, INIT+32*
IP	ASK+6, ALL+1~, ALL+4, VAR, VAR+3, TSTG~, TSTG+2
>> IP1	IP+1
>> IP2	IP+1
IPA	ONE+1~, ASK+5, ASK+6, ALL+1~, ALL+4, VAR+6, IP+1, IP+2, IP+5, IP+6* , IP+7
IPB	ONE+1~, ALL+1~, VAR+6, IP+1, IP+3, IP+5*, IP+6, IP+7
ISTG	VAL+1~, VAR+3, VAR+4, MSG1+8, INIT~, INIT+2, INIT+10, INIT+15, INIT+17, INIT+18
LAB	VAL+2~, INIT+32*
LINK	LINK~, LINK+8
LOC	VAL+1~, INIT+7, INIT+9
MAX	VAL+1~, INIT+24*, INIT+25, INIT+27
MN	VAL+1~, INIT+12, INIT+15, INIT+17, INIT+21, INIT+23, INIT+25, INIT+26, INIT+27, INIT+28 , INIT+29, INIT+30, FLD+1~, FLD+4, FLD+5, FLD+6, FLD+8, WARN+1~, WARN+2, WARN+7 , WARN+8, WARN+9, WARN+10, WARN+11
MNAME	VAL+1~, INIT+7, INIT+9*, CAP+1
N	FLD+1~, FLD+7*, FLD+8
OK	VAL+2~, WARN+2*, WARN+3, SET+3
ON	VAL+1~, INIT+5, CAP+7, CAP+8
ORD	VAL+1~, INIT+13, INIT+21, INIT+28
PAUSE	VAL+1~
PCE	VAL+1~, INIT+12*, INIT+14
POV	VAL+2~, INIT+32*
PROB	VAL+2~, INIT+32*
PTED	VAL+2~, INIT+32*
RAD	VAL+2~, INIT+33*
ROS	VAL+2~, INIT+33*
RPT	VAL+1~, INIT+13, INIT+18, INIT+29
RX	VAL+2~, INIT+33*
>> SOCK	IP+1, IP+4
>> SOCKET	IP+1
STG	BAR+1~, BAR+9*, BAR+10, BAR+13
SUPL	VAL+2~, INIT+33*
T	FLD+1~, FLD+7*, FLD+8
TEX	VAL+1~, VAR+5*, MSG1+1, MSG1+2, MSG1+3
TEX1	VAL+1~, VAR+6*, MSG1+2
TIEN	DUP, REM1+6, BAR+1~, BAR+2, BAR+4, BAR+8*
TNAME	VAL+1~, MSG1+9, INIT+9, CAP+2, DIE
TNO	ALL+1~, ALL+5*
TOT	VAL+1~, INIT+13, INIT+16, INIT+17, INIT+19, INIT+21, INIT+25, INIT+27
TRT	VAL+2~, INIT+33*
TSTG	ONE+1~, ASK+5, ALL+1~, ALL+4, ALL+5, VAR+5, TSTG+1~, TSTG+2, TSTG+3, TSTG+4
TSTG1	VAL+1~, VAR+6*
TYPE	VAL+1~, INIT+7, INIT+9
U	ALL+5, VAR+1, VAR+4, VAR+5, VAR+6, DUP, DUP+2, MSG1+4, REM1+7, REM2+2 , BAR+3, BAR+4, BAR+8, BAR+9, BAR+10, BAR+13, INIT+2, INIT+10, INIT+12, INIT+14 , INIT+15, INIT+17, INIT+18, INIT+19, INIT+23, INIT+25, INIT+27, FLD+5, FLD+7, WARN+8 , WARN+11, IP+2, IP+3, IP+4
VAL	VAL+1~, INIT+10!
VAL(	INIT+25, INIT+26, INIT+27, INIT+28, INIT+29*, INIT+30!, FLD+4, FLD+6, WARN+2, WARN+7 , WARN+8, WARN+9, WARN+10, WARN+11
VAL("a"	INIT+33
VAL("d"	INIT+32
VAL("e"	INIT+32
VAL("i"	INIT+32
VAL("l"	INIT+32
VAL("mm"	INIT+33
VAL("p"	INIT+32
VAL("r"	INIT+33
VAL("s"	INIT+32
VAL("t"	INIT+33
VAL("y"	INIT+32
VAL("z"	INIT+33
VER	VAL+1~, INIT+6, CAP+11, CAP+12
X	ONE+1~, VAL+1~, REM1+1~, ADD~, ADD+1, ADD+2, INIT+15, INIT+18, INIT+21, FLD+1~ , FLD+6, FLD+7, SET+1~, DIE*, LINK+1~
Y	ONE+1~, ASK+1, ASK+2, ASK+5, VAL+1~, REM1+1~, REM2+4, REM2+5, BAR+1~, BAR+4* , BAR+5, BAR+8, BAR+13, INIT+5, FLD+1~, FLD+7*, FLD+8, SET+1~, DIE, DIE+1 , LINK+1~, LINK+7, LINK+8
Z	ONE+1~, ASK+2*, ASK+3

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCM4

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: