AMQ1POST.m

AMQ1POST ; IHS/OHPRD/JCM - AMQ1 POSTINIT ; [ 03/17/94 9:19 AM ] [ 10/17/95  07:47 AM ]

 ;;2;PCC QUERY UTILITY;;JUN 10, 1993

 ;

 N DA,DIK,DO,D0,DIE,DR

 I $P($G(^AMQQ(5,1176,0)),U)="DIABETIC FOOT CHECK" S DIK="^AMQQ(5,",DA=1176 D ^DIK K DA,DIK

 I $P($G(^AMQQ(5,1177,0)),U)="DIABETIC FOOT EXAM, COMPLETE" S DIK="^AMQQ(5,",DA=1176 D ^DIK K DA,DIK

 S DIE="^AMQQ(5,",DA=239,DR="1///@;3///@" D ^DIE K DIE,DA,DR

 Q

AMQ1POST  ; IHS/OHPRD/JCM - AMQ1 POSTINIT ; [ 03/17/94 9:19 AM ] [ 10/17/95  07:47 AM ]

 +1       ;;2;PCC QUERY UTILITY;;JUN 10, 1993

 +2       ;

 +3        NEW DA,DIK,DO,D0,DIE,DR

 +4        IF $PIECE($GET(^AMQQ(5,1176,0)),U)="DIABETIC FOOT CHECK"

               SET DIK="^AMQQ(5,"

               SET DA=1176

               DO ^DIK

               KILL DA,DIK

 +5        IF $PIECE($GET(^AMQQ(5,1177,0)),U)="DIABETIC FOOT EXAM, COMPLETE"

               SET DIK="^AMQQ(5,"

               SET DA=1176

               DO ^DIK

               KILL DA,DIK

 +6        SET DIE="^AMQQ(5,"

           SET DA=239

           SET DR="1///@;3///@"

           DO ^DIE

           KILL DIE,DA,DR

 +7        QUIT