AGTXCONF.m

AGTXCONF ;IHS/ASDS/EFG - CONFIGURE AGTX FOR BEFORE or AFTER P14 ;  

 ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 ;

INTRO ;

 ;;In an attempt to foresee unknown configurations, this option

 ;;allows you to toggle the before and after Patch 14 export

 ;;formats.  This is done simply by restoring 7 routines that

 ;;were saved before the KIDS install of Patch 14.

 ;;

 ;;Before the install of Patch 14, 7 routines were saved into the

 ;;"AGTXX*" namespace.  After the install of Patch 14, the same 7

 ;;patched routines were saved into the "AGTXZ*" namespace.

 ;;  

 ;;Don't worry, you won't be asked for namespaces.  You'll just be

 ;;asked for the 'BEFORE P14' or 'AFTER P14' configuration.

 ;;###

 D HELP^XBHELP("INTRO","AGTXCONF")

 NEW AGCONFIG

 S AGCONFIG=$$CONFIG

 W !!,"It appears that your current configuration is '",AGCONFIG," P14'."

 I AGCONFIG="UNKNOWN" W !,"I don't know what to do.",!,"Some of the 7 are 'BEFORE' and some are 'AFTER'.",!,"You better call for help....." Q

 W !,"Do you want to change your export formats to '",$S(AGCONFIG="AFTER":"BEFORE",1:"AFTER")," P14'?"

 Q:'$$DIR^XBDIR("YO","Proceed","N","","Do you want to change your export formats to '"_$S(AGCONFIG="AFTER":"BEFORE",1:"AFTER")_" P14'? (Y/N)")

 D @$S(AGCONFIG="AFTER":"BEFLOD",1:"AFTLOD")

 Q

BEFLOD ;Restore the before p14 routines.

 NEW AG,XCN,XCNP,DIE,DIF

 F AG=1:1:7 D KT S X=$P($T(BEF+AG),";",4),(XCN,XCNP)=0,(DIE,DIF)="^TMP(""AGTXCONF"",$J," W !,"Loading '",X,"'..." X ^%ZOSF("LOAD") S X=$P($T(BEF+AG),";",3) X ^%ZOSF("SAVE") W "Saved as '",X,"'."

 D KT

 Q

AFTLOD ;Restore the after p14 routines.

 NEW AG,XCN,XCNP,DIE,DIF

 F AG=1:1:7 D KT S X=$P($T(AFT+AG),";",4),(XCN,XCNP)=0,(DIE,DIF)="^TMP(""AGTXCONF"",$J," W !,"Loading '",X,"'..." X ^%ZOSF("LOAD") S X=$P($T(AFT+AG),";",3) X ^%ZOSF("SAVE") W "Saved as '",X,"'."

 D KT

 Q

KT KILL ^TMP("AGTXCONF",$J)

 Q

