IBCAPU ;ALB/WCJ - Claims Auto Processing Utilities;27-AUG-10
;;2.0;INTEGRATED BILLING;**432**;21-MAR-94;Build 192
;;Per VHA Directive 2004-038, this routine should not be modified.
Q
;
CMSPRINT() ; Returns the CMS-1500 Printer defined in the IB Site Parameters.
N DIC,DA,DR,DIC,DIQ,RESULT,D0
S DIC="^IBE(350.9,"
S DR="8.14"
S DA=1,DIQ="RESULT"
D EN^DIQ1
Q $G(RESULT(350.9,1,8.14))
;
UBPRINT() ; Returns the UB-04 Printer defined in the IB Site Parameters.
N DIC,DA,DR,DIC,DIQ,RESULT,D0
S DIC="^IBE(350.9,"
S DR="8.15"
S DA=1,DIQ="RESULT"
D EN^DIQ1
Q $G(RESULT(350.9,1,8.15))
;
EOBPRINT() ; Returns the UB-04 Printer defined in the IB Site Parameters.
N DIC,DA,DR,DIC,DIQ,RESULT,D0
S DIC="^IBE(350.9,"
S DR="8.16"
S DA=1,DIQ="RESULT"
D EN^DIQ1
Q $G(RESULT(350.9,1,8.16))
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBCAPU 827 printed Dec 13, 2024@02:08:39 Page 2
IBCAPU ;ALB/WCJ - Claims Auto Processing Utilities;27-AUG-10
+1 ;;2.0;INTEGRATED BILLING;**432**;21-MAR-94;Build 192
+2 ;;Per VHA Directive 2004-038, this routine should not be modified.
+3 QUIT
+4 ;
CMSPRINT() ; Returns the CMS-1500 Printer defined in the IB Site Parameters.
+1 NEW DIC,DA,DR,DIC,DIQ,RESULT,D0
+2 SET DIC="^IBE(350.9,"
+3 SET DR="8.14"
+4 SET DA=1
SET DIQ="RESULT"
+5 DO EN^DIQ1
+6 QUIT $GET(RESULT(350.9,1,8.14))
+7 ;
UBPRINT() ; Returns the UB-04 Printer defined in the IB Site Parameters.
+1 NEW DIC,DA,DR,DIC,DIQ,RESULT,D0
+2 SET DIC="^IBE(350.9,"
+3 SET DR="8.15"
+4 SET DA=1
SET DIQ="RESULT"
+5 DO EN^DIQ1
+6 QUIT $GET(RESULT(350.9,1,8.15))
+7 ;
EOBPRINT() ; Returns the UB-04 Printer defined in the IB Site Parameters.
+1 NEW DIC,DA,DR,DIC,DIQ,RESULT,D0
+2 SET DIC="^IBE(350.9,"
+3 SET DR="8.16"
+4 SET DA=1
SET DIQ="RESULT"
+5 DO EN^DIQ1
+6 QUIT $GET(RESULT(350.9,1,8.16))
