source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWDBA14.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: 4.7 KB
Line 
1ORWDBA14 ; 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 ;ORWDBA14 - Get a report of assigned parameters
6 ;
7 ;Report to print out the providers with the Billing Data Capture By
8 ;Provider parameter set.
9 ;Billing Data Capture By Provider will be referred to as BDCBP.
10 ;Billing Data Capture will be referred to as BDC
11 ;The user has the option to search by:
12 ; 1. For all providers with the BDCBP parameter
13 ; 2. For all providers with the BDCBP parameter and BDC enabled
14 ; 3. For all providers with the BDCBP parameter and BDC disabled
15 ;
16 ;Programs called:
17 ; ^%ZIS DBIA 10086
18 ; ^%ZISC DBIA 10089
19 ; ^%ZTLOAD DBIA 10063
20 ; ^DIR DBIA 10026
21 ; RPT^ORWDBA16 Generates and prints the report
22 ; ENVAL^XPAR DBIA 2263
23 ;
24 ;Variables Used:
25 ; %ZIS KERNEL device selection variable
26 ; DIR Input array variable for ^DIR
27 ; DTOUT Timeout indicator variable, output from ^DIR
28 ; DUOUT Up Arrow '^' indicator variable, output from ^DIR
29 ; ORERR Error message output array variable from ENVAL^XPAR
30 ; IO Input / Output array variable, System settings
31 ; IOF Page feed variable, System settings
32 ; ION Device name, System settings
33 ; POP Cancel device select, program run output from ^%ZIS
34 ; SEARCH User select of type of report to run
35 ; Y Processed user selection, output from ^DIR
36 ; ZTDESC Description of queued job, input for ^%ZTLOAD
37 ; ZTIO Device selected for the queued job, input for ^%ZTLOAD
38 ; ZTRTN Routine selected for the queued job, input for ^%ZTLOAD
39 ; ZTSAVE Input parameters for the queued job, input for ^%ZTLOAD
40 ; ZTSK Internal Entry Number of the queued job, output from ^%ZTLOAD
41 ;
42 ;Globals Used:
43 ; ^TMP("ORCK"
44 ; Temp global to hold value of LIST, output from ENVAL^XPAR. If
45 ; ^TMP("ORCK",$J,"A") has a count of 0 the user is alerted that there
46 ; are no parameter assigned to providers. This is acknowledged by the
47 ; user and the program quits.
48 ;
49MAIN ;Main starting point for this program
50 ;User selects the type of report to run. Then selects the device the
51 ;reports output will go.
52 N %ZIS,DIR,DTOUT,DUOUT,ORERR,POP,SEARCH,Y,ZTDESC,ZTIO,ZTRTN,ZTSAVE,ZTSK
53 ;Check for assigned parameters.
54 D ENVAL^XPAR("^TMP(""ORCK"",$J,""A"")","OR BILLING AWARENESS BY USER",1,.ORERR,1)
55 ;If none found alert user, exit program
56 I ^TMP("ORCK",$J,"A")=0 D G EXIT
57 . D SCRHDR
58 . S DIR(0)="E"
59 . S DIR("A",1)=$P($T(NPA1),";",3)
60 . S DIR("A",2)=$P($T(NPA2),";",3)
61 . S DIR("A",3)=$P($T(NPA3),";",3)
62 . S DIR("A")=$P($T(NPA4),";",3)
63 . W !! D ^DIR K DIR
64 K ^TMP("ORCK",$J)
65 S SEARCH=""
66 S DIR(0)="SO^"_$P($T(L0A),";",3)_";"
67 S DIR(0)=DIR(0)_$P($T(L0E),";",3)_";"
68 S DIR(0)=DIR(0)_$P($T(L0D),";",3)
69 S DIR("?",1)=$P($T(LHA),";",3)
70 S DIR("?",2)=$P($T(LHE),";",3)
71 S DIR("?")=$P($T(LHD),";",3)
72 S DIR("A")=$P($T(LA),";",3)
73 D SCRHDR,^DIR K DIR S SEARCH=Y
74 I SEARCH="Q"!(SEARCH="")!($D(DTOUT))!($D(DUOUT)) G EXIT
75 S %ZIS="Q" D ^%ZIS I POP G EXIT
76 I $D(IO("Q")) D K IO("Q") G EXIT
77 . S ZTIO=ION
78 . S ZTDESC="BA Enabled By User Report"
79 . S ZTRTN="RPT^ORWDBA16"
80 . S ZTSAVE("SEARCH")=""
81 . D ^%ZTLOAD I $D(ZTSK) W !?32,"REQUEST QUEUED"
82 U IO D RPT^ORWDBA16
83 D ^%ZISC
84AGAIN ;Ask if the user would like to repeat the parameter report process
85 ;If yes, the program starts over.
86 ;If no, the program quits and the user is returned to the previous menu.
87 S DIR(0)="Y"
88 S DIR("A")=$P($T(ALA),";",3)
89 S DIR("B")="N"
90 S DIR("?",1)=$P($T(ALHY),";",3)
91 S DIR("?")=$P($T(ALHN),";",3)
92 W !! D ^DIR K DIR
93 I Y=1 G MAIN
94EXIT ;Exit point for this program
95 K ^TMP("ORCK",$J)
96 D ^%ZISC
97 Q
98SCRHDR ;Screen Header Display
99 W:$D(IOF) @IOF
100 W !,"Enable Clinical Indicator Data Capture By Provider Parameter Management"
101 W !,"Assigned Parameter Report"
102 Q
103 ;Text to build the DIR variable for ^DIR in LIST
104L0A ;;A:All providers with CIDC parameter
105L0E ;;E:Only providers with CIDC enabled
106L0D ;;D:Only providers with CIDC disabled
107LA ;;Enter the search criteria
108LHA ;;Enter A to list all providers with Clinical Indicator Data Capture parameter.
109LHE ;;Enter E to list only providers with Clinical Indicator Data Capture enabled.
110LHD ;;Enter D to list only providers with Clinical Indicator Data Capture disabled.
111 ;Text to build the DIR variable for ^DIR in NPA
112NPA1 ;;No providers currently have the parameter assigned to them.
113NPA2 ;;You will need to select the 'Manage parameter by provider' option and
114NPA3 ;;assign this parameter to the providers.
115NPA4 ;;Press the return key or '^' to continue.
116 ;Text to build the DIR variable for ^DIR in AGAIN
117ALA ;;Run another report
118ALHY ;;Enter Y for Yes to run another report.
119ALHN ;;Enter N for No to not run another report.
Note: See TracBrowser for help on using the repository browser.