| 1 | DGRPCP ;ALB/MRL/BAJ - CONSISTENCY PRINT ; OCT 25, 2005
|
|---|
| 2 | ;;5.3;Registration;**653**;Aug 13, 1993;Build 2
|
|---|
| 3 | ;
|
|---|
| 4 | ;DG*5.3*653 BAJ 10/25/2005
|
|---|
| 5 | ;modified code to prompt for and process inconsistencies found during Z07 build
|
|---|
| 6 | ;Also modified format of report. Changed to print inconsistency descriptions instead
|
|---|
| 7 | ;of numbers. See DGRPCP1 for detail.
|
|---|
| 8 | ;
|
|---|
| 9 | ;
|
|---|
| 10 | D ON^DGRPC G Q^DGRPCP1:DGER
|
|---|
| 11 | 1 K ^UTILITY($J) D DT^DICRW S Z="^" W !!,"Generate a listing of inconsistent data elements by:",! F I=1:1:3 S J=$P($T(T+I),";;",2),Z=Z_$P(J,"^",1)_"^" W !?4,$P(J,"^",1)
|
|---|
| 12 | R !!,"CHOOSE OUTPUT METHOD OR ENTER '^' TO QUIT: ",X:DTIME S:'$T X="^" D IN^DGHELP G Q^DGRPCP1:X["^"!(X']"") I %=-1 W !!,"The available choices are:",! X "F I=1:1:3 S J=$P($T(T+I),"";;"",2) W !,$P(J,""^"",1),"" - "",$P(J,""^"",2)" G 1
|
|---|
| 13 | S DGHOW=X_"^"_$S(X="A":"ADMISSION",X="R":"REGISTRATION",1:"IDENTIFICATION")_" DATE"
|
|---|
| 14 | D W !! S %DT="EAX",%DT(0)=-DT,%DT("A")="Start with "_$P(DGHOW,"^",2)_": " D ^%DT G Q^DGRPCP1:Y'>0 S DGFRD=Y
|
|---|
| 15 | S Y=DGFRD X ^DD("DD") S %DT("A")=" Go To "_$P(DGHOW,"^",2)_": "_Y_"// " D ^%DT I X']"" S DGTOD=DGFRD_".9999" G H
|
|---|
| 16 | G Q^DGRPCP1:Y'>0 S DGTOD=Y_".9999" I DGFRD>DGTOD W !?4,"TO DATE CAN'T BE BEFORE FROM DATE!!",*7 G D
|
|---|
| 17 | H K %DT S Z="^NAME^TERMINAL DIGIT" R !!,"List by (N)ame or (T)erminal Digit: ",X:DTIME S:'$T X="^" D IN^DGHELP G Q^DGRPCP1:X["^"
|
|---|
| 18 | I %=-1 W !!?4,"N - To generate listing in Alphabetical Order",!?4,"T - To generate listing in Terminal Digit Order." G H
|
|---|
| 19 | Z07 S DGHOW1=X,Z="^Registration^Z07 Messages^All" R !!,"List (R)egistration, (Z)07 Messages or (A)ll Inconsistencies: ",X:DTIME S:'$T X="^" D IN^DGHELP G Q^DGRPCP1:X["^"
|
|---|
| 20 | I %=-1 D G Z07
|
|---|
| 21 | . W !!?4,"R - Generate a list of inconsistencies found during Registration"
|
|---|
| 22 | . W !?4,"Z - Generate a list of inconsistencies found during Z07 Message build"
|
|---|
| 23 | . W !?4,"A - Generate a list of all inconsistencies found"
|
|---|
| 24 | S DGFILT=$S("RZ"[X:X,1:"A")
|
|---|
| 25 | W !!,*7,"THIS OUTPUT REQUIRES 132 COLUMN OUTPUT" S DGVAR="DUZ^DGHOW^DGHOW1^DGFRD^DGTOD^DGFILT",DGPGM="^DGRPCP1" D ZIS^DGUTQ G Q^DGRPCP1:POP U IO G ^DGRPCP1
|
|---|
| 26 | T ;
|
|---|
| 27 | ;;ADMISSION DATE^Patients admitted during a specified date range.
|
|---|
| 28 | ;;IDENTIFICATION DATE^Inconsistencies identified during a specified date range.
|
|---|
| 29 | ;;REGISTRATION DATE^Patients registered during a specified date range.
|
|---|
