- AMQQBP1 ; IHS/CMI/THL - PATCH 1 FOR BETA TEST VERSION 1.32 OF Q-MAN ;
- ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- ;-----
- N X,Y,Z,DA
- S U="^"
- W !,"Now changing ""AQTOO"" x-ref on the .01 field of the V IMMUNIZATION file."
- S ^DD(9000010.11,.01,1,4,1)="N % S %=$P(^AUPNVIMM(DA,0),U,4) I $P($G(^AUTTSITE(1,0)),U,19)=""Y"" S ^AUPNVIMM(""AQ"",(X_"";""_%),DA)="""""
- S ^DD(9000010.11,.01,1,4,2)="N % S %=$P(^AUPNVIMM(DA,0),U,4) I $P($G(^AUTTSITE(1,0)),U,19)=""Y"" K ^AUPNVIMM(""AQ"",(X_"";""_%),DA)"
- ;
- RECOMP ;RECOMPILE APCD INPUT TEMPLATES
- W !!,"Now Some Data Entry Input Templates will be re-compiled because of several"
- W !,"dictionary changes. Hold On..."
- ;
- F AUPNTEMP=1:1 S AUPNX="T"_AUPNTEMP Q:$T(@AUPNX)="" D RECOMP1
- W !,"All done with re-compiling",!
- W !,*7,"Please D MAILTASK^AMQQMGR1 at this time or when most convenient."
- W !,"This task is the same as when you first created the ""AQ"" x-refs on your"
- W !,"system and will take 1-72 to run in background."
- Q
- RECOMP1 ;
- S DIC="^DIE("
- S DIC(0)=""
- S X=$P($T(@AUPNX),";;",2)
- D ^DIC
- I Y=-1 W !!,"WHOOPS ... COULDN'T FIND INPUT TEMPLATE ",X Q
- Q:'$D(^DIE(+Y,"ROU"))
- Q:$P(^DIE(+Y,"ROU"),U,2)=""
- S DMAX=4000
- S Y=+Y
- S X=$P(^DIE(Y,"ROU"),U,2)
- D EN^DIEZ
- Q
- T1 ;;APCD EX (ADD);;APCDT10
- T2 ;;APCD HBS (ADD);;APCDT14
- T3 ;;APCD HEX (ADD);;APCDT18
- T4 ;;APCD HHCT (ADD);;APCDT15
- T5 ;;APCD HIM (ADD);;APCDT19
- T6 ;;APCD HPAP (ADD);;APCDT16
- T7 ;;APCD HS (ADD);;APCDT20
- T8 ;;APCD HUA (ADD);;APCDT17
- T9 ;;APCD IM (ADD);;APCDT21
- T10 ;;APCD LAB (ADD);;APCDT56
- T11 ;;APCD LAB TEST (ADD);;APCDT26
- T12 ;;APCD LABLOG (ADD);;APCDT27
- T13 ;;APCD LABTEST (ADD);;APCDT28
- T14 ;;APCD MEASUREMENT (ADD);;APCDT29
- T15 ;;APCD METRIC MEASUREMENT (ADD);;APCDT30
- T16 ;;APCD ST (ADD);;APCDT48
- T17 ;;APCD VISIT (ADD);;APCDT52
- T18 ;;APCD VISIT LOOKUP;;APCDT53
- T19 ;;APCDALVR 9000010 (MOD);;APCDA01
- T20 ;;APCDALVR 9000010.01 (ADD);;APCDA02
- T21 ;;APCDALVR 9000010.09 (ADD);;
- T22 ;;APCDALVR 9000010.09 (MOD);;
- T23 ;;APCDALVR 9000010.11 (ADD);;
- AMQQBP1 ; IHS/CMI/THL - PATCH 1 FOR BETA TEST VERSION 1.32 OF Q-MAN ;
- +1 ;;2.0;IHS PCC SUITE;;MAY 14, 2009
- +2 ;-----
- +3 NEW X,Y,Z,DA
- +4 SET U="^"
- +5 WRITE !,"Now changing ""AQTOO"" x-ref on the .01 field of the V IMMUNIZATION file."
- +6 SET ^DD(9000010.11,.01,1,4,1)="N % S %=$P(^AUPNVIMM(DA,0),U,4) I $P($G(^AUTTSITE(1,0)),U,19)=""Y"" S ^AUPNVIMM(""AQ"",(X_"";""_%),DA)="""""
- +7 SET ^DD(9000010.11,.01,1,4,2)="N % S %=$P(^AUPNVIMM(DA,0),U,4) I $P($G(^AUTTSITE(1,0)),U,19)=""Y"" K ^AUPNVIMM(""AQ"",(X_"";""_%),DA)"
- +8 ;
- RECOMP ;RECOMPILE APCD INPUT TEMPLATES
- +1 WRITE !!,"Now Some Data Entry Input Templates will be re-compiled because of several"
- +2 WRITE !,"dictionary changes. Hold On..."
- +3 ;
- +4 FOR AUPNTEMP=1:1
- SET AUPNX="T"_AUPNTEMP
- IF $TEXT(@AUPNX)=""
- QUIT
- DO RECOMP1
- +5 WRITE !,"All done with re-compiling",!
- +6 WRITE !,*7,"Please D MAILTASK^AMQQMGR1 at this time or when most convenient."
- +7 WRITE !,"This task is the same as when you first created the ""AQ"" x-refs on your"
- +8 WRITE !,"system and will take 1-72 to run in background."
- +9 QUIT
- RECOMP1 ;
- +1 SET DIC="^DIE("
- +2 SET DIC(0)=""
- +3 SET X=$PIECE($TEXT(@AUPNX),";;",2)
- +4 DO ^DIC
- +5 IF Y=-1
- WRITE !!,"WHOOPS ... COULDN'T FIND INPUT TEMPLATE ",X
- QUIT
- +6 IF '$DATA(^DIE(+Y,"ROU"))
- QUIT
- +7 IF $PIECE(^DIE(+Y,"ROU"),U,2)=""
- QUIT
- +8 SET DMAX=4000
- +9 SET Y=+Y
- +10 SET X=$PIECE(^DIE(Y,"ROU"),U,2)
- +11 DO EN^DIEZ
- +12 QUIT
- T1 ;;APCD EX (ADD);;APCDT10
- T2 ;;APCD HBS (ADD);;APCDT14
- T3 ;;APCD HEX (ADD);;APCDT18
- T4 ;;APCD HHCT (ADD);;APCDT15
- T5 ;;APCD HIM (ADD);;APCDT19
- T6 ;;APCD HPAP (ADD);;APCDT16
- T7 ;;APCD HS (ADD);;APCDT20
- T8 ;;APCD HUA (ADD);;APCDT17
- T9 ;;APCD IM (ADD);;APCDT21
- T10 ;;APCD LAB (ADD);;APCDT56
- T11 ;;APCD LAB TEST (ADD);;APCDT26
- T12 ;;APCD LABLOG (ADD);;APCDT27
- T13 ;;APCD LABTEST (ADD);;APCDT28
- T14 ;;APCD MEASUREMENT (ADD);;APCDT29
- T15 ;;APCD METRIC MEASUREMENT (ADD);;APCDT30
- T16 ;;APCD ST (ADD);;APCDT48
- T17 ;;APCD VISIT (ADD);;APCDT52
- T18 ;;APCD VISIT LOOKUP;;APCDT53
- T19 ;;APCDALVR 9000010 (MOD);;APCDA01
- T20 ;;APCDALVR 9000010.01 (ADD);;APCDA02
- T21 ;;APCDALVR 9000010.09 (ADD);;
- T22 ;;APCDALVR 9000010.09 (MOD);;
- T23 ;;APCDALVR 9000010.11 (ADD);;