ABMM2INQ.m

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

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

 ;

DIC ;

 W !!

 S DA=1

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

 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

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

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

 +2       ;

DIC       ;

 +1        WRITE !!

 +2        SET DA=1

 +3        WRITE $$EN^ABMVDF("IOF")

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

 +4        SET ABM=""

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

           WRITE !!,ABM

           KILL S

 +5        DO ^XBFMK

 +6        SET DIC="^ABMMUPRM("

 +7        SET DA=1

 +8        DO EN^DIQ

 +9        WRITE ABM

 +10      ;

XIT        KILL ABM,DIR,DIC,DIE

 +1        QUIT 

 +2       ;

HD         KILL DIC,DR

 +1        QUIT