ABMMUINQ.m

ABMMUINQ ; IHS/SD/SDR - Inquire MU UTILITY ;  

 ;;2.6;IHS 3P BILLING SYSTEM;**8,11**;NOV 12, 2009;Build 133

 ;

DIC ;

 W !!

 S DA=1

 ;W $$EN^ABMVDF("IOF") W !?23,"*** 3P MU PARMETER FILE INQUIRY ***"  ;abm*2.6*11 NOHEAT

 W $$EN^ABMVDF("IOF") W !?23,"*** 3P MU PARAMETER FILE INQUIRY ***"  ;abm*2.6*11 NOHEAT

 S ABM="",$P(ABM,"=",80)="" W !!,ABM K S

 D ^XBFMK

 S DIC="^ABMMUPRM("

 S DA=1

 D EN^DIQ

 W ABM

 ;

XIT K ABM,DIR,DIC,DIE

 Q

 ;

HD K DIC,DR

 Q

ABMMUINQ  ; IHS/SD/SDR - Inquire MU UTILITY ;  

 +1       ;;2.6;IHS 3P BILLING SYSTEM;**8,11**;NOV 12, 2009;Build 133

 +2       ;

DIC       ;

 +1        WRITE !!

 +2        SET DA=1

 +3       ;W $$EN^ABMVDF("IOF") W !?23,"*** 3P MU PARMETER FILE INQUIRY ***"  ;abm*2.6*11 NOHEAT

 +4       ;abm*2.6*11 NOHEAT

           WRITE $$EN^ABMVDF("IOF")

           WRITE !?23,"*** 3P MU PARAMETER FILE INQUIRY ***"

 +5        SET ABM=""

           SET $PIECE(ABM,"=",80)=""

           WRITE !!,ABM

           KILL S

 +6        DO ^XBFMK

 +7        SET DIC="^ABMMUPRM("

 +8        SET DA=1

 +9        DO EN^DIQ

 +10       WRITE ABM

 +11      ;

XIT        KILL ABM,DIR,DIC,DIE

 +1        QUIT 

 +2       ;

HD         KILL DIC,DR

 +1        QUIT