source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DGRUPAR.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: 1.6 KB
Line 
1DGRUPAR ; ALB/SCK - RAI/MDS PARAMETER ENTRY/EDIT ; 13 OCT 99
2 ;;5.3;Registration;**190**;Aug 13, 1993
3 ;
4WR ;
5 N DGHEAD,DGMULT,DGX
6 ;
7 S U="^",DGHEAD="RAI/MDS COTS PARAMETER ENTRY/EDIT",IOP="HOME" D ^%ZIS K IOP
8 W @IOF,!?22,DGHEAD,! S X="",$P(X,"=",79)="" W X
9 ;
10 S DGMULT=$$GET1^DIQ(43,1,11,"I")
11 ;
12 W !?4,"Send HL7 V2.3 Messages : ",$$GET1^DIQ(43,1,391.7013),!
13 S DGX=$$GET1^DIQ(43,1,391.705)
14 W !,"[1] RAI Integrated Site : ",$S(DGX]"":DGX,1:"NO")
15 W !?4,"Create Master File Updates : ",$$GET1^DIQ(43,1,391.7014)
16 ;
17DIVSN ;
18 N DGI
19 W !!,"[2]" I DGMULT W ?4,"Divisions: "
20 F DGI=0:0 S DGI=$O(^DG(40.8,DGI)) Q:'DGI S DGX=$P(^(DGI,0),U,1)_$S($P(^(0),U,2)]"":" ("_$P(^(0),U,2)_"), ",1:"") W:$L(DGX)>(65-$X) !?15 W DGX
21 ;
22EDT ;
23 W !
24 S DIR(0)="FAO"
25 S DIR("A")="Enter "_$S(DGMULT:"'D' to view DIVISIONS, ",1:"")_"1-2 to EDIT, or RETURN to QUIT: "
26 D ^DIR K DIR
27 Q:$D(DIRUT)
28 I "dD"[Y D DIV
29 I Y?1N D @Y
30 ;D CONT
31 G WR
32 Q
33 ;
34DIV ;
35 N DGDIV
36 D DGHDV
37 F DGDIV=0:0 S DGDIV=$O(^DG(40.8,DGDIV)) Q:'DGDIV D
38 . S DGD=$$GET1^DIQ(40.8,DGDIV,.01)
39 . W !,DGD,! S X="",$P(X,"-",$L(DGD))="" W X
40 . W !?4,"RAI Subscription Registry : ",$$GET1^DIQ(40.8,DGDIV,900.01),!
41 . I ($Y+8)>IOSL D
42 . . D CONT,DGHDV
43 Q
44 ;
451 ;
46 N DIE,DA
47 ;
48 S DIE=43,DA=1,DR="[DGRAI]"
49 D ^DIE K DIE
50 Q
51 ;
522 ;
53 N DIE,DIC,DR,DA
54 ;
55 I 'DGMULT D
56 . S DGDIV=$$GET1^DIQ(43,1,12,"I")
57 . S DIE=40.8,DR="900.01;"
58 . D ^DIE K DIE
59 ;
60 I DGMULT D
61 . S DIC=40.8,DIC(0)="AEQM" D ^DIC Q:Y'>0
62 . S DIE=DIC,DA=+Y,DR="900.01;" D ^DIE K DIE
63 Q
64 ;
65DGHDV ;
66 W @IOF,!,"Division RAI/MDS Parameters",! S X="",$P(X,"=",79)="" W X
67 Q
68 ;
69CONT S DIR(0)="FAO",DIR("A")="Press any key to continue" D ^DIR K DIR
70 Q
Note: See TracBrowser for help on using the repository browser.