source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRPCP.m@ 1259

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

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1DGRPCP ;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
111 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"
14D 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
17H 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
19Z07 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
26T ;
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.
Note: See TracBrowser for help on using the repository browser.