AG71A10.m

AG71A10 ;VNGT/HS/BEE - Patient Registration 7.1 PATCH 10 POST INSTALL ; JUL 05, 2011   

 ;;7.1;PATIENT REGISTRATION;**10**;AUG 25, 2005;Build 7

 ;

 Q

 ;

POST ;EP - From KIDS.

 ;

 N MMSG

 ;

 D TS,BMES^XPDUTL("Beginning post-install routine (POST^AG71A10).")

 ;

 ;Add MPI MENU to AGMENU

 D ADDMENU

 ;

 ;Deliver Mail Message

 S MMSG=" --- AG v 7.1 Patch 10 has been installed into this uci --- "

 D MAIL(MMSG)

 ;

 D TS,BMES^XPDUTL("AG v 7.1 Patch 10 Post-install is complete.")

 Q

 ;

ADDMENU ;EP - ADD MPI MENU TO AGMENU

 ;

 ;I $$VCHK^AG72ENMP("AG","7.2",2) D  ;CHECK FOR VERSION 2 INSTALLED

 I $$VERSION^XPDUTL("AG")>7.1 D  ;Check for version 7.2 installed

 . N RET

 . S RET=$$ADD^XPDMENU("AGMENU","AGMP HLO MPI MANAGER OPTIONS","MPI",13)

 . D BMES^XPDUTL($$CJ^XLFSTR("MPI Manager Options [AGMP HLO MPI MANAGER OPTIONS] option",80))

 . D BMES^XPDUTL($$CJ^XLFSTR("was"_$S(RET:"",1:" NOT")_" added to the Patient Registration Menu [AGMENU] ",80))

 Q

 ;

MAIL(MMSG) ;Send install mail message.

 N %,CNT,DIFROM,XMSUB,XMDUZ,XMTEXT,XMY

 K ^TMP("AG71MS",$J)

 S ^TMP("AG71MS",$J,1)=$G(MMSG)

 S ^TMP("AG71MS",$J,2)=" "

 S CNT=3

 ;

 S %=0

 Q:$G(XPDA)=""

 Q:$G(XPDBLD)=""

 F  S %=$O(^XTMP("XPDI",XPDA,"BLD",XPDBLD,1,%)) Q:'%   S ^TMP("AG71MS",$J,(%+CNT))=" "_^(%,0)

 S XMSUB=$P($P($T(+1),";",2)," ",3,99),XMDUZ=$S($G(DUZ):DUZ,1:.5),XMTEXT="^TMP(""AG71MS"",$J,",XMY(1)="",XMY(DUZ)=""

 F %="AGZMENU","XUMGR","XUPROG","XUPROGMODE" D SINGLE(%)

 D ^XMD

 K ^TMP("AG71MS",$J)

 Q

SINGLE(K) ;EP - Get holders of a single key K.

 N Y

 S Y=0

 Q:'$D(^XUSEC(K))

 F  S Y=$O(^XUSEC(K,Y)) Q:'Y  S XMY(Y)=""

 Q

 ;

TS D MES^XPDUTL($$HTE^XLFDT($H)) Q

AG71A10   ;VNGT/HS/BEE - Patient Registration 7.1 PATCH 10 POST INSTALL ; JUL 05, 2011   

 +1       ;;7.1;PATIENT REGISTRATION;**10**;AUG 25, 2005;Build 7

 +2       ;

 +3        QUIT 

 +4       ;

POST      ;EP - From KIDS.

 +1       ;

 +2        NEW MMSG

 +3       ;

 +4        DO TS

           DO BMES^XPDUTL("Beginning post-install routine (POST^AG71A10).")

 +5       ;

 +6       ;Add MPI MENU to AGMENU

 +7        DO ADDMENU

 +8       ;

 +9       ;Deliver Mail Message

 +10       SET MMSG=" --- AG v 7.1 Patch 10 has been installed into this uci --- "

 +11       DO MAIL(MMSG)

 +12      ;

 +13       DO TS

           DO BMES^XPDUTL("AG v 7.1 Patch 10 Post-install is complete.")

 +14       QUIT 

 +15      ;

ADDMENU   ;EP - ADD MPI MENU TO AGMENU

 +1       ;

 +2       ;I $$VCHK^AG72ENMP("AG","7.2",2) D  ;CHECK FOR VERSION 2 INSTALLED

 +3       ;Check for version 7.2 installed

           IF $$VERSION^XPDUTL("AG")>7.1

               Begin DoDot:1

 +4                NEW RET

 +5                SET RET=$$ADD^XPDMENU("AGMENU","AGMP HLO MPI MANAGER OPTIONS","MPI",13)

 +6                DO BMES^XPDUTL($$CJ^XLFSTR("MPI Manager Options [AGMP HLO MPI MANAGER OPTIONS] option",80))

 +7                DO BMES^XPDUTL($$CJ^XLFSTR("was"_$SELECT(RET:"",1:" NOT")_" added to the Patient Registration Menu [AGMENU] ",80))

               End DoDot:1

 +8        QUIT 

 +9       ;

MAIL(MMSG) ;Send install mail message.

 +1        NEW %,CNT,DIFROM,XMSUB,XMDUZ,XMTEXT,XMY

 +2        KILL ^TMP("AG71MS",$JOB)

 +3        SET ^TMP("AG71MS",$JOB,1)=$GET(MMSG)

 +4        SET ^TMP("AG71MS",$JOB,2)=" "

 +5        SET CNT=3

 +6       ;

 +7        SET %=0

 +8        IF $GET(XPDA)=""

               QUIT 

 +9        IF $GET(XPDBLD)=""

               QUIT 

 +10       FOR 

               SET %=$ORDER(^XTMP("XPDI",XPDA,"BLD",XPDBLD,1,%))

               IF '%

                   QUIT 

               SET ^TMP("AG71MS",$JOB,(%+CNT))=" "_^(%,0)

 +11       SET XMSUB=$PIECE($PIECE($TEXT(+1),";",2)," ",3,99)

           SET XMDUZ=$SELECT($GET(DUZ):DUZ,1:.5)

           SET XMTEXT="^TMP(""AG71MS"",$J,"

           SET XMY(1)=""

           SET XMY(DUZ)=""

 +12       FOR %="AGZMENU","XUMGR","XUPROG","XUPROGMODE"

               DO SINGLE(%)

 +13       DO ^XMD

 +14       KILL ^TMP("AG71MS",$JOB)

 +15       QUIT 

SINGLE(K) ;EP - Get holders of a single key K.

 +1        NEW Y

 +2        SET Y=0

 +3        IF '$DATA(^XUSEC(K))

               QUIT 

 +4        FOR 

               SET Y=$ORDER(^XUSEC(K,Y))

               IF 'Y

                   QUIT 

               SET XMY(Y)=""

 +5        QUIT 

 +6       ;

TS         DO MES^XPDUTL($$HTE^XLFDT($HOROLOG))

           QUIT