VENPCCME ; IHS/OIT/GIS - PCC+ ENVIRONMENT CHECKER ;
;;2.6;PCC+;;NOV 12, 2007
;
; CONTAINS 2.5 UPDATES
;
N OUT
D COMP(.OUT)
W !!,OUT
Q
;
COMP(OUT) ; EP-REQUIRED COMPONENT CHECK-UP
; PATCHED BY GIS/OIT 10/15/05 ; PCC+ 2.5 PATCH 1
N KIEN,TOT
S KIEN=$O(^XPD(9.6,"B","PCC+ 2.5",0))
I 'KIEN S OUT="Unable to find the KIDS installation record for PCC+ Version 2.5!" Q
S TOT=0
W ! I $$RTN S TOT=TOT+1
W ! I $$FILE S TOT=TOT+1
W ! I $$VR(KIEN) S TOT=TOT+1
W ! I $$VF(KIEN) S TOT=TOT+1
W ! I $$VOPT(KIEN) S TOT=TOT+1
W ! I $$VKEY(KIEN) S TOT=TOT+1
I TOT S OUT="PLEASE INSTALL THE MISSING COMPONENTS BEFORE PROCEEDING...." Q
S OUT="Everyting checks out OK..."
Q
;
RTN() ; EP-ENVIRONMENT CHECK
N X,Y,Z,N,I
S N=0
W !,"Checking Required RPMS routines...",!
S X="EN1^APCHS,^XBCLS,^XBKVAR,^XLFDT,^XBFMK,^AGVAR,^AGEDIT,^APCDALV,^BIRPC"
F I=1:1:$L(X,",") S Y=$P(X,",",I) D
. X ("S Z=$T("_Y_")")
. I '$L(Z) W !?3,"The routine "_$P(Y,U,2)_" is either missing or not the current version" S N=N+1
. Q
I N W "You must meed all prerequisites before installing PCC+ Ver. 2.5!" Q 1
W "All required RPMS routines seem to be present" Q 0
;
FILE() ; EP-CHECK FOR FILES
N X,Y,Z,N,A,I
S N=0
S X="^AUPNMCR;MEDICARE ELIGIBLE,^AUPNMCD;MEDICAID ELIGIBLE,^AUTNEMPL;EMPLOYER,^AUPNPRVT;PRIVATE INSURANCE ELIGIBLE,^AUTNINS;INSURER,^AUPN3PPH;POLICY HOLDER"
S X=X_",^AUPNBMSR;BIRTH MEASUREMNT,^BWDIAG;BW RESULTS/DIAGNOSIS,^BWPCD;BW PROCEDURE,^PSRX;PRESCRIPTION,^PSDRUG;DRUG"
W !,"Checking RPMS files...",!
F I=1:1:$L(X,",") S Y=$P(X,",",I) D
. S Z=$P(Y,";"),A=$P(Y,";",2)
. I '$D(@(Z_"(0)")) W !?3,"The file "_A_" is missing" S N=N+1
. Q
I N W "You must obtain the required RPMS files before proceeding!" Q 1
W "All required RPMS files seem to be present" Q 0
;
VF(KIEN) ; EP-CHECK FOR VEN 2.5 FILES VIA LATEST KIDS BUILD
N X,Y,Z,FIEN
S FIEN="",Z=0
W !,"Checking PCC+ files...",!
F S FIEN=$O(^XPD(9.6,KIEN,4,"B",FIEN)) Q:FIEN D
. S X=$P($G(^DIC(FIEN,"%D",0)),U,5)
. I X'<3050428 Q
. S Z=Z+1
. W "The PCC+ FILE "_FIEN_" is missing or not the current version",!
. S Z=Z+1
. Q
I Z W "You must install the current PCC+ package before proceeding!" Q 1
W "All required PCC+ files seem to be present and current" Q 0
;
VR(KIEN) ; EP-CHECK FOR VEN 2.5 ROUTINES
N X,Y,Z,NAME
S NAME="",Z=0
W !,"Checking PCC+ Routines...",!
F S NAME=$O(^XPD(9.6,KIEN,"KRN",9.8,"NM","B",NAME)) Q:NAME="" D
. S X="+2^"_NAME
. X "I $T("_X_")'["";2.5""" E Q
. W "The PCC+ routine "_NAME_" is missing or not the current version",!
. S Z=Z+1
. Q
I Z W "You must install the current PCC+ package before proceeding!" Q 1
W "All required PCC+ routines seem to be present and current" Q 0
;
VOPT(KIEN) ; EP-CHECK FOR VER 2.5 OPTIONS
N X,Y,Z,NAME
S NAME="",Z=0
W !,"Checking PCC+ Options...",!
F S NAME=$O(^XPD(9.6,KIEN,"KRN",19,"NM","B",NAME)) Q:NAME="" D
. S X=+$O(^DIC(19,"B",NAME,999999999),-1)
. I $D(^DIC(19,X,0)) Q
. W "The PCC+ Option / Menu item "_NAME_" is missing",!
. S Z=Z+1
. Q
I Z W "You must install the current PCC+ package before proceeding!" Q 1
W "All required PCC+ options seem to be present" Q 0
;
VKEY(KIEN) ; EP - CHECH FOR VER 2.5 KEYS
N X,Y,Z,NAME
S NAME="",Z=0
W !,"Checking PCC+ Security Keys...",!
F S NAME=$O(^XPD(9.6,KIEN,"KRN",19.1,"NM","B",NAME)) Q:NAME="" D
. S X=+$O(^DIC(19.1,"B",NAME,999999999),-1)
. I $D(^DIC(19.1,X,0)) Q ; PATCHED BY GIS/OIT 1/15/06 ; PCC+ 2.5 PATCH 2
. W "The PCC+ Security key "_NAME_" is missing",!
. S Z=Z+1
. Q
I Z W "You must install the current PCC+ package before proceeding!" Q 1
W "All required PCC+ security keys seem to be present" Q 0
;
OS() ; EP - RETURN THE OPERATING SYSTEM INFO
N V,O,X
X ("S X="_$C(36,90,86)) I '$L(X) S (V,O)="Unknown" D OS1(V,O) Q 1
S V=$S(X["MSM":"MSM",1:"CACHE")
S O=$S(X["UNIX":"UNIX",X["AIX":"AIX",1:"WINDOWS")
D OS1(V,O)
Q 0
;
OS1(V,O) ; EP - MORE OD INFO
W !,"Checking computing environment..."
W !?3,"PCC+ Version: ",+$P($T(+2^VENPCCME),";;",2)
W !?3,"MUMPS: ",V
W !?3,"Server Operating System: ",O
Q
;
CK(CFLG) ; EP - CHECK THE CONFIGURATION
S CFG=$$CFG^VENPCCU I 'CFG W !!,"NO PRIMARY CONFIGURATION DEFINED!!! SESSION TERMINATED" S CFLG=1 Q
S STG=$G(^VEN(7.5,CFG,0)) S IP=$G(^(11)) S SM=$G(^(4)) S VER=$P($G(^(13)),U)
S CDFN=$P(STG,U,2),TYPE=$P(STG,U,3),OS=$P(STG,U,4),MV=$P(STG,U,5)
S UNI=$P(STG,U,6),DEM=$P(STG,U,8),PULL=$P(STG,U,9),PHS=$P(STG,U,10)
S MON=$P(STG,U,11),BYP=$P(STG,U,12),GP=$P(STG,U,13),DP=$P(STG,U,14)
S CMED=$P(STG,U,16),BACK=$P(STG,U,17)
S EXRX=$P(STG,U,19),AUTO=$P(STG,U,21),ART=$P(STG,U,23)
S IP(1)=$P(IP,U,1),IP(2)=$P(IP,U,2),SOCK=$P(IP,U,3)
S PATH(1)=$G(^(1)),PATH(2)=$G(^(2)),PATH(3)=$G(^(3)),PATH(4)=$G(^(12))
CRES ; CONFIG RESULTS
RP ; REQUIRED PARAMETERS
; NO REQUIRED PIECES MISSING - YET...
I OS="" W !?5,"OPERATING SYSTEM IS UNSPECIFIED" S CFLG=1
I MV="" W !?5,"MUMPS VENDOR IS UNSPECIFIED" S CFLG=1
I 'CFLG D ; MAKE SURE OS AND MUMPS VENDOR ARE VALID IN CFG FILE
. S X=$C(83,32,37)_$C(61,36,90,86)
. X X S %=$$UP^XLFSTR(%)
. I OS=1,%'["UNIX",%'["AIX" S CFLG=1 W !?5,"Invalid OS in the PCC+ config file. Should be UNIX or AIX" Q
. I OS=0,%'["NT" S CFLG=1 W !?5,"Invalid OS in the PCC+ config file. Should be 'Windows NT'" Q
. I MV=2,%'["CACHE" S CFLG=1 W !?5,"Invalid MUMPS type in the config file" Q
. I MV=1,%'["MSM" S CFLG=1 W !?5,"Invalid MUMPS type in the config file" Q
. Q
I TYPE="" W !,?5,"FACILITY TYPE IS UNSPECIFIED" S CFLG=1
I MON W !?5,"THE CHECK IN PROCESS IS IN 'MONITOR MODE'. PLEASE TURN OFF MONITOR MODE NOW." S CFLG=1
I BYP W !?5,"THE PRINT DEAMON IS BEING BYPASSED. PLEASE TURN OFF 'BYPASS MODE' NOW." S CFLG=1
I '$D(^VA(200,+GP,0)) W !?5,"MISSING/INVALID GENERIC PROVIDER" S CFLAG=1
I '$D(^DPT(+DP,0)) W !?5,"MISSING/INVALID DEMO PATIENT" S CFLAG=1
I BACK S DIE="^VEN(7.5,",DA=CFG,DR=".17////0" L +^VEN(7.5,DA):0 D ^DIE L -^VEN(7.5,DA) ; FORCE NON-TASKMAN MODE
I 'CFLG W !?5,"DEMO patient validated",!?5,"Generic provider validated"
PATH S DA=CFG F I=1:1:4 S X=$G(PATH(I)) D
. I X="" W !?5,"THE PATH TO THE ",$P("PRINT (DATA)^HEADER^TEMPORARY^USER PREFERENCE",U,I)," FILE FOLDER IS MISSING" S CFLG=1 Q
. S Y=$$SLASH^VENPCCU(X) I Y=X Q
. W !?5,"INVALID PATH: ",X I Y="" Q
. W " SUGGESTED CORRECTION: ",Y
. Q
PVAL ; NOW CHECK INTEGRITY OF EA. PATH
F I=1:1:4 S PATH=PATH(I) D
. S %=$$OPN^VENPCCP(PATH,"itest.txt","W","W 123")
. I % S CFLG=1 W !?5,"Unable to access '"_PATH(I)_"'. Check path/permissions!" Q
. K X S %=$$OPN^VENPCCP(PATH,"itest.txt","R","R X")
. I % S CFLG=1 W !?5,"Unable to access '"_PATH(I)_"'. Check path/permissions!" Q
. I $G(X)'=123 W !?5,"Read/write failue in directory '"_PATH(I) S CFLG=1 Q
. D DEL^VENPCCP(PATH(I),"itest.txt") ; CLEANUP
. Q
I CFLG Q
W !?5,"PCC+ directories are valid"
;
I $L(SM) G AUTO
V25 ; VER25
I VER G SMINFO
W !!,"You have not converted to the PCC+ Ver. 2.5 data file format yet."
W !,"(This is RECOMMENDED if converting to Print Service, Ver. 2.5)" ; PATCHED BY GIS/OIT 10/15/05 ; PCC+ 2.5 PATCH 1
W !,"Do you want to make the conversion"
S %=1 D YN^DICN
I %=1 S DIE="^VEN(7.5,",DA=CFG,DR="13.01////1" L +^VEN(7.5,DA):0 D ^DIE L -^VEN(7.5,DA) S VER=1
SMINFO ; GET SITE MGR INFO
W !!,"You have not entered your brief site manager contact information yet"
W !,"Please enter it now (e.g., 'For assistance, please call Mary Jones at ext. 4321')"
S DIE="^VEN(7.5,",DA=CFG,DR=4
L +^VEN(7.5,DA):0 D ^DIE L -^VEN(7.5,DA)
S SM=$G(^VEN(7.5,CFG,4))
AUTO ; CHECK AUTO CLEAN UP FEATURE
I AUTO G CK2
W !?5,"The auto-cleanup feature for the pending document folder"
W !,"('\print' dirrectory) has not been activated yet."
W !,"Want to activate this feature now (RECOMMENDED)"
S %=1 D YN^DICN
I %'=1 G CK2
S DIE="^VEN(7.5,",DA=CFG,DR=".21////1"
L +^VEN(7.5,DA):0 D ^DIE L -^VEN(7.5,DA)
S AUTO=1
CK2 W !,"The primary configuration is valid."
W !!,"Additional configuration info: "
RX I '$O(^PSRX(0)) W !?5,"Your PRESCRIPTION FILE is not populated. Are you using a Viking System???"
I '$O(^PSRX(0)),$P($G(^VEN(7.5,CFG,0)),U,16) W !?10,"Unable to display chronic meds or other special Rx details"
I $O(^PSRX(0)),$P($G(^VEN(7.5,CFG,0)),U,16) W !?10,"Chronic med filter will be applied to all PCC+ templates"
I '$O(^PSRX(0)),$P($G(^VEN(7.5,CFG,0)),U,17) W !?10,"Unable to display expanded sigs"
I $O(^PSRX(0)),$P($G(^VEN(7.5,CFG,0)),U,17) W !?10,"Expanded sigs will be displayed on all PCC+ templates"
I $L(TYPE) W !?10,"FACILITY TYPE: ",$$GET1^DIQ(19707.5,(CFG_","),.03)
W !?10,"VER 2.5 DATA FILE FORMAT: ",$S(VER:"YES",1:"NO")
I $L(SM) W !?10,"SITE MANAGER MESSAGE: ",SM
W !?10,"AUTOMATIC CLEANUP OF PRINT FOLDER: ",$S(AUTO:"YES",1:"NO")
W !?10,"EDIT DEMOGRAPHICS DURING CHECK-IN: ",$S(DEM:"YES",1:"NO")
W !?10,"ASK TO PULL CHART DURING CHECK-IN: ",$S(PULL:"YES",1:"NO")
W !?10,"ALWAYS PRINT HEALTH SUMMARY IN MED RECORDS: ",$S(PHS:"YES",1:"NO")
W !?10,"USE THE ADVERSE REACTION TRACKING PKG TO MONITOR ALLERGIES: ",$S(ART:"YES",1:"NO")
Q
;
VENPCCME ; IHS/OIT/GIS - PCC+ ENVIRONMENT CHECKER ;
+1 ;;2.6;PCC+;;NOV 12, 2007
+2 ;
+3 ; CONTAINS 2.5 UPDATES
+4 ;
+5 NEW OUT
+6 DO COMP(.OUT)
+7 WRITE !!,OUT
+8 QUIT
+9 ;
COMP(OUT) ; EP-REQUIRED COMPONENT CHECK-UP
+1 ; PATCHED BY GIS/OIT 10/15/05 ; PCC+ 2.5 PATCH 1
+2 NEW KIEN,TOT
+3 SET KIEN=$ORDER(^XPD(9.6,"B","PCC+ 2.5",0))
+4 IF 'KIEN
SET OUT="Unable to find the KIDS installation record for PCC+ Version 2.5!"
QUIT
+5 SET TOT=0
+6 WRITE !
IF $$RTN
SET TOT=TOT+1
+7 WRITE !
IF $$FILE
SET TOT=TOT+1
+8 WRITE !
IF $$VR(KIEN)
SET TOT=TOT+1
+9 WRITE !
IF $$VF(KIEN)
SET TOT=TOT+1
+10 WRITE !
IF $$VOPT(KIEN)
SET TOT=TOT+1
+11 WRITE !
IF $$VKEY(KIEN)
SET TOT=TOT+1
+12 IF TOT
SET OUT="PLEASE INSTALL THE MISSING COMPONENTS BEFORE PROCEEDING...."
QUIT
+13 SET OUT="Everyting checks out OK..."
+14 QUIT
+15 ;
RTN() ; EP-ENVIRONMENT CHECK
+1 NEW X,Y,Z,N,I
+2 SET N=0
+3 WRITE !,"Checking Required RPMS routines...",!
+4 SET X="EN1^APCHS,^XBCLS,^XBKVAR,^XLFDT,^XBFMK,^AGVAR,^AGEDIT,^APCDALV,^BIRPC"
+5 FOR I=1:1:$LENGTH(X,",")
SET Y=$PIECE(X,",",I)
Begin DoDot:1
+6 XECUTE ("S Z=$T("_Y_")")
+7 IF '$LENGTH(Z)
WRITE !?3,"The routine "_$PIECE(Y,U,2)_" is either missing or not the current version"
SET N=N+1
+8 QUIT
End DoDot:1
+9 IF N
WRITE "You must meed all prerequisites before installing PCC+ Ver. 2.5!"
QUIT 1
+10 WRITE "All required RPMS routines seem to be present"
QUIT 0
+11 ;
FILE() ; EP-CHECK FOR FILES
+1 NEW X,Y,Z,N,A,I
+2 SET N=0
+3 SET X="^AUPNMCR;MEDICARE ELIGIBLE,^AUPNMCD;MEDICAID ELIGIBLE,^AUTNEMPL;EMPLOYER,^AUPNPRVT;PRIVATE INSURANCE ELIGIBLE,^AUTNINS;INSURER,^AUPN3PPH;POLICY HOLDER"
+4 SET X=X_",^AUPNBMSR;BIRTH MEASUREMNT,^BWDIAG;BW RESULTS/DIAGNOSIS,^BWPCD;BW PROCEDURE,^PSRX;PRESCRIPTION,^PSDRUG;DRUG"
+5 WRITE !,"Checking RPMS files...",!
+6 FOR I=1:1:$LENGTH(X,",")
SET Y=$PIECE(X,",",I)
Begin DoDot:1
+7 SET Z=$PIECE(Y,";")
SET A=$PIECE(Y,";",2)
+8 IF '$DATA(@(Z_"(0)"))
WRITE !?3,"The file "_A_" is missing"
SET N=N+1
+9 QUIT
End DoDot:1
+10 IF N
WRITE "You must obtain the required RPMS files before proceeding!"
QUIT 1
+11 WRITE "All required RPMS files seem to be present"
QUIT 0
+12 ;
VF(KIEN) ; EP-CHECK FOR VEN 2.5 FILES VIA LATEST KIDS BUILD
+1 NEW X,Y,Z,FIEN
+2 SET FIEN=""
SET Z=0
+3 WRITE !,"Checking PCC+ files...",!
+4 FOR
SET FIEN=$ORDER(^XPD(9.6,KIEN,4,"B",FIEN))
IF FIEN
QUIT
Begin DoDot:1
+5 SET X=$PIECE($GET(^DIC(FIEN,"%D",0)),U,5)
+6 IF X'<3050428
QUIT
+7 SET Z=Z+1
+8 WRITE "The PCC+ FILE "_FIEN_" is missing or not the current version",!
+9 SET Z=Z+1
+10 QUIT
End DoDot:1
+11 IF Z
WRITE "You must install the current PCC+ package before proceeding!"
QUIT 1
+12 WRITE "All required PCC+ files seem to be present and current"
QUIT 0
+13 ;
VR(KIEN) ; EP-CHECK FOR VEN 2.5 ROUTINES
+1 NEW X,Y,Z,NAME
+2 SET NAME=""
SET Z=0
+3 WRITE !,"Checking PCC+ Routines...",!
+4 FOR
SET NAME=$ORDER(^XPD(9.6,KIEN,"KRN",9.8,"NM","B",NAME))
IF NAME=""
QUIT
Begin DoDot:1
+5 SET X="+2^"_NAME
+6 XECUTE "I $T("_X_")'["";2.5"""
IF '$TEST
QUIT
+7 WRITE "The PCC+ routine "_NAME_" is missing or not the current version",!
+8 SET Z=Z+1
+9 QUIT
End DoDot:1
+10 IF Z
WRITE "You must install the current PCC+ package before proceeding!"
QUIT 1
+11 WRITE "All required PCC+ routines seem to be present and current"
QUIT 0
+12 ;
VOPT(KIEN) ; EP-CHECK FOR VER 2.5 OPTIONS
+1 NEW X,Y,Z,NAME
+2 SET NAME=""
SET Z=0
+3 WRITE !,"Checking PCC+ Options...",!
+4 FOR
SET NAME=$ORDER(^XPD(9.6,KIEN,"KRN",19,"NM","B",NAME))
IF NAME=""
QUIT
Begin DoDot:1
+5 SET X=+$ORDER(^DIC(19,"B",NAME,999999999),-1)
+6 IF $DATA(^DIC(19,X,0))
QUIT
+7 WRITE "The PCC+ Option / Menu item "_NAME_" is missing",!
+8 SET Z=Z+1
+9 QUIT
End DoDot:1
+10 IF Z
WRITE "You must install the current PCC+ package before proceeding!"
QUIT 1
+11 WRITE "All required PCC+ options seem to be present"
QUIT 0
+12 ;
VKEY(KIEN) ; EP - CHECH FOR VER 2.5 KEYS
+1 NEW X,Y,Z,NAME
+2 SET NAME=""
SET Z=0
+3 WRITE !,"Checking PCC+ Security Keys...",!
+4 FOR
SET NAME=$ORDER(^XPD(9.6,KIEN,"KRN",19.1,"NM","B",NAME))
IF NAME=""
QUIT
Begin DoDot:1
+5 SET X=+$ORDER(^DIC(19.1,"B",NAME,999999999),-1)
+6 ; PATCHED BY GIS/OIT 1/15/06 ; PCC+ 2.5 PATCH 2
IF $DATA(^DIC(19.1,X,0))
QUIT
+7 WRITE "The PCC+ Security key "_NAME_" is missing",!
+8 SET Z=Z+1
+9 QUIT
End DoDot:1
+10 IF Z
WRITE "You must install the current PCC+ package before proceeding!"
QUIT 1
+11 WRITE "All required PCC+ security keys seem to be present"
QUIT 0
+12 ;
OS() ; EP - RETURN THE OPERATING SYSTEM INFO
+1 NEW V,O,X
+2 XECUTE ("S X="_$CHAR(36,90,86))
IF '$LENGTH(X)
SET (V,O)="Unknown"
DO OS1(V,O)
QUIT 1
+3 SET V=$SELECT(X["MSM":"MSM",1:"CACHE")
+4 SET O=$SELECT(X["UNIX":"UNIX",X["AIX":"AIX",1:"WINDOWS")
+5 DO OS1(V,O)
+6 QUIT 0
+7 ;
OS1(V,O) ; EP - MORE OD INFO
+1 WRITE !,"Checking computing environment..."
+2 WRITE !?3,"PCC+ Version: ",+$PIECE($TEXT(+2^VENPCCME),";;",2)
+3 WRITE !?3,"MUMPS: ",V
+4 WRITE !?3,"Server Operating System: ",O
+5 QUIT
+6 ;
CK(CFLG) ; EP - CHECK THE CONFIGURATION
+1 SET CFG=$$CFG^VENPCCU
IF 'CFG
WRITE !!,"NO PRIMARY CONFIGURATION DEFINED!!! SESSION TERMINATED"
SET CFLG=1
QUIT
+2 SET STG=$GET(^VEN(7.5,CFG,0))
SET IP=$GET(^(11))
SET SM=$GET(^(4))
SET VER=$PIECE($GET(^(13)),U)
+3 SET CDFN=$PIECE(STG,U,2)
SET TYPE=$PIECE(STG,U,3)
SET OS=$PIECE(STG,U,4)
SET MV=$PIECE(STG,U,5)
+4 SET UNI=$PIECE(STG,U,6)
SET DEM=$PIECE(STG,U,8)
SET PULL=$PIECE(STG,U,9)
SET PHS=$PIECE(STG,U,10)
+5 SET MON=$PIECE(STG,U,11)
SET BYP=$PIECE(STG,U,12)
SET GP=$PIECE(STG,U,13)
SET DP=$PIECE(STG,U,14)
+6 SET CMED=$PIECE(STG,U,16)
SET BACK=$PIECE(STG,U,17)
+7 SET EXRX=$PIECE(STG,U,19)
SET AUTO=$PIECE(STG,U,21)
SET ART=$PIECE(STG,U,23)
+8 SET IP(1)=$PIECE(IP,U,1)
SET IP(2)=$PIECE(IP,U,2)
SET SOCK=$PIECE(IP,U,3)
+9 SET PATH(1)=$GET(^(1))
SET PATH(2)=$GET(^(2))
SET PATH(3)=$GET(^(3))
SET PATH(4)=$GET(^(12))
CRES ; CONFIG RESULTS
RP ; REQUIRED PARAMETERS
+1 ; NO REQUIRED PIECES MISSING - YET...
+2 IF OS=""
WRITE !?5,"OPERATING SYSTEM IS UNSPECIFIED"
SET CFLG=1
+3 IF MV=""
WRITE !?5,"MUMPS VENDOR IS UNSPECIFIED"
SET CFLG=1
+4 ; MAKE SURE OS AND MUMPS VENDOR ARE VALID IN CFG FILE
IF 'CFLG
Begin DoDot:1
+5 SET X=$CHAR(83,32,37)_$CHAR(61,36,90,86)
+6 XECUTE X
SET %=$$UP^XLFSTR(%)
+7 IF OS=1
IF %'["UNIX"
IF %'["AIX"
SET CFLG=1
WRITE !?5,"Invalid OS in the PCC+ config file. Should be UNIX or AIX"
QUIT
+8 IF OS=0
IF %'["NT"
SET CFLG=1
WRITE !?5,"Invalid OS in the PCC+ config file. Should be 'Windows NT'"
QUIT
+9 IF MV=2
IF %'["CACHE"
SET CFLG=1
WRITE !?5,"Invalid MUMPS type in the config file"
QUIT
+10 IF MV=1
IF %'["MSM"
SET CFLG=1
WRITE !?5,"Invalid MUMPS type in the config file"
QUIT
+11 QUIT
End DoDot:1
+12 IF TYPE=""
WRITE !,?5,"FACILITY TYPE IS UNSPECIFIED"
SET CFLG=1
+13 IF MON
WRITE !?5,"THE CHECK IN PROCESS IS IN 'MONITOR MODE'. PLEASE TURN OFF MONITOR MODE NOW."
SET CFLG=1
+14 IF BYP
WRITE !?5,"THE PRINT DEAMON IS BEING BYPASSED. PLEASE TURN OFF 'BYPASS MODE' NOW."
SET CFLG=1
+15 IF '$DATA(^VA(200,+GP,0))
WRITE !?5,"MISSING/INVALID GENERIC PROVIDER"
SET CFLAG=1
+16 IF '$DATA(^DPT(+DP,0))
WRITE !?5,"MISSING/INVALID DEMO PATIENT"
SET CFLAG=1
+17 ; FORCE NON-TASKMAN MODE
IF BACK
SET DIE="^VEN(7.5,"
SET DA=CFG
SET DR=".17////0"
LOCK +^VEN(7.5,DA):0
DO ^DIE
LOCK -^VEN(7.5,DA)
+18 IF 'CFLG
WRITE !?5,"DEMO patient validated",!?5,"Generic provider validated"
PATH SET DA=CFG
FOR I=1:1:4
SET X=$GET(PATH(I))
Begin DoDot:1
+1 IF X=""
WRITE !?5,"THE PATH TO THE ",$PIECE("PRINT (DATA)^HEADER^TEMPORARY^USER PREFERENCE",U,I)," FILE FOLDER IS MISSING"
SET CFLG=1
QUIT
+2 SET Y=$$SLASH^VENPCCU(X)
IF Y=X
QUIT
+3 WRITE !?5,"INVALID PATH: ",X
IF Y=""
QUIT
+4 WRITE " SUGGESTED CORRECTION: ",Y
+5 QUIT
End DoDot:1
PVAL ; NOW CHECK INTEGRITY OF EA. PATH
+1 FOR I=1:1:4
SET PATH=PATH(I)
Begin DoDot:1
+2 SET %=$$OPN^VENPCCP(PATH,"itest.txt","W","W 123")
+3 IF %
SET CFLG=1
WRITE !?5,"Unable to access '"_PATH(I)_"'. Check path/permissions!"
QUIT
+4 KILL X
SET %=$$OPN^VENPCCP(PATH,"itest.txt","R","R X")
+5 IF %
SET CFLG=1
WRITE !?5,"Unable to access '"_PATH(I)_"'. Check path/permissions!"
QUIT
+6 IF $GET(X)'=123
WRITE !?5,"Read/write failue in directory '"_PATH(I)
SET CFLG=1
QUIT
+7 ; CLEANUP
DO DEL^VENPCCP(PATH(I),"itest.txt")
+8 QUIT
End DoDot:1
+9 IF CFLG
QUIT
+10 WRITE !?5,"PCC+ directories are valid"
+11 ;
+12 IF $LENGTH(SM)
GOTO AUTO
V25 ; VER25
+1 IF VER
GOTO SMINFO
+2 WRITE !!,"You have not converted to the PCC+ Ver. 2.5 data file format yet."
+3 ; PATCHED BY GIS/OIT 10/15/05 ; PCC+ 2.5 PATCH 1
WRITE !,"(This is RECOMMENDED if converting to Print Service, Ver. 2.5)"
+4 WRITE !,"Do you want to make the conversion"
+5 SET %=1
DO YN^DICN
+6 IF %=1
SET DIE="^VEN(7.5,"
SET DA=CFG
SET DR="13.01////1"
LOCK +^VEN(7.5,DA):0
DO ^DIE
LOCK -^VEN(7.5,DA)
SET VER=1
SMINFO ; GET SITE MGR INFO
+1 WRITE !!,"You have not entered your brief site manager contact information yet"
+2 WRITE !,"Please enter it now (e.g., 'For assistance, please call Mary Jones at ext. 4321')"
+3 SET DIE="^VEN(7.5,"
SET DA=CFG
SET DR=4
+4 LOCK +^VEN(7.5,DA):0
DO ^DIE
LOCK -^VEN(7.5,DA)
+5 SET SM=$GET(^VEN(7.5,CFG,4))
AUTO ; CHECK AUTO CLEAN UP FEATURE
+1 IF AUTO
GOTO CK2
+2 WRITE !?5,"The auto-cleanup feature for the pending document folder"
+3 WRITE !,"('\print' dirrectory) has not been activated yet."
+4 WRITE !,"Want to activate this feature now (RECOMMENDED)"
+5 SET %=1
DO YN^DICN
+6 IF %'=1
GOTO CK2
+7 SET DIE="^VEN(7.5,"
SET DA=CFG
SET DR=".21////1"
+8 LOCK +^VEN(7.5,DA):0
DO ^DIE
LOCK -^VEN(7.5,DA)
+9 SET AUTO=1
CK2 WRITE !,"The primary configuration is valid."
+1 WRITE !!,"Additional configuration info: "
RX IF '$ORDER(^PSRX(0))
WRITE !?5,"Your PRESCRIPTION FILE is not populated. Are you using a Viking System???"
+1 IF '$ORDER(^PSRX(0))
IF $PIECE($GET(^VEN(7.5,CFG,0)),U,16)
WRITE !?10,"Unable to display chronic meds or other special Rx details"
+2 IF $ORDER(^PSRX(0))
IF $PIECE($GET(^VEN(7.5,CFG,0)),U,16)
WRITE !?10,"Chronic med filter will be applied to all PCC+ templates"
+3 IF '$ORDER(^PSRX(0))
IF $PIECE($GET(^VEN(7.5,CFG,0)),U,17)
WRITE !?10,"Unable to display expanded sigs"
+4 IF $ORDER(^PSRX(0))
IF $PIECE($GET(^VEN(7.5,CFG,0)),U,17)
WRITE !?10,"Expanded sigs will be displayed on all PCC+ templates"
+5 IF $LENGTH(TYPE)
WRITE !?10,"FACILITY TYPE: ",$$GET1^DIQ(19707.5,(CFG_","),.03)
+6 WRITE !?10,"VER 2.5 DATA FILE FORMAT: ",$SELECT(VER:"YES",1:"NO")
+7 IF $LENGTH(SM)
WRITE !?10,"SITE MANAGER MESSAGE: ",SM
+8 WRITE !?10,"AUTOMATIC CLEANUP OF PRINT FOLDER: ",$SELECT(AUTO:"YES",1:"NO")
+9 WRITE !?10,"EDIT DEMOGRAPHICS DURING CHECK-IN: ",$SELECT(DEM:"YES",1:"NO")
+10 WRITE !?10,"ASK TO PULL CHART DURING CHECK-IN: ",$SELECT(PULL:"YES",1:"NO")
+11 WRITE !?10,"ALWAYS PRINT HEALTH SUMMARY IN MED RECORDS: ",$SELECT(PHS:"YES",1:"NO")
+12 WRITE !?10,"USE THE ADVERSE REACTION TRACKING PKG TO MONITOR ALLERGIES: ",$SELECT(ART:"YES",1:"NO")
+13 QUIT
+14 ;