CONFIG() ;

 NEW AGP,Y

 S Y=""

 F AG=1:1:7 S X=$P($T(BEF+AG),";",3) F AGP=14:1 Q:'$$INSTALLD^AG6P16("AG*6.0*"_AGP)  S Y=Y_($P($T(+2^@X),";",5)[AGP)

 Q $S('Y:"BEFORE",1:"AFTER")

BEF ;These are the "before p14" routines.

 ;;AGTX1;AGTXX1

 ;;AGTX2;AGTXX2

 ;;AGTX3;AGTXX3

 ;;AGTX4;AGTXX4

 ;;AGTX5;AGTXX5

 ;;AGTXST;AGTXX6

 ;;AGTXTAPE;AGTXX7

AFT ; These are the "after p14" routines.

 ;;AGTX1;AGTXZ1

 ;;AGTX2;AGTXZ2

 ;;AGTX3;AGTXZ3

 ;;AGTX4;AGTXZ4

 ;;AGTX5;AGTXZ5

 ;;AGTXST;AGTXZ6

 ;;AGTXTAPE;AGTXZ7

 ;

BEFSAV ;EP - From P14 install.  Save the before p14 routines.

 NEW AG,AGM,XCN,XCNP,DIE,DIF

 F AG=1:1:7 D

 . D KT

 . S X=$P($T(BEF+AG),";",3),(XCN,XCNP)=0,(DIE,DIF)="^TMP(""AGTXCONF"",$J,"

 . S AGM="Loading '"_X_"'..."

 . X ^%ZOSF("LOAD")

 . S X=$P($T(BEF+AG),";",4)

 . X ^%ZOSF("TEST")

 . I  D MES^XPDUTL(AGM_"NOT SAVED AS '"_X_"'.  '"_X_"' ALREADY EXISTS.") Q

 . X ^%ZOSF("SAVE")

 . D MES^XPDUTL(AGM_"Saved as '"_X_"'.")

 .Q

 D KT

 Q

AFTSAV ;EP - From P14 install.  Save the after p14 routines.

 NEW AG,AGM,XCN,XCNP,DIE,DIF

 F AG=1:1:7 D

 . D KT

 . S X=$P($T(AFT+AG),";",3),(XCN,XCNP)=0,(DIE,DIF)="^TMP(""AGTXCONF"",$J,"

 . S AGM="Loading '"_X_"'..."

 . X ^%ZOSF("LOAD")

 . S X=$P($T(AFT+AG),";",4)

 . X ^%ZOSF("TEST")

 . I  D MES^XPDUTL(AGM_"NOT SAVED AS '"_X_"'.  '"_X_"' ALREADY EXISTS.") Q

 . X ^%ZOSF("SAVE")

 . D MES^XPDUTL(AGM_"Saved as '"_X_"'.")

 .Q

 D KT

 Q

DELAFT ;EP - Delete routine(s) to make room for "just installed" routines.

 NEW AG,X

 F AG=1:1:7 S X=$P($T(AFT+AG),";",4) X ^%ZOSF("DEL")  I '$D(ZTQUEUED) D BMES^XPDUTL(X_$E("...........",1,11-$L(X))_"<poof'd>")

 Q

AGTXCONF  ;IHS/ASDS/EFG - CONFIGURE AGTX FOR BEFORE or AFTER P14 ;  

 +1       ;;7.1;PATIENT REGISTRATION;;AUG 25,2005

 +2       ;

INTRO     ;

 +1       ;;In an attempt to foresee unknown configurations, this option

 +2       ;;allows you to toggle the before and after Patch 14 export

 +3       ;;formats.  This is done simply by restoring 7 routines that

 +4       ;;were saved before the KIDS install of Patch 14.

 +5       ;;

 +6       ;;Before the install of Patch 14, 7 routines were saved into the

 +7       ;;"AGTXX*" namespace.  After the install of Patch 14, the same 7

 +8       ;;patched routines were saved into the "AGTXZ*" namespace.

 +9       ;;  

 +10      ;;Don't worry, you won't be asked for namespaces.  You'll just be

 +11      ;;asked for the 'BEFORE P14' or 'AFTER P14' configuration.

 +12      ;;###

 +13       DO HELP^XBHELP("INTRO","AGTXCONF")

 +14       NEW AGCONFIG

 +15       SET AGCONFIG=$$CONFIG

 +16       WRITE !!,"It appears that your current configuration is '",AGCONFIG," P14'."

 +17       IF AGCONFIG="UNKNOWN"

               WRITE !,"I don't know what to do.",!,"Some of the 7 are 'BEFORE' and some are 'AFTER'.",!,"You better call for help....."

               QUIT 

 +18       WRITE !,"Do you want to change your export formats to '",$SELECT(AGCONFIG="AFTER":"BEFORE",1:"AFTER")," P14'?"

 +19       IF '$$DIR^XBDIR("YO","Proceed","N","","Do you want to change your export formats to '"_$SELECT(AGCONFIG="AFTER"

               QUIT 

 +20       DO @$SELECT(AGCONFIG="AFTER":"BEFLOD",1:"AFTLOD")

 +21       QUIT 

BEFLOD    ;Restore the before p14 routines.

 +1        NEW AG,XCN,XCNP,DIE,DIF

 +2        FOR AG=1:1:7

               DO KT

               SET X=$PIECE($TEXT(BEF+AG),";",4)

               SET (XCN,XCNP)=0

               SET (DIE,DIF)="^TMP(""AGTXCONF"",$J,"

               WRITE !,"Loading '",X,"'..."

               XECUTE ^%ZOSF("LOAD")

               SET X=$PIECE($TEXT(BEF+AG),";",3)

               XECUTE ^%ZOSF("SAVE")

               WRITE "Saved as '",X,"'."

 +3        DO KT

 +4        QUIT 

AFTLOD    ;Restore the after p14 routines.

 +1        NEW AG,XCN,XCNP,DIE,DIF

 +2        FOR AG=1:1:7

               DO KT

               SET X=$PIECE($TEXT(AFT+AG),";",4)

               SET (XCN,XCNP)=0

               SET (DIE,DIF)="^TMP(""AGTXCONF"",$J,"

               WRITE !,"Loading '",X,"'..."

               XECUTE ^%ZOSF("LOAD")

               SET X=$PIECE($TEXT(AFT+AG),";",3)

               XECUTE ^%ZOSF("SAVE")

               WRITE "Saved as '",X,"'."

 +3        DO KT

 +4        QUIT 

KT         KILL ^TMP("AGTXCONF",$JOB)

 +1        QUIT 

CONFIG()  ;

 +1        NEW AGP,Y

 +2        SET Y=""

 +3        FOR AG=1:1:7

               SET X=$PIECE($TEXT(BEF+AG),";",3)

               FOR AGP=14:1

                   IF '$$INSTALLD^AG6P16("AG*6.0*"_AGP)

                       QUIT 

                   SET Y=Y_($PIECE($TEXT(+2^@X),";",5)[AGP)

 +4        QUIT $SELECT('Y:"BEFORE",1:"AFTER")

BEF       ;These are the "before p14" routines.

 +1       ;;AGTX1;AGTXX1

 +2       ;;AGTX2;AGTXX2

 +3       ;;AGTX3;AGTXX3

 +4       ;;AGTX4;AGTXX4

 +5       ;;AGTX5;AGTXX5

 +6       ;;AGTXST;AGTXX6

 +7       ;;AGTXTAPE;AGTXX7

AFT       ; These are the "after p14" routines.

 +1       ;;AGTX1;AGTXZ1

 +2       ;;AGTX2;AGTXZ2

 +3       ;;AGTX3;AGTXZ3

 +4       ;;AGTX4;AGTXZ4

 +5       ;;AGTX5;AGTXZ5

 +6       ;;AGTXST;AGTXZ6

 +7       ;;AGTXTAPE;AGTXZ7

 +8       ;

BEFSAV    ;EP - From P14 install.  Save the before p14 routines.

 +1        NEW AG,AGM,XCN,XCNP,DIE,DIF

 +2        FOR AG=1:1:7

               Begin DoDot:1

 +3                DO KT

 +4                SET X=$PIECE($TEXT(BEF+AG),";",3)

                   SET (XCN,XCNP)=0

                   SET (DIE,DIF)="^TMP(""AGTXCONF"",$J,"

 +5                SET AGM="Loading '"_X_"'..."

 +6                XECUTE ^%ZOSF("LOAD")

 +7                SET X=$PIECE($TEXT(BEF+AG),";",4)

 +8                XECUTE ^%ZOSF("TEST")

 +9               IF $TEST

                       DO MES^XPDUTL(AGM_"NOT SAVED AS '"_X_"'.  '"_X_"' ALREADY EXISTS.")

                       QUIT 

 +10               XECUTE ^%ZOSF("SAVE")

 +11               DO MES^XPDUTL(AGM_"Saved as '"_X_"'.")

 +12               QUIT 

               End DoDot:1

 +13       DO KT

 +14       QUIT 

AFTSAV    ;EP - From P14 install.  Save the after p14 routines.

 +1        NEW AG,AGM,XCN,XCNP,DIE,DIF

 +2        FOR AG=1:1:7

               Begin DoDot:1

 +3                DO KT

 +4                SET X=$PIECE($TEXT(AFT+AG),";",3)

                   SET (XCN,XCNP)=0

                   SET (DIE,DIF)="^TMP(""AGTXCONF"",$J,"

 +5                SET AGM="Loading '"_X_"'..."

 +6                XECUTE ^%ZOSF("LOAD")

 +7                SET X=$PIECE($TEXT(AFT+AG),";",4)

 +8                XECUTE ^%ZOSF("TEST")

 +9               IF $TEST

                       DO MES^XPDUTL(AGM_"NOT SAVED AS '"_X_"'.  '"_X_"' ALREADY EXISTS.")

                       QUIT 

 +10               XECUTE ^%ZOSF("SAVE")

 +11               DO MES^XPDUTL(AGM_"Saved as '"_X_"'.")

 +12               QUIT 

               End DoDot:1

 +13       DO KT

 +14       QUIT 

DELAFT    ;EP - Delete routine(s) to make room for "just installed" routines.

 +1        NEW AG,X

 +2        FOR AG=1:1:7

               SET X=$PIECE($TEXT(AFT+AG),";",4)

               XECUTE ^%ZOSF("DEL")

               IF '$DATA(ZTQUEUED)

                   DO BMES^XPDUTL(X_$EXTRACT("...........",1,11-$LENGTH(X))_"<poof'd>")

 +3        QUIT