| [613] | 1 | DGRUPAR ; ALB/SCK - RAI/MDS PARAMETER ENTRY/EDIT ; 13 OCT 99
|
|---|
| 2 | ;;5.3;Registration;**190**;Aug 13, 1993
|
|---|
| 3 | ;
|
|---|
| 4 | WR ;
|
|---|
| 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 | ;
|
|---|
| 17 | DIVSN ;
|
|---|
| 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 | ;
|
|---|
| 22 | EDT ;
|
|---|
| 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 | ;
|
|---|
| 34 | DIV ;
|
|---|
| 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 | ;
|
|---|
| 45 | 1 ;
|
|---|
| 46 | N DIE,DA
|
|---|
| 47 | ;
|
|---|
| 48 | S DIE=43,DA=1,DR="[DGRAI]"
|
|---|
| 49 | D ^DIE K DIE
|
|---|
| 50 | Q
|
|---|
| 51 | ;
|
|---|
| 52 | 2 ;
|
|---|
| 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 | ;
|
|---|
| 65 | DGHDV ;
|
|---|
| 66 | W @IOF,!,"Division RAI/MDS Parameters",! S X="",$P(X,"=",79)="" W X
|
|---|
| 67 | Q
|
|---|
| 68 | ;
|
|---|
| 69 | CONT S DIR(0)="FAO",DIR("A")="Press any key to continue" D ^DIR K DIR
|
|---|
| 70 | Q
|
|---|
