AZFMENV ;IHS/OIT/ENM - PHARMACY ENVIRONMENT CHECK [ 02/13/2006 2:54 PM ]
;;IHS PHARMACY MODIFICATIONS;;
ALLPKG ;LOOP ON PACKAGE FILE "B" XREF
S AZFMSITE="",PKRN="",AZASUFAC="",AZFMCT=1
I $G(DUZ)'>0!('$D(DUZ(0))) W !,"YOUR DUZ VARIABLES ARE NOT DEFINED! AT THE PROMPT, ENTER 'D ^XUP'",!,"AND RUN THIS PROGRAM AFTERWARDS.",! Q
I $G(DUZ(2))>0 S AZFMSITE=$P($G(^DIC(4,DUZ(2),0)),"^",1),AZASUFAC=$P($G(^AUTTLOC(DUZ(2),0)),"^",10) W !,"SITE NAME: ",AZFMSITE_" "_AZASUFAC,!
W !,"SOURCE: Package File - Package Name - Current Version - Last Patch",!
W !,"PACKAGE NAME",?40,"CURRENT",?50,"LATEST",!,?40,"VERSION",?50,"PATCH/DATE",!,"------------",?40,"---------------",?50,"----------"
S AZFM="",LPATCH="",LPAT=""
F NA=0:0 S AZFM=$O(^DIC(9.4,"B",AZFM)) Q:AZFM="" D PKGWR
;D XBC ;MOVE XTMP GBL TO UNIX
D OUT
Q
PKGWR S AZVER=$$VERSION^XPDUTL(AZFM),LPATCH=$$LAST^AZFMENV2(AZFM,AZVER),LPATCH=$S(LPATCH'[-1:LPATCH,1:"") D DTFIX
I LPATCH="" S LPAT=""
I LPATCH]"" S LPAT=$P(LPATCH,"^",1)_" / "_$P(LPATCH,"^",2)
;GRAB THE PREFIX
S PKRN=$O(^DIC(9.4,"B",AZFM,"")) S:'PKRN PKRN=""
S PREFIX=$P($G(^DIC(9.4,PKRN,0)),"^",2)
W !,AZFM_"-("_PREFIX_")",?40,AZVER,?50,LPAT I AZFM="IHS V FILES 200 CONVERSION" D PCC2
S ^AZFMENV(AZFMCT)=AZASUFAC_"^"_AZFM_"^"_AZVER_"^"_LPAT
S AZFMCT=AZFMCT+1
Q
PCC2 S PCCF200=$P($G(^AUTTSITE(1,0)),"^",22) I PCCF200="" S PCCF200="No"
I PCCF200=1 S PCCF200="YES"
W !,?30,"IHS V Files 200 Conversion Done?// ",PCCF200
Q
DOONE ;DO ONE RECORD FOR TESTING ONLY
S AZFM="ADVERSE REACTION TRACKING" D PKGWR
D OUT
Q
DTFIX Q:'+LPATCH
S Y=$P(LPATCH,"^",2) X ^DD("DD") S $P(LPATCH,"^",2)=" "_Y
Q
OUT ;
W !!,"END OF PACKAGE FILE PROFILE CHECK!"
K NA,AZFM,AZVER,LPATCH,PCCF200,AZASUFAC
Q
PFIX S AZFMSITE="",PKRN=""
I $G(DUZ)'>0!('$D(DUZ(0))) W !,"YOUR DUZ VARIABLES ARE NOT DEFINED! AT THE PROMPT, ENTER 'D ^XUP'",!,"AND RUN THIS PROGRAM AFTERWARDS.",! Q
I $G(DUZ(2))>0 S AZFMSITE=$P($G(^DIC(4,DUZ(2),0)),"^",1) W !,"SITE NAME: ",AZFMSITE,!
W !,"SOURCE: Package File - Package Name - Current Version - Last Patch",!
W !,"PACKAGE NAME",?40,"CURRENT",?50,"LATEST",!,?40,"VERSION",?50,"PATCH/DATE",!,"------------",?40,"---------------",?50,"----------"
S AZFM="",LPATCH="",LPAT=""
F NA=0:0 S AZFM=$O(^DIC(9.4,"B",AZFM)) Q:AZFM="" D PGWR
D OP2
D OUT
Q
PGWR S AZVER=$$VERSION^XPDUTL(AZFM),LPATCH=$$LAST^AZFMENV2(AZFM,AZVER),LPATCH=$S(LPATCH'[-1:LPATCH,1:"") D DTFIX
I LPATCH="" S LPAT=""
I LPATCH]"" S LPAT=$P(LPATCH,"^",1)_" / "_$P(LPATCH,"^",2)
;GRAB THE PREFIX
S PKRN=$O(^DIC(9.4,"B",AZFM,"")) S:'PKRN PKRN=""
S PREFIX=$P($G(^DIC(9.4,PKRN,0)),"^",2)
;W !,AZFM_"-("_PREFIX_")",?40,AZVER,?50,LPAT I AZFM="IHS V FILES 200 CONVERSION" D PCC2
S ENM(PREFIX)=AZFM_"^"_AZVER_"^"_LPAT
Q
OP2 ;
S PFX="",AZFM1="",AZVER1="",APAT1=""
F S PFX=$O(ENM(PFX)) Q:'PFX S AZFM1=$P($G(ENM(PFX)),"^",1),AZVER1=$P($G(ENM(PFX)),"^",2),APAT1=$P($G(ENM(PFX)),"^",3) D LS
Q
LS ;
W !,AZFM1_"-("_PFX_")",?40,AZVER1,?50,LPAT1 I AZFM1="IHS V FILES 200 CONVERSION" D PCC2
Q
;SAVE PACKAGE STATUS DATA TO A UNIX FILE
XBC ;XBGL=GLOBAL NAME,XBUF=UNIX DIRECTORY,XBFN=UNIX FILE NAME
;Next line will try to send file to 92.145 with ftpsend
;
;S XBGL="AZFMENV",XBUF="127.0.0.1",XBFN="AZFMENV"_AZASUFAC_".G",XBMED="F"
S XBGL="AZFMENV(",XBFN="AZFMENV"_AZASUFAC_".G",XBMED="F"
S XBS1="AZFMSITETRACK"
;S XBGL="AZFMENV",XBUF="/usr2/ihs/emoore",XBFN="AZFMENV"_AZASUFAC_".G",XBMED="F"
D ^XBGSAVE
Q
AZFMENV ;IHS/OIT/ENM - PHARMACY ENVIRONMENT CHECK [ 02/13/2006 2:54 PM ]
+1 ;;IHS PHARMACY MODIFICATIONS;;
ALLPKG ;LOOP ON PACKAGE FILE "B" XREF
+1 SET AZFMSITE=""
SET PKRN=""
SET AZASUFAC=""
SET AZFMCT=1
+2 IF $GET(DUZ)'>0!('$DATA(DUZ(0)))
WRITE !,"YOUR DUZ VARIABLES ARE NOT DEFINED! AT THE PROMPT, ENTER 'D ^XUP'",!,"AND RUN THIS PROGRAM AFTERWARDS.",!
QUIT
+3 IF $GET(DUZ(2))>0
SET AZFMSITE=$PIECE($GET(^DIC(4,DUZ(2),0)),"^",1)
SET AZASUFAC=$PIECE($GET(^AUTTLOC(DUZ(2),0)),"^",10)
WRITE !,"SITE NAME: ",AZFMSITE_" "_AZASUFAC,!
+4 WRITE !,"SOURCE: Package File - Package Name - Current Version - Last Patch",!
+5 WRITE !,"PACKAGE NAME",?40,"CURRENT",?50,"LATEST",!,?40,"VERSION",?50,"PATCH/DATE",!,"------------",?40,"---------------",?50,"----------"
+6 SET AZFM=""
SET LPATCH=""
SET LPAT=""
+7 FOR NA=0:0
SET AZFM=$ORDER(^DIC(9.4,"B",AZFM))
IF AZFM=""
QUIT
DO PKGWR
+8 ;D XBC ;MOVE XTMP GBL TO UNIX
+9 DO OUT
+10 QUIT
PKGWR SET AZVER=$$VERSION^XPDUTL(AZFM)
SET LPATCH=$$LAST^AZFMENV2(AZFM,AZVER)
SET LPATCH=$SELECT(LPATCH'[-1:LPATCH,1:"")
DO DTFIX
+1 IF LPATCH=""
SET LPAT=""
+2 IF LPATCH]""
SET LPAT=$PIECE(LPATCH,"^",1)_" / "_$PIECE(LPATCH,"^",2)
+3 ;GRAB THE PREFIX
+4 SET PKRN=$ORDER(^DIC(9.4,"B",AZFM,""))
IF 'PKRN
SET PKRN=""
+5 SET PREFIX=$PIECE($GET(^DIC(9.4,PKRN,0)),"^",2)
+6 WRITE !,AZFM_"-("_PREFIX_")",?40,AZVER,?50,LPAT
IF AZFM="IHS V FILES 200 CONVERSION"
DO PCC2
+7 SET ^AZFMENV(AZFMCT)=AZASUFAC_"^"_AZFM_"^"_AZVER_"^"_LPAT
+8 SET AZFMCT=AZFMCT+1
+9 QUIT
PCC2 SET PCCF200=$PIECE($GET(^AUTTSITE(1,0)),"^",22)
IF PCCF200=""
SET PCCF200="No"
+1 IF PCCF200=1
SET PCCF200="YES"
+2 WRITE !,?30,"IHS V Files 200 Conversion Done?// ",PCCF200
+3 QUIT
DOONE ;DO ONE RECORD FOR TESTING ONLY
+1 SET AZFM="ADVERSE REACTION TRACKING"
DO PKGWR
+2 DO OUT
+3 QUIT
DTFIX IF '+LPATCH
QUIT
+1 SET Y=$PIECE(LPATCH,"^",2)
XECUTE ^DD("DD")
SET $PIECE(LPATCH,"^",2)=" "_Y
+2 QUIT
OUT ;
+1 WRITE !!,"END OF PACKAGE FILE PROFILE CHECK!"
+2 KILL NA,AZFM,AZVER,LPATCH,PCCF200,AZASUFAC
+3 QUIT
PFIX SET AZFMSITE=""
SET PKRN=""
+1 IF $GET(DUZ)'>0!('$DATA(DUZ(0)))
WRITE !,"YOUR DUZ VARIABLES ARE NOT DEFINED! AT THE PROMPT, ENTER 'D ^XUP'",!,"AND RUN THIS PROGRAM AFTERWARDS.",!
QUIT
+2 IF $GET(DUZ(2))>0
SET AZFMSITE=$PIECE($GET(^DIC(4,DUZ(2),0)),"^",1)
WRITE !,"SITE NAME: ",AZFMSITE,!
+3 WRITE !,"SOURCE: Package File - Package Name - Current Version - Last Patch",!
+4 WRITE !,"PACKAGE NAME",?40,"CURRENT",?50,"LATEST",!,?40,"VERSION",?50,"PATCH/DATE",!,"------------",?40,"---------------",?50,"----------"
+5 SET AZFM=""
SET LPATCH=""
SET LPAT=""
+6 FOR NA=0:0
SET AZFM=$ORDER(^DIC(9.4,"B",AZFM))
IF AZFM=""
QUIT
DO PGWR
+7 DO OP2
+8 DO OUT
+9 QUIT
PGWR SET AZVER=$$VERSION^XPDUTL(AZFM)
SET LPATCH=$$LAST^AZFMENV2(AZFM,AZVER)
SET LPATCH=$SELECT(LPATCH'[-1:LPATCH,1:"")
DO DTFIX
+1 IF LPATCH=""
SET LPAT=""
+2 IF LPATCH]""
SET LPAT=$PIECE(LPATCH,"^",1)_" / "_$PIECE(LPATCH,"^",2)
+3 ;GRAB THE PREFIX
+4 SET PKRN=$ORDER(^DIC(9.4,"B",AZFM,""))
IF 'PKRN
SET PKRN=""
+5 SET PREFIX=$PIECE($GET(^DIC(9.4,PKRN,0)),"^",2)
+6 ;W !,AZFM_"-("_PREFIX_")",?40,AZVER,?50,LPAT I AZFM="IHS V FILES 200 CONVERSION" D PCC2
+7 SET ENM(PREFIX)=AZFM_"^"_AZVER_"^"_LPAT
+8 QUIT
OP2 ;
+1 SET PFX=""
SET AZFM1=""
SET AZVER1=""
SET APAT1=""
+2 FOR
SET PFX=$ORDER(ENM(PFX))
IF 'PFX
QUIT
SET AZFM1=$PIECE($GET(ENM(PFX)),"^",1)
SET AZVER1=$PIECE($GET(ENM(PFX)),"^",2)
SET APAT1=$PIECE($GET(ENM(PFX)),"^",3)
DO LS
+3 QUIT
LS ;
+1 WRITE !,AZFM1_"-("_PFX_")",?40,AZVER1,?50,LPAT1
IF AZFM1="IHS V FILES 200 CONVERSION"
DO PCC2
+2 QUIT
+3 ;SAVE PACKAGE STATUS DATA TO A UNIX FILE
XBC ;XBGL=GLOBAL NAME,XBUF=UNIX DIRECTORY,XBFN=UNIX FILE NAME
+1 ;Next line will try to send file to 92.145 with ftpsend
+2 ;
+3 ;S XBGL="AZFMENV",XBUF="127.0.0.1",XBFN="AZFMENV"_AZASUFAC_".G",XBMED="F"
+4 SET XBGL="AZFMENV("
SET XBFN="AZFMENV"_AZASUFAC_".G"
SET XBMED="F"
+5 SET XBS1="AZFMSITETRACK"
+6 ;S XBGL="AZFMENV",XBUF="/usr2/ihs/emoore",XBFN="AZFMENV"_AZASUFAC_".G",XBMED="F"
+7 DO ^XBGSAVE
+8 QUIT
