source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORWDBA81.m@ 1535

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

initial load of FOIAVistA 6/30/08 version

File size: 3.4 KB
Line 
1ORWDBA81 ; SLC/GDU - Billing Awareness - Phase I [10/18/04 10:42]
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**195**;Dec 17, 1997
3 ;
4 ;Enable Clinical Indicator Data Capture By Provider Parameter Module
5 ;ORWDBA81 - Mass assign the parameter to all providers without the
6 ; parameter and set it to 1 to enable the CIDC functionality.
7 ;
8 ;Local Variables
9 ;DIR Input array variable for ^DIR
10 ;DTOUT Timeout indicator, output variable of ^DIR
11 ;DUOUT Up arrow indicator, output variable of ^DIR
12 ;ENT Entity the parameter is assigned to, input variable for
13 ; ADD^XPAR
14 ;ORERR Error Message, output variable of ADD^XPAR
15 ;INST Instance indicator, input variable for ADD^XPAR
16 ;IOF Clear Screen and move cursor to top of screen, standard
17 ; Kernal IO variable
18 ;PAR The Name or IEN of a parameter in the PARAMETER DEFINITION
19 ; FILE, input variable for ADD^XPAR
20 ;VAL Value of the parameter being added, input variable for
21 ; ADD^XPAR
22 ;X Standard FileMan work varaible
23 ;Y Processed output of user selection, output variable for
24 ; ^DIR
25 ;
26 ;Global Variables
27 ;^TMP("ORPUL" Temp global for providers who do not have the
28 ; Enable/Disable CIDC By Provider parameter assigned to them
29 ;^XTV(8989.51 PARAMETER DEFINITION FILE, file # 8989.51
30 ;
31 ;External References
32 ;^DIR FileMan general purpose response reader
33 ;ADD^XPAR PARAMETER TOOLS, API to add a new parameter value
34 ;
35MAIN ;Starting point of this program
36 N DIR,DTOUT,DUOUT,ENT,ORERR,INST,PAR,VAL,X,Y
37 ;Prepare and display user options for this program
38 S DIR(0)=$P($T(SXOPT),";",3)_";"
39 S DIR(0)=DIR(0)_$P($T(OY),";",3)_";"_$P($T(ON),";",3)
40 S DIR("A",1)=^TMP("ORPUL",$J,"A")_" "_$P($T(A1),";",3)
41 S DIR("A",2)=$P($T(A2),";",3)
42 S DIR("A",3)=$P($T(A3),";",3)
43 S DIR("A")=$P($T(A4),";",3)
44 S DIR("?",1)=$P($T(HY),";",3)
45 S DIR("?")=$P($T(HN),";",3)
46 D SCRHDR,^DIR K DIR
47 ;Process user selection.
48 I Y="NO"!($D(DTOUT))!($D(DUOUT)) Q ;If NO, timeout, or up arrow quit
49 ;Process the mass parameter assignment and functionality enabling
50 S (ENT,X)="",(INST,VAL)=1
51 S PAR=$QS($Q(^XTV(8989.51,"B","OR BILLING AWARENESS BY USER")),4)
52 D SCRHDR
53 W !!,$P($T(EP),";",3),!
54 S X="" F S X=$O(^TMP("ORPUL",$J,"A",X)) Q:X="" D
55 . W "."
56 . S ENT=^TMP("ORPUL",$J,"A",X)
57 . D ADD^XPAR(ENT,PAR,INST,VAL,.ORERR)
58 ;Alert user the mass parameter assignment and functionality enabling is
59 ;done.
60 S DIR(0)="E",DIR("A")=$P($T(EC),";",3)
61 D ^DIR K DIR Q
62SCRHDR ;Screen Header
63 W:$D(IOF) @IOF
64 W !,$P($T(SH1),";",3),!,$P($T(SH2),";",3)
65 Q
66SXOPT ;;SX^
67SH1 ;;Enable Clinical Indicator Data Capture By Provider Parameter Management
68SH2 ;;Assign/Enable Parameter For All Providers Option
69OY ;;YES:Enter YES to begin process of assign/enable
70ON ;;NO:Enter NO to cancel process of assign/enable and quit
71A1 ;;providers do not have this parameter assigned to them.
72A2 ;;You have selected to assign the parameter and enable Clinical Indictor
73A3 ;;Data Capture for all of these providers. This may take some time.
74A4 ;;Are you sure you want to do this? (YES/NO - must be all caps)
75HY ;;Enter YES to begin the assign/enable process.
76HN ;;Enter NO to cancel the assign/enable process and quit.
77EP ;;Now assigning CIDC parameter and enabling the functionality.
78EC ;;CIDC parameter assignment and functionality enabling complete.
Note: See TracBrowser for help on using the repository browser.