APCLPOST.m

APCLPOST ; IHS/OHPRD/TMJ - IHS-TUCSON/GIS/THL ; [ 02/11/97  7:18 AM ]

 ;;3.0;IHS PCC REPORTS;;FEB 05, 1997

EN ;

 D ^XBKVAR

 W !!,"Beginning Post init: " D ^%T

 D ^APCLONIT

 D ^APCLL

 D PROC,PROC,DMTX,DMTX1,KILL,EXIT

 Q

PROC ;

 D WAIT^DICD W "   ... setting templates into sort file"

 S %(1)=""

 F I=0:0 S %(1)=$O(^APCLSRT("B",%(1))) Q:%(1)=""  D SET

 K ^APCLSRT("B")

 S DIK="^APCLSRT(" D IXALL^DIK

 K %,APCLTMP,APCLTMPN

 Q

KILL ;

 K DA,DIADD,DLAYGO,DA,DR,DI,A,B,S,D,X,Y,Z,DIC,DIE,D1,DDC,DDH,DIG,DIH,DIU,DIV,DIW,DQ

 Q

EXIT ;

 W $C(7),$C(7),!!?5,"ASSOCIATED PRINT TEMPLATE POINTERS HAVE BEEN RESET."

 W !?5,"INITIALIZATION OF THE PCC MANAGEMENT REPORTS SYSTEM IS COMPLETE."

 K APCLX,APCLY,DA,DIE,DIU,DR,DIV,X,Y,%,DIC,DLAYGO,DIH,DIG,DO,D0,D1,DI,I,DQ,DIW,APCLTX,ATXFLG,ATXX

 Q

SET F %(2)=0:0 S %(2)=$O(^APCLSRT("B",%(1),%(2))) Q:'%(2)  D SET1

 Q

SET1 ;

 K ^APCLSRT(%(2),2,"B")

 F %(3)=0:0 S %(3)=$O(^APCLSRT(%(2),2,%(3))) Q:'%(3)  S APCLTMP=$P(^APCLSRT(%(2),2,%(3),0),U,2) I APCLTMP]"" D SET2

 Q

SET2 ;

 F APCLTMPN=0:0 S APCLTMPN=$O(^DIPT("B",APCLTMP,APCLTMPN)) Q:'APCLTMPN  S $P(^APCLSRT(%(2),2,%(3),0),U)=APCLTMPN

 Q

 ;

 ;

 ;

DMTX ;add 14 Taxonomies/Bulletins if don't exit

 I '$D(^ATXAX(0)) W !!,"You do not have the Taxonomy System installed....I can not",!,"update the appropriate entries in the taxonomy file for",!,"the Diabetes Program QA Audit System or APCL Taxonomies." H 5 Q

 W !,"Installing Appropriate APCL and DM namespaced..Taxonomies/Bulletins - if not already installed.........Takes a while!",!! D ^APCLTX

 W !!,"Taxonomy Install Successfully Completed",!!

 Q

DMTX1 ;

 ;fix ada,hf,education topics dm audit taxonomies

 D ^APCLPOS5

 Q

APCLPOST  ; IHS/OHPRD/TMJ - IHS-TUCSON/GIS/THL ; [ 02/11/97  7:18 AM ]

 +1       ;;3.0;IHS PCC REPORTS;;FEB 05, 1997

EN        ;

 +1        DO ^XBKVAR

 +2        WRITE !!,"Beginning Post init: "

           DO ^%T

 +3        DO ^APCLONIT

 +4        DO ^APCLL

 +5        DO PROC

           DO PROC

           DO DMTX

           DO DMTX1

           DO KILL

           DO EXIT

 +6        QUIT 

PROC      ;

 +1        DO WAIT^DICD

           WRITE "   ... setting templates into sort file"

 +2        SET %(1)=""

 +3        FOR I=0:0

               SET %(1)=$ORDER(^APCLSRT("B",%(1)))

               IF %(1)=""

                   QUIT 

               DO SET

 +4        KILL ^APCLSRT("B")

 +5        SET DIK="^APCLSRT("

           DO IXALL^DIK

 +6        KILL %,APCLTMP,APCLTMPN

 +7        QUIT 

KILL      ;

 +1        KILL DA,DIADD,DLAYGO,DA,DR,DI,A,B,S,D,X,Y,Z,DIC,DIE,D1,DDC,DDH,DIG,DIH,DIU,DIV,DIW,DQ

 +2        QUIT 

EXIT      ;

 +1        WRITE $CHAR(7),$CHAR(7),!!?5,"ASSOCIATED PRINT TEMPLATE POINTERS HAVE BEEN RESET."

 +2        WRITE !?5,"INITIALIZATION OF THE PCC MANAGEMENT REPORTS SYSTEM IS COMPLETE."

 +3        KILL APCLX,APCLY,DA,DIE,DIU,DR,DIV,X,Y,%,DIC,DLAYGO,DIH,DIG,DO,D0,D1,DI,I,DQ,DIW,APCLTX,ATXFLG,ATXX

 +4        QUIT 

SET        FOR %(2)=0:0

               SET %(2)=$ORDER(^APCLSRT("B",%(1),%(2)))

               IF '%(2)

                   QUIT 

               DO SET1

 +1        QUIT 

SET1      ;

 +1        KILL ^APCLSRT(%(2),2,"B")

 +2        FOR %(3)=0:0

               SET %(3)=$ORDER(^APCLSRT(%(2),2,%(3)))

               IF '%(3)

                   QUIT 

               SET APCLTMP=$PIECE(^APCLSRT(%(2),2,%(3),0),U,2)

               IF APCLTMP]""

                   DO SET2

 +3        QUIT 

SET2      ;

 +1        FOR APCLTMPN=0:0

               SET APCLTMPN=$ORDER(^DIPT("B",APCLTMP,APCLTMPN))

               IF 'APCLTMPN

                   QUIT 

               SET $PIECE(^APCLSRT(%(2),2,%(3),0),U)=APCLTMPN

 +2        QUIT 

 +3       ;

 +4       ;

 +5       ;

DMTX      ;add 14 Taxonomies/Bulletins if don't exit

 +1        IF '$DATA(^ATXAX(0))

               WRITE !!,"You do not have the Taxonomy System installed....I can not",!,"update the appropriate entries in the taxonomy file for",!,"the Diabetes Program QA Audit System or APCL Taxonomies."

               HANG 5

               QUIT 

 +2        WRITE !,"Installing Appropriate APCL and DM namespaced..Taxonomies/Bulletins - if not already installed.........Takes a while!",!!

           DO ^APCLTX

 +3        WRITE !!,"Taxonomy Install Successfully Completed",!!

 +4        QUIT 

DMTX1     ;

 +1       ;fix ada,hf,education topics dm audit taxonomies

 +2        DO ^APCLPOS5

 +3        QUIT