source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBCNRP5P.m@ 1000

Last change on this file since 1000 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.4 KB
Line 
1IBCNRP5P ;BHAM ISC/CMW - Group Plan Status Report ;01-NOV-2004
2 ;;2.0;INTEGRATED BILLING;**276**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5PRINT ; Entry pt.
6 ;
7 ; Init vars
8 N CRT,MAXCNT,IBPGC,IBBDT,IBEDT,IBPY,IBPXT,IBSRT,IBDTL
9 N X,Y,DIR,DTOUT,DUOUT,LIN,TOTALS,ZTRTN,ZTDESC,ZTSAVE
10 D:'$D(IOF) HOME^%ZIS
11 S ZTRTN="PRT01^IBCNRP5P"
12 S ZTDESC="ePHARM GROUP PLAN STATUS REPORT"
13 S ZTSAVE("^TMP(""IBCNRP5"",$J,")="",ZTSAVE("IBCNTYP")=""
14 D EN^XUTMDEVQ(ZTRTN,ZTDESC,.ZTSAVE)
15 Q
16 ;
17PRT01 ;
18 S (IBPXT,IBPGC)=0
19 ;
20 ; Determine IO parameters
21 I IOST["C-" S MAXCNT=IOSL-3,CRT=1
22 E S MAXCNT=IOSL-6,CRT=0
23 ;
24 D PRT02(MAXCNT,IBPGC)
25 I $G(ZTSTOP)!IBPXT G PRTEX
26 I CRT,IBPGC>0,'$D(ZTQUEUED) D
27 . I MAXCNT<51 F LIN=1:1:(MAXCNT-$Y) W !
28 . S DIR(0)="E" D ^DIR K DIR
29 ;
30PRTEX Q
31 ;
32PRT02(MAX,PGC) ; Print data
33 ;
34 ; Init vars
35 N EORMSG,NONEMSG,TOTDASHS,DISPDATA,SORT,CT,PRT1,PRT2
36 ;
37 S EORMSG="*** END OF REPORT ***"
38 S NONEMSG="* * * N O D A T A F O U N D * * *"
39 S $P(TOTDASHS,"=",89)=""
40 S CT=0
41 ;
42 ; Display lines of response
43 D LINE
44 Q
45 ;
46LINE ; Print line of data
47 ; Assumes vars from PRINT: PGC,IBPXT,MAX
48 ; Init vars
49 N CT,II,DSP,IBCNSP
50 ;
51 S CT=+$O(^TMP("IBCNRP5",$J,"DSPDATA",""),-1)
52 S IBCNSP=$P(^TMP("IBCNRP5",$J,"DSPDATA",1),U)
53 I $Y+1+CT>MAX D HEADER I $G(ZTSTOP)!IBPXT G LINEX
54 F II=1:1:CT D Q:$G(ZTSTOP)!IBPXT
55 . S IBCNSP=$P(^TMP("IBCNRP5",$J,"DSPDATA",II),U)
56 . I $Y+1>MAX!('PGC) D HEADER I $G(ZTSTOP)!IBPXT Q
57 . S DSP=$P(^TMP("IBCNRP5",$J,"DSPDATA",II),U,2)
58 . W !,?1,DSP
59 . Q
60 ;
61LINEX ; LINE exit pt
62 Q
63QUITX ;
64 Q
65HEADER ; Print header info for each page
66 ; Assumes vars from PRINT: CRT,PGC,IBPXT,MAX,SRT,BDT,EDT,PYR,RDTL,MAR
67 ; Init vars
68 N DIR,X,Y,DTOUT,DUOUT,OFFSET,HDR,DASHES,DASHES2,LIN
69 ;
70 I CRT,PGC>0,'$D(ZTQUEUED) D I IBPXT G HEADERX
71 . I MAX<51 F LIN=1:1:(MAX-$Y) W !
72 . S DIR(0)="E" D ^DIR K DIR
73 . I $D(DTOUT)!$D(DUOUT) S IBPXT=1 Q
74 I $D(ZTQUEUED),$$S^%ZTLOAD() S (ZTSTOP,IBPXT)=1 G HEADERX
75 S PGC=PGC+1
76 W @IOF,!,?1,"ePHARM GROUP PLAN STATUS REPORT"
77 S HDR=$$FMTE^XLFDT($$NOW^XLFDT,1)_" Page: "_PGC
78 S OFFSET=80-$L(HDR)
79 W ?OFFSET,HDR
80 W !,?1,"Report for "_$S(IBCNTYP="A":"All",IBCNTYP="P":"Pharmacy Covered",1:"Matched")_" Group Plans for "
81 W $$GET1^DIQ(36,IBCNSP_",",.01)_" "_$$GET1^DIQ(36,IBCNSP_",",.111)
82 W !,?1,"Group Name",?20,"Group #",?38,"Plan Type",?52,"Plan ID"
83 W ?71,"Pln Stat"
84 S $P(DASHES,"=",80)=""
85 W !,?1,DASHES
86 ;
87HEADERX ; HEADER exit pt
88 Q
Note: See TracBrowser for help on using the repository browser.