AQAOPOS2 ; IHS/ORDC/LJF - POST INIT CONTINUED ;
;;1.01;QAI MANAGEMENT;;OCT 05, 1995
;
;This is a continuation of the QAI postinits. This rtn installs your
;primary facility into the QI Parameter file and sets up at least one
;user as the package administrator.
;
MAIN D 3,4,5,6,7 Q ;do steps 3, 4, 5, 6, 7 and return to AQAOPOST
;
3 ; step 3 - create primary facility entry in parameter file
W !!,"STEP 3 - SET UP YOUR FACILITY IN PARAMETER FILE",!!
I $D(DUZ(2)),DUZ(2)>0,$D(^AQAGP(DUZ(2))) D Q
.W !,$P(^DIC(4,DUZ(2),0),U)
.W " is ALREADY set up in the QI Parameter file!!"
; ask user for facility name
W !! K DIC S DIC="^AUTTLOC(",DIC(0)="AEMZQ"
S DIC("B")=$S('$D(DUZ(2)):"",DUZ(2)<1:"",1:$P($G(^DIC(4,DUZ(2),0)),U))
S DIC("A")="Select QI FACILITY NAME: " D ^DIC
Q:$D(DTOUT) Q:$D(DUOUT) Q:X="" G 3:Y=-1 S AQAOFAC=+Y
31 I $D(^AQAGP(AQAOFAC)) D Q
.W !!,"This facility is ALREADY set up in the QI Parameter file!!"
;
SURE ; ask user if he is sure he wants to add this facility
W !! K DIR,DIC S DIR(0)="YO",DIR("B")="NO"
S DIR("A")="Okay to ADD this facility to the QI PARAMETER file"
S DIR("?",1)="Answer YES to create an entry in the QI Parameter file"
S DIR("?",2)="for the facility you selected. Answer NO to select "
S DIR("?")="another facility."
D ^DIR Q:$D(DIRUT) G 3:Y=0
;
ADD ; set variables and call file^dicn
W !! K DD,DO,DIC,DIR S DLAYGO=9002166,DIC="^AQAGP(",DIC(0)="L"
S (DINUM,X)=AQAOFAC,DIC("DR")="[AQAO PARAM ADD]"
L +(^AQAGP(0)):1 I '$T D Q
.W !!,"CANNOT ADD; ANOTHER USER ADDING TO THIS FILE. TRY AGAIN.",!
D FILE^DICN L -(^AQAGP(0))
W !!,"CREATING ENTRY . . ."
I Y=-1 W !!,"**ERROR** COULD NOT CREATE ENTRY IN FILE!" G 4
W !!,"ENTRY CREATED!"
W !!,"To ACTIVATE any of the automatic linkages, please use the option"
W !,"titled EDIT PARAMETER FILE and select the same facility."
W !!
Q
;
;
4 ; step 4 - set up pkg administrator
W !!,"STEP 4 - DEFINE QAI PACKAGE ADMINISTRATOR",!!
W !,"Due to the extra security measures implemented in this package,"
W !,"no one can access the main QAI menu without having the proper"
W !,"entry in the QI USER file. This step will create an entry for"
W !,"the QI staff person who will be responsible for all the"
W !,"administrative duties involved in running this package. This"
W !,"should be a QI staff member, NOT the site manager. This person"
W !,"can add more package administrators, if necessary.",!!
;
I $O(^AQAO(9,"AC","QA",0)) D
.W !!,"You already have a PKG ADMINISTRATOR defined."
.S X=0 F S X=$O(^AQAO(9,"AC","QA",X)) Q:X="" D
..W !,"Name: ",$P(^VA(200,X,0),U)
.W !!,"To bypass this step, simple enter a ""^"" at the prompt.",!!
;
K DIC S DIC=200,DIC(0)="AEMQZ"
S DIC("S")="I $P(^VA(200,Y,0),U,3)]"""",$P(^(0),U,11)="""""
S DIC("A")="Select PERSON to be PKG ADMINISTRATOR: " D ^DIC
Q:$D(DTOUT) Q:$D(DUOUT) G 4:Y=-1 S AQAOX=+Y
;
I $D(^AQAO(9,"AC","QA",AQAOX)) D Q
.W !!,"This person is already set up as a package administrator."
.W !,"Bypassing . . ."
;
I $D(^AQAO(9,"B",AQAOX)) D Q
.W !!,"This person is already in the QI User file but NOT as a"
.W !,"package administrator."
.K DIR S DIR(0)="Y",DIR("B")="NO"
.S DIR("A")="Do you want to make this user a pkg administrator"
.D ^DIR I Y=1 D
..S DIE="^AQAO(9,",DA=AQAOX,DR=".06////QA" D ^DIE
;
W !! K DIR S DIR(0)="Y"
S DIR("A")="Ready to add this person as PKG ADMINISTRATOR"
D ^DIR I Y'=1 G 4
K DIC,DD,DO S DIC="^AQAO(9,",DIC(0)="L",(DINUM,X)=AQAOX
S DIC("DR")=".02////"_DT_";.03////"_$G(DUZ)_";.06////QA" D FILE^DICN
I Y=-1 W !!,"**ERROR** Could not create entry!"
W !!,"Make sure the Package Administrator is given ALL security"
W !,"keys in the AQAO namespace BUT only if QAI training has been"
W !,"given by the developer OR area trainer",!!
Q
;
;
5 ; step 5 - add AQAOVST to PCC Visit Merge Utility
W !!,"STEP 5 - UPDATE PCC VISIT MERGE UTILITY",!!
W !,"I will now add an entry for QAI into the MODULE PCC LINK CONTROL"
W !,"file. This insures visit merges will be reflected in those"
W !,"occurrences pointing to the affected visits.",!!
Q:$D(^APCDLINK("B","QAI MGT SYSTEM")) ;already exists
K DD,DO S DIC="^APCDLINK(",DIC(0)="LE",DLAYGO=9001002
S DIC("DR")="1////S AQAOSAV=$G(X),X=""AQAOVST"" X ^%ZOSF(""TEST"") S X=AQAOSAV K AQAOSAV I $T D MRG^AQAOVST"
S X="QAI MGT SYSTEM" D FILE^DICN
Q
;
;
6 ;step 6 - kill old xrefs no longer used
W !!,"STEP 6 - KILL OLD CROSS-REFERENCES NO LONGER USED",!!
W !,"I will now kill any cross-references used during alpha testing"
W !,"that are no longer needed by the software",!!
W !,"Kill ^AQAOCC(7,""AC"")" K ^AQAOCC(7,"AC")
W !,"Kill ^AQAOC(""AFF"")" K ^AQAOC("AFF")
Q
;
7 ; -- convert provider data to variable pointer
W !!,"CONVERTING provider data to new structure. . ."
NEW X,Y,DIK K ^AQAOCC(7,"B")
S X=0 F S X=$O(^AQAOCC(7,X)) Q:X'=+X D
. S Y=$P(^AQAOCC(7,X,0),U) Q:Y'=+Y ;already converted
. S $P(^AQAOCC(7,X,0),U)=Y_";VA(200,"
S DIK="^AQAOCC(7,",DIK(1)=".01^B" D ENALL^DIK
Q
AQAOPOS2 ; IHS/ORDC/LJF - POST INIT CONTINUED ;
+1 ;;1.01;QAI MANAGEMENT;;OCT 05, 1995
+2 ;
+3 ;This is a continuation of the QAI postinits. This rtn installs your
+4 ;primary facility into the QI Parameter file and sets up at least one
+5 ;user as the package administrator.
+6 ;
MAIN ;do steps 3, 4, 5, 6, 7 and return to AQAOPOST
DO 3
DO 4
DO 5
DO 6
DO 7
QUIT
+1 ;
3 ; step 3 - create primary facility entry in parameter file
+1 WRITE !!,"STEP 3 - SET UP YOUR FACILITY IN PARAMETER FILE",!!
+2 IF $DATA(DUZ(2))
IF DUZ(2)>0
IF $DATA(^AQAGP(DUZ(2)))
Begin DoDot:1
+3 WRITE !,$PIECE(^DIC(4,DUZ(2),0),U)
+4 WRITE " is ALREADY set up in the QI Parameter file!!"
End DoDot:1
QUIT
+5 ; ask user for facility name
+6 WRITE !!
KILL DIC
SET DIC="^AUTTLOC("
SET DIC(0)="AEMZQ"
+7 SET DIC("B")=$SELECT('$DATA(DUZ(2)):"",DUZ(2)<1:"",1:$PIECE($GET(^DIC(4,DUZ(2),0)),U))
+8 SET DIC("A")="Select QI FACILITY NAME: "
DO ^DIC
+9 IF $DATA(DTOUT)
QUIT
IF $DATA(DUOUT)
QUIT
IF X=""
QUIT
IF Y=-1
GOTO 3
SET AQAOFAC=+Y
31 IF $DATA(^AQAGP(AQAOFAC))
Begin DoDot:1
+1 WRITE !!,"This facility is ALREADY set up in the QI Parameter file!!"
End DoDot:1
QUIT
+2 ;
SURE ; ask user if he is sure he wants to add this facility
+1 WRITE !!
KILL DIR,DIC
SET DIR(0)="YO"
SET DIR("B")="NO"
+2 SET DIR("A")="Okay to ADD this facility to the QI PARAMETER file"
+3 SET DIR("?",1)="Answer YES to create an entry in the QI Parameter file"
+4 SET DIR("?",2)="for the facility you selected. Answer NO to select "
+5 SET DIR("?")="another facility."
+6 DO ^DIR
IF $DATA(DIRUT)
QUIT
IF Y=0
GOTO 3
+7 ;
ADD ; set variables and call file^dicn
+1 WRITE !!
KILL DD,DO,DIC,DIR
SET DLAYGO=9002166
SET DIC="^AQAGP("
SET DIC(0)="L"
+2 SET (DINUM,X)=AQAOFAC
SET DIC("DR")="[AQAO PARAM ADD]"
+3 LOCK +(^AQAGP(0)):1
IF '$TEST
Begin DoDot:1
+4 WRITE !!,"CANNOT ADD; ANOTHER USER ADDING TO THIS FILE. TRY AGAIN.",!
End DoDot:1
QUIT
+5 DO FILE^DICN
LOCK -(^AQAGP(0))
+6 WRITE !!,"CREATING ENTRY . . ."
+7 IF Y=-1
WRITE !!,"**ERROR** COULD NOT CREATE ENTRY IN FILE!"
GOTO 4
+8 WRITE !!,"ENTRY CREATED!"
+9 WRITE !!,"To ACTIVATE any of the automatic linkages, please use the option"
+10 WRITE !,"titled EDIT PARAMETER FILE and select the same facility."
+11 WRITE !!
+12 QUIT
+13 ;
+14 ;
4 ; step 4 - set up pkg administrator
+1 WRITE !!,"STEP 4 - DEFINE QAI PACKAGE ADMINISTRATOR",!!
+2 WRITE !,"Due to the extra security measures implemented in this package,"
+3 WRITE !,"no one can access the main QAI menu without having the proper"
+4 WRITE !,"entry in the QI USER file. This step will create an entry for"
+5 WRITE !,"the QI staff person who will be responsible for all the"
+6 WRITE !,"administrative duties involved in running this package. This"
+7 WRITE !,"should be a QI staff member, NOT the site manager. This person"
+8 WRITE !,"can add more package administrators, if necessary.",!!
+9 ;
+10 IF $ORDER(^AQAO(9,"AC","QA",0))
Begin DoDot:1
+11 WRITE !!,"You already have a PKG ADMINISTRATOR defined."
+12 SET X=0
FOR
SET X=$ORDER(^AQAO(9,"AC","QA",X))
IF X=""
QUIT
Begin DoDot:2
+13 WRITE !,"Name: ",$PIECE(^VA(200,X,0),U)
End DoDot:2
+14 WRITE !!,"To bypass this step, simple enter a ""^"" at the prompt.",!!
End DoDot:1
+15 ;
+16 KILL DIC
SET DIC=200
SET DIC(0)="AEMQZ"
+17 SET DIC("S")="I $P(^VA(200,Y,0),U,3)]"""",$P(^(0),U,11)="""""
+18 SET DIC("A")="Select PERSON to be PKG ADMINISTRATOR: "
DO ^DIC
+19 IF $DATA(DTOUT)
QUIT
IF $DATA(DUOUT)
QUIT
IF Y=-1
GOTO 4
SET AQAOX=+Y
+20 ;
+21 IF $DATA(^AQAO(9,"AC","QA",AQAOX))
Begin DoDot:1
+22 WRITE !!,"This person is already set up as a package administrator."
+23 WRITE !,"Bypassing . . ."
End DoDot:1
QUIT
+24 ;
+25 IF $DATA(^AQAO(9,"B",AQAOX))
Begin DoDot:1
+26 WRITE !!,"This person is already in the QI User file but NOT as a"
+27 WRITE !,"package administrator."
+28 KILL DIR
SET DIR(0)="Y"
SET DIR("B")="NO"
+29 SET DIR("A")="Do you want to make this user a pkg administrator"
+30 DO ^DIR
IF Y=1
Begin DoDot:2
+31 SET DIE="^AQAO(9,"
SET DA=AQAOX
SET DR=".06////QA"
DO ^DIE
End DoDot:2
End DoDot:1
QUIT
+32 ;
+33 WRITE !!
KILL DIR
SET DIR(0)="Y"
+34 SET DIR("A")="Ready to add this person as PKG ADMINISTRATOR"
+35 DO ^DIR
IF Y'=1
GOTO 4
+36 KILL DIC,DD,DO
SET DIC="^AQAO(9,"
SET DIC(0)="L"
SET (DINUM,X)=AQAOX
+37 SET DIC("DR")=".02////"_DT_";.03////"_$GET(DUZ)_";.06////QA"
DO FILE^DICN
+38 IF Y=-1
WRITE !!,"**ERROR** Could not create entry!"
+39 WRITE !!,"Make sure the Package Administrator is given ALL security"
+40 WRITE !,"keys in the AQAO namespace BUT only if QAI training has been"
+41 WRITE !,"given by the developer OR area trainer",!!
+42 QUIT
+43 ;
+44 ;
5 ; step 5 - add AQAOVST to PCC Visit Merge Utility
+1 WRITE !!,"STEP 5 - UPDATE PCC VISIT MERGE UTILITY",!!
+2 WRITE !,"I will now add an entry for QAI into the MODULE PCC LINK CONTROL"
+3 WRITE !,"file. This insures visit merges will be reflected in those"
+4 WRITE !,"occurrences pointing to the affected visits.",!!
+5 ;already exists
IF $DATA(^APCDLINK("B","QAI MGT SYSTEM"))
QUIT
+6 KILL DD,DO
SET DIC="^APCDLINK("
SET DIC(0)="LE"
SET DLAYGO=9001002
+7 SET DIC("DR")="1////S AQAOSAV=$G(X),X=""AQAOVST"" X ^%ZOSF(""TEST"") S X=AQAOSAV K AQAOSAV I $T D MRG^AQAOVST"
+8 SET X="QAI MGT SYSTEM"
DO FILE^DICN
+9 QUIT
+10 ;
+11 ;
6 ;step 6 - kill old xrefs no longer used
+1 WRITE !!,"STEP 6 - KILL OLD CROSS-REFERENCES NO LONGER USED",!!
+2 WRITE !,"I will now kill any cross-references used during alpha testing"
+3 WRITE !,"that are no longer needed by the software",!!
+4 WRITE !,"Kill ^AQAOCC(7,""AC"")"
KILL ^AQAOCC(7,"AC")
+5 WRITE !,"Kill ^AQAOC(""AFF"")"
KILL ^AQAOC("AFF")
+6 QUIT
+7 ;
7 ; -- convert provider data to variable pointer
+1 WRITE !!,"CONVERTING provider data to new structure. . ."
+2 NEW X,Y,DIK
KILL ^AQAOCC(7,"B")
+3 SET X=0
FOR
SET X=$ORDER(^AQAOCC(7,X))
IF X'=+X
QUIT
Begin DoDot:1
+4 ;already converted
SET Y=$PIECE(^AQAOCC(7,X,0),U)
IF Y'=+Y
QUIT
+5 SET $PIECE(^AQAOCC(7,X,0),U)=Y_";VA(200,"
End DoDot:1
+6 SET DIK="^AQAOCC(7,"
SET DIK(1)=".01^B"
DO ENALL^DIK
+7 QUIT
