ABMINSIT.m

ABMINSIT ; IHS/SD/SDR - Budget Activity Input Transform

 ;;2.6;IHS Third Party Billing System;**11,21**;NOV 12, 2009;Build 379

 ;IHS/SD/SDR - 2.6*21 - VMBP - RQMT_106 - released in p11 but adding note with Serence ref#

 ;

EN ; EP

 N DIC,DIE,DIR,DA,Y,DO

 S DIC="^AUTTINTY("

 S DIC(0)="MQX"

 D ^DIC

 K DIC

 I +Y<0 K X Q

 S X=$$GET1^DIQ(9999999.181,+Y,"1")

 W "  "_X

 Q

ABMINSIT  ; IHS/SD/SDR - Budget Activity Input Transform

 +1       ;;2.6;IHS Third Party Billing System;**11,21**;NOV 12, 2009;Build 379

 +2       ;IHS/SD/SDR - 2.6*21 - VMBP - RQMT_106 - released in p11 but adding note with Serence ref#

 +3       ;

EN        ; EP

 +1        NEW DIC,DIE,DIR,DA,Y,DO

 +2        SET DIC="^AUTTINTY("

 +3        SET DIC(0)="MQX"

 +4        DO ^DIC

 +5        KILL DIC

 +6        IF +Y<0

               KILL X

               QUIT 

 +7        SET X=$$GET1^DIQ(9999999.181,+Y,"1")

 +8        WRITE "  "_X

 +9        QUIT