AMQQDFN ;IHS/CMI/THL - CHECK TO SEE IF ANY ^AUTT FILE DFNS HAVE CHANGED ;
;;2.0;IHS PCC SUITE;**2**;MAY 14, 2009
;-----
EN ; ENTRY POINT
N %,A,B,C,I,X,Y,Z,DFN,%Z
S U="^"
;PATCH XXX
D IMM^AMQQMGR9
D MSR^AMQQMGR9
;D EXAM^AMQQMGR9
I '$D(AMQQXX) W !,"Qman is now waking up "
F X=0:0 S X=$O(^AMQQ(5,X)) Q:'X S Y=^(X,0),Z=$P(Y,U,12) I Z'="" W:'$D(AMQQXX) "." D G1
D IEN^AMQQMGR9
Q
;
G1 S (%,B)=$P(Y,U,5)
S %=$G(^AMQQ(1,%,2))
I %="" Q
I %["AUPNVXAM" S %=$P(%,";",2) G G11
S A="AUPNV"_$P(Z,";")_";",%=+$P(%,A,2)
G11 S %Z=$P(Z,";",2)
S Z="^AUTT"_$P(Z,";")_"(""C"","""_$P(Z,";",2)_""","""")"
S Z=$O(@Z)
I Z,Z=% Q
I 'Z Q
S DFN=%
D RESET
Q
;
RESET ;
S $P(^AMQQ(1,B,0),U,11)=Z
I Z S $P(^(0),U,15)=Z
S A=^AMQQ(1,B,1)
I A'["IMM" S C=" I $D(^(AMQP(0)," S %=$P(A,C,2),%="))"_$P(%,"))",2,999),%=Z_%,A=$P(A,C)_C_%,^AMQQ(1,B,1)=A
F I=1,2 D
.S A=^AMQQ(1,B,I)
.S C=$P(^AMQQ(5,X,0),U,12)
.S C=$P(C,";")
.S:C="EXAM" C="XAM"
.S C="AUPNV"_C_";"
.S %=$P(A,C,2)
.S %=Z_";"_$P(%,";",2,999)
.S A=$P(A,C)_C_%
.S ^AMQQ(1,B,I)=A
I A["IMM",'$D(^AUTTIMM(101,0)) D IMM
Q
;
IMM ; Check compound immunization links to see if need to change a dfn
N %A,%B,%C,%D,%E,%F,%I,%LINK
F %I=1:1 S %A=$P($T(IMMUN+%I),";;",2) Q:%A="" D
.S %C=$P(%A,U) F I=1:1 S %D=$P(%C,":",I) Q:%D="" I %D=%Z S %LINK=$P(%A,U,2) D Q
..F I=1,2 S A=^AMQQ(1,%LINK,I),C="AUPNVIMM;",%=$P(A,C,2),%C=$P(%,";") D S %=%C_";"_$P(%,";",2,999),A=$P(A,C)_C_%,^AMQQ(1,%LINK,I)=A
...F %E=1:1 S %F=$P(%C,":",%E) Q:%F="" I %F=DFN S $P(%C,":",%E)=Z
Q
;
IMMUN ; Table of Compound Immunizations - IHS CODE:IHS CODE^QMAN LINK ENTRY ;
;;02:03:04:34:42^180
;;02:04^186
;;03:04:34:42^185
;;15:17^199
;;14:17:18^198
;;35:37:38:39^306
;;11:17:18^197
AMQQDFN ;IHS/CMI/THL - CHECK TO SEE IF ANY ^AUTT FILE DFNS HAVE CHANGED ;
+1 ;;2.0;IHS PCC SUITE;**2**;MAY 14, 2009
+2 ;-----
EN ; ENTRY POINT
+1 NEW %,A,B,C,I,X,Y,Z,DFN,%Z
+2 SET U="^"
+3 ;PATCH XXX
+4 DO IMM^AMQQMGR9
+5 DO MSR^AMQQMGR9
+6 ;D EXAM^AMQQMGR9
+7 IF '$DATA(AMQQXX)
WRITE !,"Qman is now waking up "
+8 FOR X=0:0
SET X=$ORDER(^AMQQ(5,X))
IF 'X
QUIT
SET Y=^(X,0)
SET Z=$PIECE(Y,U,12)
IF Z'=""
IF '$DATA(AMQQXX)
WRITE "."
DO G1
+9 DO IEN^AMQQMGR9
+10 QUIT
+11 ;
G1 SET (%,B)=$PIECE(Y,U,5)
+1 SET %=$GET(^AMQQ(1,%,2))
+2 IF %=""
QUIT
+3 IF %["AUPNVXAM"
SET %=$PIECE(%,";",2)
GOTO G11
+4 SET A="AUPNV"_$PIECE(Z,";")_";"
SET %=+$PIECE(%,A,2)
G11 SET %Z=$PIECE(Z,";",2)
+1 SET Z="^AUTT"_$PIECE(Z,";")_"(""C"","""_$PIECE(Z,";",2)_""","""")"
+2 SET Z=$ORDER(@Z)
+3 IF Z
IF Z=%
QUIT
+4 IF 'Z
QUIT
+5 SET DFN=%
+6 DO RESET
+7 QUIT
+8 ;
RESET ;
+1 SET $PIECE(^AMQQ(1,B,0),U,11)=Z
+2 IF Z
SET $PIECE(^(0),U,15)=Z
+3 SET A=^AMQQ(1,B,1)
+4 IF A'["IMM"
SET C=" I $D(^(AMQP(0),"
SET %=$PIECE(A,C,2)
SET %="))"_$PIECE(%,"))",2,999)
SET %=Z_%
SET A=$PIECE(A,C)_C_%
SET ^AMQQ(1,B,1)=A
+5 FOR I=1,2
Begin DoDot:1
+6 SET A=^AMQQ(1,B,I)
+7 SET C=$PIECE(^AMQQ(5,X,0),U,12)
+8 SET C=$PIECE(C,";")
+9 IF C="EXAM"
SET C="XAM"
+10 SET C="AUPNV"_C_";"
+11 SET %=$PIECE(A,C,2)
+12 SET %=Z_";"_$PIECE(%,";",2,999)
+13 SET A=$PIECE(A,C)_C_%
+14 SET ^AMQQ(1,B,I)=A
End DoDot:1
+15 IF A["IMM"
IF '$DATA(^AUTTIMM(101,0))
DO IMM
+16 QUIT
+17 ;
IMM ; Check compound immunization links to see if need to change a dfn
+1 NEW %A,%B,%C,%D,%E,%F,%I,%LINK
+2 FOR %I=1:1
SET %A=$PIECE($TEXT(IMMUN+%I),";;",2)
IF %A=""
QUIT
Begin DoDot:1
+3 SET %C=$PIECE(%A,U)
FOR I=1:1
SET %D=$PIECE(%C,":",I)
IF %D=""
QUIT
IF %D=%Z
SET %LINK=$PIECE(%A,U,2)
Begin DoDot:2
+4 FOR I=1,2
SET A=^AMQQ(1,%LINK,I)
SET C="AUPNVIMM;"
SET %=$PIECE(A,C,2)
SET %C=$PIECE(%,";")
Begin DoDot:3
+5 FOR %E=1:1
SET %F=$PIECE(%C,":",%E)
IF %F=""
QUIT
IF %F=DFN
SET $PIECE(%C,":",%E)=Z
End DoDot:3
SET %=%C_";"_$PIECE(%,";",2,999)
SET A=$PIECE(A,C)_C_%
SET ^AMQQ(1,%LINK,I)=A
End DoDot:2
QUIT
End DoDot:1
+6 QUIT
+7 ;
IMMUN ; Table of Compound Immunizations - IHS CODE:IHS CODE^QMAN LINK ENTRY ;
+1 ;;02:03:04:34:42^180
+2 ;;02:04^186
+3 ;;03:04:34:42^185
+4 ;;15:17^199
+5 ;;14:17:18^198
+6 ;;35:37:38:39^306
+7 ;;11:17:18^197
