ORWDBA6 ; SLC/GDU - Clinical Indicator Data Capture - Phase I [10/12/04 15:40]
;;3.0;ORDER ENTRY/RESULTS REPORTING;**195,261**;Dec 17,1997
MAIN ;Main starting point for this program
N DIR,DTOUT,DUOUT,OPT,Y
D CHKINS
S DIR(0)="SO^"_$P($T(B0A),";",3)_";"
S DIR(0)=DIR(0)_$P($T(B0E),";",3)_";"
S DIR(0)=DIR(0)_$P($T(B0D),";",3)_";"
S DIR(0)=DIR(0)_$P($T(B0L),";",3)_";"
S DIR("?",1)=$P($T(BHA),";",3)
S DIR("?",2)=$P($T(BHE),";",3)
S DIR("?",3)=$P($T(BHD),";",3)
S DIR("?")=$P($T(BHL),";",3)
S DIR("A")=$P($T(BA),";",3)
W:$D(IOF) @IOF
W !,$P($T(SH),";",3),!,$P($T(SH0),";",3)
D ^DIR K DIR
I Y="M" D ^ORWDBA8 G MAIN
I Y="E" D EN^ORWDBA10("E") G MAIN
I Y="D" D EN^ORWDBA10("D") G MAIN
I Y="L" D ^ORWDBA14 G MAIN
Q
;Text for MAIN user interface
SH ;;Enable Clinical Indicator Data Capture By Provider Parameter Management
SH0 ;;Select Parameter Management Option
B0A ;;M:Manage parameter by provider
B0E ;;E:Enable parameter for all providers
B0D ;;D:Disable parameter for all providers
B0L ;;L:List providers with the assigned parameter
BA ;;Select Enable CIDC By Provider parameter option
BHA ;;Enter M to manage the Enable CIDC By Provider parameter by provider.
BHE ;;Enter E to enable the parameter for all providers
BHD ;;Enter D to disable the parameter for all providers
BHL ;;Enter L to get a list of providers with the parameter and its value.
;
CHKINS ;Check Install
N DIR,DTOUT,DUOUT,ERR,MSG,RF,X,X1,Y
S MSG(0)=0
D FIND^DIC(9.7,"","","","PX CLINICAL INDICATOR DATA CAPTURE 1.0","*","","","","RF","ERR")
I $D(ERR) D
. F X=1:1:$P(ERR("DIERR"),U) D
.. S MSG(0)=X
.. S MSG(X)=$P($T(PLF),";",3)_" "_ERR("DIERR",X)
.. S X1=0 F S X1=$O(ERR("DIERR",X,"TEXT",X1)) Q:X1="" D
... S MSG(X,X1)=ERR("DIERR",X,"TEXT",X1)
I $D(RF) D
. I $P(RF("DILIST",0),U)=0 D
.. S MSG(0)=MSG(0)+1
.. S MSG(MSG(0))=$P($T(NRF),";",3)
I $$CHKPS1^ORWDBA5=0 D
. S MSG(0)=MSG(0)+1
. S MSG(MSG(0))=$P($T(MSD),";",3)
I MSG(0)=0 Q
W:$D(IOF) @IOF
W !,$P($T(SH),";",3),!,$P($T(SH0),";",3)
S DIR(0)="E"
W !!,$P($P($T(MH),";",3),"|"),!!,$P($P($T(MH),";",3),"|",2)
F X=1:1:MSG(0) D
. W !,MSG(X)
. S X1=0 F S X1=$O(MSG(X,X1)) Q:X1="" W !,MSG(X,X1)
W !!,$P($T(MF1),";",3),!,$P($T(MF2),";",3),!!
D ^DIR K DIR
Q
;Error message UI text
PLF ;;Package Lookup Failure, Error Code:
NRF ;;No record found in INSTALL file for PX CLINICAL INDICATOR DATA CAPTURE 1.0
MSD ;;CIDC Master Switch is disabled.
MH ;;ALERT!|Please note the following errors.
MF1 ;;The above error(s) will need to be resolved before the CIDC functionality will
MF2 ;;work. You can still assign the Enable CIDC parameter to providers.
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORWDBA6 2681 printed Nov 22, 2024@17:45:20 Page 2
ORWDBA6 ; SLC/GDU - Clinical Indicator Data Capture - Phase I [10/12/04 15:40]
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**195,261**;Dec 17,1997
MAIN ;Main starting point for this program
+1 NEW DIR,DTOUT,DUOUT,OPT,Y
+2 DO CHKINS
+3 SET DIR(0)="SO^"_$PIECE($TEXT(B0A),";",3)_";"
+4 SET DIR(0)=DIR(0)_$PIECE($TEXT(B0E),";",3)_";"
+5 SET DIR(0)=DIR(0)_$PIECE($TEXT(B0D),";",3)_";"
+6 SET DIR(0)=DIR(0)_$PIECE($TEXT(B0L),";",3)_";"
+7 SET DIR("?",1)=$PIECE($TEXT(BHA),";",3)
+8 SET DIR("?",2)=$PIECE($TEXT(BHE),";",3)
+9 SET DIR("?",3)=$PIECE($TEXT(BHD),";",3)
+10 SET DIR("?")=$PIECE($TEXT(BHL),";",3)
+11 SET DIR("A")=$PIECE($TEXT(BA),";",3)
+12 if $DATA(IOF)
WRITE @IOF
+13 WRITE !,$PIECE($TEXT(SH),";",3),!,$PIECE($TEXT(SH0),";",3)
+14 DO ^DIR
KILL DIR
+15 IF Y="M"
DO ^ORWDBA8
GOTO MAIN
+16 IF Y="E"
DO EN^ORWDBA10("E")
GOTO MAIN
+17 IF Y="D"
DO EN^ORWDBA10("D")
GOTO MAIN
+18 IF Y="L"
DO ^ORWDBA14
GOTO MAIN
+19 QUIT
+20 ;Text for MAIN user interface
SH ;;Enable Clinical Indicator Data Capture By Provider Parameter Management
SH0 ;;Select Parameter Management Option
B0A ;;M:Manage parameter by provider
B0E ;;E:Enable parameter for all providers
B0D ;;D:Disable parameter for all providers
B0L ;;L:List providers with the assigned parameter
BA ;;Select Enable CIDC By Provider parameter option
BHA ;;Enter M to manage the Enable CIDC By Provider parameter by provider.
BHE ;;Enter E to enable the parameter for all providers
BHD ;;Enter D to disable the parameter for all providers
BHL ;;Enter L to get a list of providers with the parameter and its value.
+1 ;
CHKINS ;Check Install
+1 NEW DIR,DTOUT,DUOUT,ERR,MSG,RF,X,X1,Y
+2 SET MSG(0)=0
+3 DO FIND^DIC(9.7,"","","","PX CLINICAL INDICATOR DATA CAPTURE 1.0","*","","","","RF","ERR")
+4 IF $DATA(ERR)
Begin DoDot:1
+5 FOR X=1:1:$PIECE(ERR("DIERR"),U)
Begin DoDot:2
+6 SET MSG(0)=X
+7 SET MSG(X)=$PIECE($TEXT(PLF),";",3)_" "_ERR("DIERR",X)
+8 SET X1=0
FOR
SET X1=$ORDER(ERR("DIERR",X,"TEXT",X1))
if X1=""
QUIT
Begin DoDot:3
+9 SET MSG(X,X1)=ERR("DIERR",X,"TEXT",X1)
End DoDot:3
End DoDot:2
End DoDot:1
+10 IF $DATA(RF)
Begin DoDot:1
+11 IF $PIECE(RF("DILIST",0),U)=0
Begin DoDot:2
+12 SET MSG(0)=MSG(0)+1
+13 SET MSG(MSG(0))=$PIECE($TEXT(NRF),";",3)
End DoDot:2
End DoDot:1
+14 IF $$CHKPS1^ORWDBA5=0
Begin DoDot:1
+15 SET MSG(0)=MSG(0)+1
+16 SET MSG(MSG(0))=$PIECE($TEXT(MSD),";",3)
End DoDot:1
+17 IF MSG(0)=0
QUIT
+18 if $DATA(IOF)
WRITE @IOF
+19 WRITE !,$PIECE($TEXT(SH),";",3),!,$PIECE($TEXT(SH0),";",3)
+20 SET DIR(0)="E"
+21 WRITE !!,$PIECE($PIECE($TEXT(MH),";",3),"|"),!!,$PIECE($PIECE($TEXT(MH),";",3),"|",2)
+22 FOR X=1:1:MSG(0)
Begin DoDot:1
+23 WRITE !,MSG(X)
+24 SET X1=0
FOR
SET X1=$ORDER(MSG(X,X1))
if X1=""
QUIT
WRITE !,MSG(X,X1)
End DoDot:1
+25 WRITE !!,$PIECE($TEXT(MF1),";",3),!,$PIECE($TEXT(MF2),";",3),!!
+26 DO ^DIR
KILL DIR
+27 QUIT
+28 ;Error message UI text
PLF ;;Package Lookup Failure, Error Code:
NRF ;;No record found in INSTALL file for PX CLINICAL INDICATOR DATA CAPTURE 1.0
MSD ;;CIDC Master Switch is disabled.
MH ;;ALERT!|Please note the following errors.
MF1 ;;The above error(s) will need to be resolved before the CIDC functionality will
MF2 ;;work. You can still assign the Enable CIDC parameter to providers.
