Routine: VENPCCMC

Package	Total	Call Graph
PCC New Encounter Form	6	(PG,TEMPLATE)^VENPCCM1 $$FILE^VENPCCM2 ($$OS,CK,COMP)^VENPCCME ($$FIND,$$OTCP,CTCP)^VENPCCP CSC^VENPCCQX ($$CFG,$$WAIT,PAUSE)^VENPCCU
IHS VA Utilities	2	^XBCLS ^XBFMK
VA Fileman	2	^DIC ^DIE

Package	Total	Caller Graph
PCC New Encounter Form	1	VENPCCMI

Name	Comments	DBIA/ICR reference
CEF	; CHECK ENCOUNTER FORMS
IP(IPFLG)	; EP - CHECK IP AND SOCKET
CHF	; CHECK HEADER FILES
CCK1
CPC	; CHECK PRIMARY CONFIGURATION
CSC26
CCK(CIEN)	; EP-CHECK CLINIC
CPG	; CHECK PRINT GROUPS
EF(CFLG)	; EP-ENCOUTER FORMS
CCL	; CHECK CLINICS
PG(CFLG)	; EP-PRINT GROUPS
INTRO	; WELCOME
CL(CFLG)	; EP-CLINICS
ENV	; CHECK THE OPERATING ENVIRONMENT
HF(CFLG)	; EP - HEADER FILES
ECK(TIEN)	; EP - CK TEMPLATE ; BAR CODE CHARACTER CHECK NO LONGER REQUIRED IN 2.2
CCPS	; CHECK CONNECTION TO THE PRINT SERVERS
CMP	; CHECK FOR REQUIRED COMPONENTS ; PATCHED BY GIS/OIT 10/15/05 ; PCC+ 2.5 PATCH 1

