- 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