source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWDBA16.m@ 1757

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

initial load of FOIAVistA 6/30/08 version

File size: 3.8 KB
Line 
1ORWDBA16 ;SLC/GDU Billing Awareness - Phase I [10/18/04 10:26]
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**195**;Dec 17,1997
3 ;
4 ;Enable Billing Data Capture By Provider Parameter
5 ;ORWDBA16 - Generates and prints parameter report
6 ;
7 ;Programs Called:
8 ; $$GETS1^DIQ DBIA 2056
9 ; ^DIR DBIA 10026
10 ; $$FMTE^XLFDT DBIA 10103
11 ; $$NOW^XLFDT DBIA 10103
12 ; $$REPEAT^XLFSTR DBIA 10103
13 ; ENVAL^XPAR DBIA 2263
14 ;
15 ;Variables Used:
16 ; BAEE External value of the CIDC functionality parameter
17 ; DIR Input array variable for ^DIR
18 ; DTOUT Timeout indicator variable, output from ^DIR
19 ; DUOUT Up Arrow '^' indicator variable, output from ^DIR
20 ; ORERR Error message array variable, output from ENVAL^XPAR
21 ; IEN Internal Entry Number
22 ; LF Line Feed
23 ; LFC Line Feed Count variable
24 ; PAGE Page Counter variable
25 ; RPDT Date the report is run, printed on hardcopy and terminal
26 ; SEARCH Type of report being run. Passed from ORWDBA14
27 ; STOP Report finished control variable, used by hardcopy report.
28 ; U Delimiter variable, defaulted to "^"
29 ; X Work variable
30 ; X1 Work variable
31 ; Y Processed user selection varaible, output from ^DIR
32 ;
33 ;Globals Uses:
34 ; ^TMP("ORPAL"
35 ; Temp global to store raw and processed output of ENVAL^PAR
36 ; Raw output of ENVAL^PAR
37 ; ^TMP("ORPAL",$J,"A")=# Records Returned
38 ; ^TMP("ORPAL",$J,"A",Provider IEN_";VA(200,",1)=Parameter value
39 ; Processed output of ENVAL^PAR
40 ; ^TMP("ORPAL",$J,"B",Name|IEN)=Name^Section^Parameter value
41 ;
42RPT ;Build and print parameter report
43 N BAEE,DIR,DTOUT,DUOUT,ORERR,IEN,LF,LFC,PAGE,NAME,SEC,RPDT,STOP,X,X1,Y
44 K ^TMP("ORPAL",$J)
45 S RPDT=$$FMTE^XLFDT($$NOW^XLFDT),(IEN,X)="",U="^"
46 D ENVAL^XPAR("^TMP(""ORPAL"",$J,""A"")","OR BILLING AWARENESS BY USER",1,.ORERR,1)
47 F S X=$O(^TMP("ORPAL",$J,"A",X)) Q:X="" D
48 . S IEN=$P(X,";")
49 . S BAEE=$S(^TMP("ORPAL",$J,"A",X,1)=0:"No",1:"Yes")
50 . S NAME=$$GET1^DIQ(200,IEN,.01)
51 . S SEC=$$GET1^DIQ(200,IEN,29)
52 . S:SEARCH="A" ^TMP("ORPAL",$J,"B",NAME_"|"_IEN)=NAME_U_SEC_U_BAEE
53 . S:SEARCH="E"&(BAEE="Yes") ^TMP("ORPAL",$J,"B",NAME_"|"_IEN)=NAME_U_SEC_U_BAEE
54 . S:SEARCH="D"&(BAEE="No") ^TMP("ORPAL",$J,"B",NAME_"|"_IEN)=NAME_U_SEC_U_BAEE
55 S (X1,Y)="",PAGE=1,STOP=0
56 D HDR
57 F S X1=$O(^TMP("ORPAL",$J,"B",X1)) Q:X1=""!(STOP=1) D
58 . W !,$P(^TMP("ORPAL",$J,"B",X1),U)
59 . W ?40,$P(^TMP("ORPAL",$J,"B",X1),U,2)
60 . W ?70,$P(^TMP("ORPAL",$J,"B",X1),U,3)
61 . I $Y>(IOSL-4) D EOSP
62 I STOP=0 S STOP=1
63 I $E(IOST,1,2)'="C-" D FTR
64 K ^TMP("ORPAL",$J)
65 Q
66HDR ;Print report page header
67 W:$E(IOST)="C"!(PAGE>2) @IOF
68 W !,$P($T(RH),";",2)
69 W !,RPDT,!!
70 W:SEARCH="A" $P($T(HDRA),";",2),!
71 W:SEARCH="E" $P($T(HDRE),";",2),!
72 W:SEARCH="D" $P($T(HDRD),";",2),!
73 W !,"Provider",?40,"Section",?70,"Enabled"
74 W !,$$REPEAT^XLFSTR("-",IOM)
75 Q
76EOSP ;End of Screen/Page
77 S PAGE=PAGE+1
78 I $E(IOST,1,2)="C-" D SFTR Q:STOP=1
79 E D FTR
80 D HDR
81 Q
82 ;
83SFTR ;Screen report footer
84 S DIR(0)="E"
85 D ^DIR K DIR
86 I $D(DTOUT)!($D(DUOUT)) S STOP=1
87 E S STOP=0
88 Q
89 ;
90FTR ;Print report page footer
91 ;Used when output is directed to printer or spool device
92 I STOP=1 D
93 . S LFC=(IOSL-4)-$Y
94 . F LF=1:1:LFC W !," "
95 W:SEARCH="A" !,$P($T(FTRA),";",2)
96 W:SEARCH="E" !,$P($T(FTRE),";",2)
97 W:SEARCH="D" !,$P($T(FTRD),";",2)
98 W ?60,"Page: ",PAGE
99 Q
100 ;Text used for building page/screen header/footer in HDR
101RH ;Clinical Indicator Data Capture By Provider Parameter Report
102HDRA ;All Providers With Clinical Indicator Data Capture Parameter
103HDRE ;Only Providers With Clinical Indicator Data Capture Enabled
104HDRD ;Only Providers With Clinical Indicator Data Capture Disabled
105 ;Text used for building page footer in FTR
106PF ;Clinical Data Capture By Provider Parameter Report
107FTRA ;All With Parameter
108FTRE ;Only Clinical Indicator Data Capture Enabled
109FTRD ;Only Clinical Indicator Data Capture Disabled
Note: See TracBrowser for help on using the repository browser.