Name	Field # of Occurrence
^DIC	CL+7, CL+16, CCK+27
^DIE	CL+12, CL+18, CCK+23, CCK+29
PG^VENPCCM1	CPG+4
TEMPLATE^VENPCCM1	CEF+10
$$FILE^VENPCCM2	HF+12
$$OS^VENPCCME	CSC26+2
CK^VENPCCME	CPC+4
COMP^VENPCCME	CMP+5
$$FIND^VENPCCP	HF+6
$$OTCP^VENPCCP	IP+5
CTCP^VENPCCP	IP+8, IP+10
CSC^VENPCCQX	CSC26
$$CFG^VENPCCU	CHF+1, HF+2
$$WAIT^VENPCCU	CMP+2, CMP+8, CPC+6, CCPS+11, CEF+8, CEF+12, CPG+6, CCL+6, EF+7, CCK+4
PAUSE^VENPCCU	CSC26, CMP+7, CPC+5, CCPS+8, CHF+1, CHF+6
^XBCLS	INTRO+3, CMP+3, CPC+1, CCPS+1, CEF+1, CEF+13, CPG+7, CCL+7
^XBFMK	CL+22, CCK+30

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?20,"*** PCC+ INSTALLATION CHECKER ***",!! Line Location: INTRO+3
Function Call: WRITE	Prompt: "NOTE: This utility does NOT update the PCC+ configuration files.",!," It simply reports on the status of the current installation." Line Location: INTRO+4
Function Call: WRITE	Prompt: !!,"When you see the '<>' symbol, press the <ENTER> key to continue scrolling..." Line Location: INTRO+5
Function Call: WRITE	Prompt: !!,"Now let's check connectivity and the Windows components of PCC+",! Line Location: CSC26+0
Function Call: WRITE	Prompt: !!!!!,"First, let's check the operating environment..." Line Location: CSC26+1
Function Call: WRITE	Prompt: !,"Unable to proceed because the operating system is not defined for PCC+!" Line Location: CSC26+2
Function Call: WRITE	Prompt: ! Line Location: CMP+2
Function Call: WRITE	Prompt: !!,"Next, let's make sure that all required components have been installed " Line Location: CMP+4
Function Call: WRITE	Prompt: !,OUT Line Location: CMP+6
Function Call: WRITE	Prompt: !,"Checking the primary configuration..." Line Location: CPC+2
Function Call: WRITE	Prompt: !,"Please make all suggested corrections and then run this utility again" Line Location: CPC+5
Function Call: WRITE	Prompt: !,"Checking connectivity to the PCC+ print server(s)..." Line Location: CCPS+2
Function Call: WRITE	Prompt: !!,"Make sure the PCC+ Print Service is running on the print server(s)" Line Location: CCPS+5
Function Call: WRITE	Prompt: !,"If this is not successful, fix the LAN connection to the print server(s)." Line Location: CCPS+6
Function Call: WRITE	Prompt: !,"Then run this utility again." Line Location: CCPS+7
Function Call: WRITE	Prompt: !,"Connectivity is OK",! Line Location: CCPS+10
Function Call: WRITE	Prompt: !,"Checking PCC+ ENCOUNTER FORMS..." Line Location: CEF+2
Function Call: WRITE	Prompt: !,"Only essential properties and template synchronization will be checked now." Line Location: CEF+3
Function Call: WRITE	Prompt: !,"For managing all other TEMPLATE properties, use the TCU option.",! Line Location: CEF+4
Function Call: WRITE	Prompt: !,"Please make all suggested corrections and then run this utility again" Line Location: CEF+7
Function Call: WRITE	Prompt: ! Line Location: CEF+8
Function Call: WRITE	Prompt: !!,"Checking PCC+ encounter form synchronization." Line Location: CEF+9
Function Call: WRITE	Prompt: !,"Please make all suggested corrections and then run this utility again" Line Location: CEF+11
Function Call: WRITE	Prompt: !,"Please make all suggested corrections and then run this utility again" Line Location: CPG+2
Function Call: WRITE	Prompt: !!,"Now let's check print group synchronization.",! Line Location: CPG+3
Function Call: WRITE	Prompt: !,"Please make all suggested corrections and then run this utility again" Line Location: CPG+5
Function Call: WRITE	Prompt: !,"Checking PCC+ CLINICS..." Line Location: CCL+1
Function Call: WRITE	Prompt: !,"Only the essential properties will be checked now." Line Location: CCL+2
Function Call: WRITE	Prompt: !,"For managing all other CLINIC properties, use the TCC option.",! Line Location: CCL+3
Function Call: WRITE	Prompt: !,"Please make all suggested corrections and then run this utility again" Line Location: CCL+5
Function Call: WRITE	Prompt: !,"New PCC+ data format IN USE. No need for header files." Line Location: CHF+1
Function Call: WRITE	Prompt: !!,"Checking HEADER FILES..." Line Location: CHF+2
Function Call: WRITE	Prompt: !,"Please make all suggested corrections and then run this utility again" Line Location: CHF+4
Function Call: WRITE	Prompt: !,"Header Files have been validated." Line Location: CHF+5
Function Call: WRITE	Prompt: !!!,"CONGRATULATIONS!!! Your PCC+ system has been valdated" Line Location: CHF+5
Function Call: WRITE	Prompt: !?5,"CURRENT TCP SOCKET IS INVALID. IT SHOULD BE '5143'" Line Location: IP+2
Function Call: WRITE	Prompt: !?5,"IP address ",I," is invalid. Current address: ",X Line Location: IP+4
Function Call: WRITE	Prompt: !?5,"Failed to establish a TCP/IP connection to ",X Line Location: IP+6
Function Call: WRITE	Prompt: ("ABOUT") Line Location: IP+7
Function Call: WRITE	Prompt: ! Condition for execution: $G(CACHE) Line Location: IP+7
Function Call: WRITE	Prompt: !,"Print service not responding on ",IP(I) Line Location: IP+8
Function Call: WRITE	Prompt: !,"Print service not responding on ",IP(I) Line Location: IP+9
Function Call: WRITE	Prompt: !?5,"Connection to print service on ",IP(I)," validated (Ver. " Line Location: IP+11
Function Call: WRITE	Prompt: $S(ACK=0:"2.5",1:"2.2"),")." Line Location: IP+12
Function Call: WRITE	Prompt: !?5,"NO ENCOUNTER FORM TEMPLATES HAVE BEEN ENTERED YET!" Line Location: EF+3
Function Call: WRITE	Prompt: ! Line Location: EF+7
Function Call: WRITE	Prompt: !?5,NAME Line Location: ECK+3
Function Call: WRITE	Prompt: !?7,"Invalid/missing header mnemonic." Line Location: ECK+5
Function Call: WRITE	Prompt: !?7,"Missing template mnemonic" Line Location: ECK+6
Function Call: WRITE	Prompt: !?7,"Invalid template mnemonic. Must be 1-10 lowercase letters - no spaces." Line Location: ECK+7
Function Call: WRITE	Prompt: !?7,"The mnemonic '"_Y_"' is not unioque." Line Location: ECK+8
Function Call: WRITE	Prompt: " <= OK" Line Location: ECK+9
Function Call: WRITE	Prompt: !,"Unable to find the Path to the header files on the RPMS Server!" Line Location: HF+4
Function Call: WRITE	Prompt: !,"Header file ",HF," has been validated" Line Location: HF+6
Function Call: WRITE	Prompt: !,"Header file '",HF,"'can not be located in ",PATH Line Location: HF+7
Function Call: WRITE	Prompt: !!,"Accessing information...",! Line Location: HF+9
Function Call: WRITE	Prompt: !,HF," is properly synchronized on Print Server #"_IPI Line Location: HF+13
Function Call: WRITE	Prompt: !,HF," has not been loaded on Print Server #",IPI Line Location: HF+14
Function Call: WRITE	Prompt: !!,"CHECKING PRINT GROUPS..." Line Location: PG+1
Function Call: WRITE	Prompt: !?5,"NO PRINT GROUPS HAVE BEEN ENTERED YET!" Line Location: PG+2
Function Call: WRITE	Prompt: !?7,"No MEDICAL RECORDS print group has been defined." Line Location: PG+4
Function Call: WRITE	Prompt: !?5,$P($G(^VEN(7.4,X,0)),U) Line Location: PG+6
Function Call: WRITE	Prompt: " (MEDICAL RECORDS PRINT GROUP)" Line Location: PG+7
Function Call: WRITE	Prompt: !,?7,"Name not is recommended format: Facility_Group e.g., 'GIMC_ORTHO'" Line Location: PG+8
Function Call: WRITE	Prompt: " <=OK" Line Location: PG+9
Function Call: WRITE	Prompt: !,"There is more than one Medical Records print group!" Line Location: PG+11
Function Call: WRITE	Prompt: !?5,X," has been added to the VEN EHP CLINIC file & VEN QUEUE TYPE file." Line Location: CL+20
Function Call: WRITE	Prompt: ! Line Location: CCK+4
Function Call: WRITE	Prompt: !?5,NAME Line Location: CCK+5
Function Call: WRITE	Prompt: " (TRIAGE MODULE ACTIVE)" Condition for execution: $P(B,U,3) Line Location: CCK+5
Function Call: WRITE	Prompt: " <=OK" Line Location: CCK+7
Function Call: WRITE	Prompt: !?10,"USE VALID NAME FORMAT: 'Facility - Clinic'; e.g., PIMC - PEDIATRICS" Line Location: CCK+8
Function Call: WRITE	Prompt: !?10,"UNKNOWN CLINIC STOP" Line Location: CCK+9
Function Call: WRITE	Prompt: !?10,"INVALID CLINIC STOP" Line Location: CCK+10
Function Call: WRITE	Prompt: !?10,"UNKNOWN PRINT GROUP" Line Location: CCK+11
Function Call: WRITE	Prompt: !?10,"INVALID PRINT GROUP" Line Location: CCK+12
Function Call: WRITE	Prompt: !?10,"UNKNOWN DEFAULT PROVIDER" Line Location: CCK+13
Function Call: WRITE	Prompt: !?10,"INVALID DEFAULT PROVIDER" Line Location: CCK+14
Function Call: WRITE	Prompt: !?10,"UNKNOWN DEFAULT ENCOUNTER FORM" Line Location: CCK+15
Function Call: WRITE	Prompt: !?10,"INVALID DEFAULT ENCOUTER FORM" Line Location: CCK+16
Function Call: WRITE	Prompt: !?10,"UNKNOWN MEDICAL RECORDS LOCATION" Line Location: CCK+17
Function Call: WRITE	Prompt: !?10,"INVALID MEDICAL RECORDS LOCATION" Line Location: CCK+18
Function Call: WRITE	Prompt: !?10,"Clinic registered in QUEUE TYPE file" Line Location: CCK+24
Function Call: WRITE	Prompt: !?10,"QUEUE TYPE file has been updated" Line Location: CCK+31
Function Call: WRITE	Prompt: !?10,"INACTIVE CLINIC" Line Location: CCK1+0
Function Call: WRITE	Prompt: " <=OK" Line Location: CCK1+1
Routine Call	DIE Line Location: CL+12 CL+18 CCK+23 CCK+29
Routine Call	DIC Line Location: CL+7 CL+16 CCK+27

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

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	CCK+18
^DIC(40.7 - [#40.7]	CCK+10
^VA(200 - [#200]	CCK+14
^VEN(7.22 - [#19707.22]	CL+9, CCK+20
^VEN(7.4 - [#19707.4]	PG+2, PG+3, PG+5, PG+6, PG+7, PG+8, CCK+12
^VEN(7.41 - [#19707.41]	EF+3, EF+4, ECK+3, ECK+4, ECK+8, CCK+16
^VEN(7.5 - [#19707.5]	CHF+1, HF+3
^VEN(7.95 - [#19707.95]	CL+3, CL+4, CL+12, CL+18, CCK+2, CCK+19, CCK+23, CCK+29

Name	Line Occurrences
CCK	CL+3
CCK1	CCK+18
CL	CCL+4
CPC	CSC26
ECK	EF+5
EF	CEF+6
HF	CHF+3
IP	CCPS+3
PG	CPG+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	INTRO+1~, IP+5, IP+6, CL+9, CL+10, CL+11, CCK+1~, CCK+20*, CCK+21, CCK+22
%Y	INTRO+1~
A	CCK+1~, CCK+2*, CCK+3, CCK+9
ACK	IP+1~, IP+7!*, IP+9, IP+12
ART	INTRO+1~
AUTO	INTRO+1~
B	CCK+1~, CCK+2*, CCK+5, CCK+11, CCK+13, CCK+15, CCK+17, CCK1
BACK	INTRO+1~
BAR	ECK+2~, ECK+4*
BYP	INTRO+1~
>> CACHE	IP+7
CDFN	INTRO+1~
CFG	INTRO+1~
CFIGIEN	INTRO+1~, HF+1~, HF+2*, HF+3
CFLG	INTRO+1~, CPC+3, CPC+4, CPC+5, CEF+5, CEF+6, CEF+7, CEF+11, CPG+1, CPG+2 , CPG+5, CCL+4, CCL+5, CHF+3, CHF+4, EF~, ECK+4, ECK+5, ECK+6, ECK+7 , ECK+8, ECK+9, HF~, HF+14, PG~, PG+4, PG+11, CL~, CCK+3, CCK+9 , CCK+10, CCK+11, CCK+12, CCK+13, CCK+14, CCK+15, CCK+16, CCK+17, CCK+18*, CCK1+1
CIEN	INTRO+1~, CL+1~, CL+2, CL+3, CL+8*, CL+11, CL+17, CCK~, CCK+2, CCK+19 , CCK+22, CCK+28
CMED	INTRO+1~
CNT	INTRO+2~, CSC26
DA	INTRO+1~, CL+1~, CL+11, CL+12, CL+17, CL+18, CCK+1~, CCK+22, CCK+23, CCK+28 , CCK+29
DEF	CCK+1~, CCK+15*, CCK+16
DEM	INTRO+1~
DEPT	CCK+1~, CCK+9*, CCK+10
DHS	CCK+1~
DIC	CL+1~, CL+6, CL+15, CCK+1~, CCK+26*
DIC(0	CL+6, CL+15, CCK+26*
DIE	CL+1~, CL+11, CL+17, CCK+1~, CCK+22, CCK+28
>> DLAYGO	CL+6, CL+15, CCK+26*
DP	INTRO+1~
DPRV	CCK+1~, CCK+13*, CCK+14
DR	CL+1~, CL+11, CL+17, CCK+1~, CCK+22, CCK+28
EXRX	INTRO+1~
GP	INTRO+1~
HDR	ECK+2~, ECK+4*, ECK+5
HF	HF+1~, HF+5, HF+6, HF+7, HF+11, HF+12, HF+13, HF+14
HSTG	HF+1~, HF+12*, HF+13
I	INTRO+2~, IP+1~, IP+3*, IP+4, IP+8, IP+9, IP+11
INST	CCK+1~, CCK+17*, CCK+18
IP	INTRO+2~
IP(	IP+3, IP+8, IP+9, IP+11, HF+12
IP(1	IP+3, HF+10
IP(2	IP+3, HF+10
IPFLG	INTRO+2~, CCPS+3, CCPS+4, CCPS+10, IP~, IP+2, IP+3, IP+4, IP+6
IPI	HF+1~, HF+11*, HF+12, HF+13, HF+14
IPX	HF+1~, HF+10*, HF+11
MON	INTRO+2~
MV	INTRO+2~
NAME	ECK+2~, ECK+3, CL+5, CL+9, CL+15, CCK+1~, CCK+3*, CCK+5, CCK+6, CCK+8 , CCK+20, CCK+26
OS	INTRO+2~
>> OUT	CMP+5, CMP+6, CMP+7
PATH	INTRO+2~, HF+1~, HF+3*, HF+4, HF+6, HF+7
PGRP	CCK+1~, CCK+11*, CCK+12
PHS	INTRO+2~
POP	INTRO+2~, IP+1~
PULL	INTRO+2~
QIEN	CCK+1~, CCK+19*
QUE	CCK+1~
SM	INTRO+1~
SOCK	INTRO+2~, IP+2
STG	INTRO+2~, ECK+2~, ECK+4*
SUB	INTRO+2~
TIEN	INTRO+2~, EF+1~, EF+4*, EF+5, ECK~, ECK+3, ECK+4, ECK+8
TMN	ECK+2~, ECK+4*, ECK+6, ECK+7, ECK+8
TOT	INTRO+2~, EF+1~, EF+2, EF+6, EF+7, PG+5, PG+7, PG+11, CL+2, CL+3 , CCK+4*
TYPE	INTRO+2~
U	CHF+1, ECK+3, ECK+4, ECK+8, PG+3, PG+6, PG+7, PG+8, CCK+3, CCK+5 , CCK+9, CCK+11, CCK+13, CCK+15, CCK+17, CCK+19, CCK1
UNI	INTRO+2~
VER	INTRO+1~
X	INTRO+1~, INTRO+2~, IP+1~, IP+3, IP+4, IP+5, IP+6, ECK+2~, ECK+8, HF+1~ , PG+3, PG+5, PG+6, PG+7, PG+8, CL+1~, CL+4, CL+5, CL+15, CL+20 , CCK+1~, CCK+26
Y	INTRO+2~, ECK+2~, ECK+8, PG+3, PG+4, CL+7, CL+8, CL+16, CL+17, CCK+1~ , CCK+27, CCK+28

Customize PDF page

Package: PCC New Encounter Form

Routine: VENPCCMC

Information

Source Information

Call Graph

Call Graph Total: 10

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:

Marked Items