Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBCEFG8

IBCEFG8.m

Go to the documentation of this file.
  1. IBCEFG8 ;ALB/TMP - OUTPUT FORMATTER GENERIC FORM TEST PROCESSING ;21-MAR-96
  1. ;;2.0;INTEGRATED BILLING;**52,88,51,348**; 21-MAR-94;Build 5
  1. ;
  1. Q
  1. ;
  1. TEST ;Select form from screen and entry from file to test
  1. N IBF2,IBTYP,IBFORM,IBQUE,IB2,IBPAR,IBCEXDA,IBFILE,IBXERR,DIC,POP,Z,ZTSK,PARAMX,IBIFN,IBXIEN,Z0
  1. ;Select form
  1. D FULL^VALM1
  1. D SELX^IBCEFG3 S IBFORM=$G(IBCEXDA)
  1. G:IBFORM="" TESTQ
  1. S IB2=$G(^IBE(353,IBFORM,2)),IBPAR=+$P(IB2,U,5)
  1. ;
  1. ; IB*2*348 - esg - no testing with old claim forms
  1. I IBPAR=12!(IBPAR=13) D G TESTQ
  1. . W !!?3,"This local form is associated with an obsolete printed claim form."
  1. . W !?3,"Testing is not available for this form."
  1. . Q
  1. ;
  1. S IBTYP=$P(IB2,U,2),IBFILE=+IB2
  1. ;Select Entry #
  1. S DIC=IBFILE,DIC(0)="AEMQ" D ^DIC
  1. G:Y<0 TESTQ S (IBXIEN,IBIFN)=+Y
  1. ;
  1. S PARAMX("TEST")=1
  1. I IBTYP="P" D DEV^IBCEFG7(IBFORM,1) G:$G(POP) TESTQ
  1. I IBTYP="T" D QUE G:$G(IBQUE)="" TESTQ
  1. ;
  1. K ^TMP("IBXDATA",$J)
  1. ;
  1. ; Execute PRE-PROCESSOR
  1. I $G(^IBE(353,IBFORM,"FPRE"))'="" X ^("FPRE") ;Form pre-processor
  1. I $G(^IBE(353,IBFORM,"FPRE"))="",$G(^IBE(353,IBPAR,"FPRE"))'="" X ^("FPRE") ;Parent form pre-processor
  1. G:$G(IBXERR)'="" FQ
  1. ;
  1. ; Extract record
  1. I +$G(^IBE(353,IBFORM,2))=399 D
  1. .S PARAMX(1)="BILL-SEARCH",Z0=$G(^DGCR(399,IBIFN,0))
  1. .S Z=$P(Z0,U,21) S:Z="" Z="P" S PARAMX(2)=$P($G(^DGCR(399,IBIFN,"I"_($F("PST",Z)-1))),U),PARAMX(3)=$S($P(Z0,U,5)<3:"I",1:"O")
  1. S Z=$$EXTRACT^IBCEFG(IBFORM,IBIFN,1,.PARAMX)
  1. ;
  1. G:'$D(^TMP("IBXDATA",$J)) FQ
  1. ;
  1. ; If an output routine exists, use it, otherwise use the generic ones
  1. I $G(^IBE(353,IBFORM,"OUT"))'="" X ^("OUT") G FQ
  1. ;
  1. I IBTYP="P" D PRINT^IBCEFG7(IBFORM) D:'$D(ZTQUEUED) ^%ZISC G FQ
  1. I IBTYP="T" D:$G(IBQUE)'="" TRANSMIT^IBCEFG7(IBFORM,IBQUE) G FQ
  1. I IBTYP="S" D SCRN^IBCEFG70(IBFORM,IBIFN)
  1. ;
  1. FQ ; Execute POST-PROCESSOR, if any
  1. I $G(^IBE(353,IBFORM,"FPOST"))'="" X ^("FPOST") ;Form post-processor
  1. I $G(^IBE(353,IBFORM,"FPOST"))="",$G(^IBE(353,IBPAR,"FPOST"))'="" X ^("FPOST") ;Parent form post-processor
  1. TESTQ K ^TMP("IBXDATA",$J)
  1. D PAUSE^VALM1
  1. S VALMBCK="R"
  1. Q
  1. ;
  1. QUE ;Select QUEUE to receive transmission
  1. S %=1 W !,"Send transmission to your mailbox" D YN^DICN
  1. I (%+1#3) S IBQUE=DUZ Q
  1. S DIR(0)="F",DIR("A")="Enter a mail queue name: ",DIR(0)="A",DIR("?")="This is the mailman queue where the formatted test record should be sent"
  1. D ^DIR K DIR S IBQUE=$S('$D(DIRUT):Y,1:"")
  1. Q
  1. ;