ABPAPI03 ;POST INITIALIZATION TASKS - PART 3; [ 07/25/91 4:18 PM ]
;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991
;---------------------------------------------------------------------
TITLPG ;PROCEDURE TO PRINT DOCUMENTATION TITLE PAGES
S IOP=+ABPAIO D ^%ZIS I 'POP D
.U IO W @IOF F I=1:1:18 U IO W !
.U IO W ?(40-($L(ABPATITL)/2)),ABPATITL,! X ^%ZIS("C")
Q
;---------------------------------------------------------------------
KEYS ;PROCEDURE TO CHECK FOR AND REMOVE UNUSED SECURITY KEYS
W !!," Checking for old, unused security keys..."
S DIK="^DIC(19.1,",MSG="none found!" F I=1:1 D Q:ABPAKEY']""
.S ABPAKEY=$P($T(KEYTEXT+I),";;",2) Q:ABPAKEY']""
.I $D(^DIC(19.1,"B",ABPAKEY))'=0 K MSG D
..S DA=$O(^DIC(19.1,"B",ABPAKEY,"")) Q:+DA'>0
..Q:$D(^DIC(19.1,DA,0))'=1
..W !," Removing the '",ABPAKEY,"' key!"
..D ^DIK H 1
I $D(MSG)=1 W MSG
Q
;---------------------------------------------------------------------
DOCS ;PROCEDURE TO LIST SOME INSTALLATION DOCUMENTATION
S DIC=9.2,DIC(0)="Z",X="ABPA/INSTALL/GUIDE" D ^DIC I +Y>0 D
.S XQHFY=+Y,Y=XQHFY,XQFMT=-1 D INIT^XQH4,SET^XQH4
.S IOP=+ABPAIO D ^%ZIS Q:POP U IO
.D LIST^XQH5 X ^%ZIS("C")
K L,DIC,BY,IOP,X,Y,XQHFY,XQFMT
S ABPAKVER=$O(^DIC(9.4,"B","KERNEL",""))
I ABPAKVER]"" I $D(^DIC(9.4,ABPAKVER,"VERSION"))=1 D
.S ABPAKVER=^("VERSION")
S ABPATLE="AO PRIVATE INSURANCE TRACKING "
I $D(DIFROM(0))&($D(DIFQ)) D
.S ABPATLE=ABPATLE_"V."_DIFROM
S ABPATITL=ABPATLE_" - SYSTEM MENU TREE" D TITLPG
S IOP=+ABPAIO_";80;60" D ^%ZIS I 'POP D
.D INIT^XQ4 K DIC S DIC=19,DIC(0)="Z",X="ABPAMENU" D ^DIC I +Y>0 D
..S D0=+Y,MQ=$P(Y(0),"^"),XQ4=0 U IO W @IOF
..D:ABPAKVER<6 E^XQ4 D:ABPAKVER>5.99 E^XQ41
..D GO^XQ4
.X ^%ZIS("C") K L,DIC,D0,MQ,X,Y,IOP
S ABPATITL=ABPATLE_" - SYSTEM OPTIONS" D TITLPG
S L=0,DIC=19,BY="[ABPA/OPTION/LIST]",IOP=+ABPAIO_";80;60" D EN^DIP
S ABPATITL=ABPATLE_" - SYSTEM SORT TEMPLATES" D TITLPG
S L=0,DIC=.401,BY="[ABPA/SORT/TEMPLATE/LIST]",IOP=+ABPAIO_";80;60"
D EN^DIP
S L=0,DIC=.401,BY="[ABPA/SORT/TEMPLATE/DOC]",IOP=+ABPAIO_";80;60"
D EN^DIP
S ABPATITL=ABPATLE_" - SYSTEM PRINT TEMPLATES" D TITLPG
S L=0,DIC=.4,BY="[ABPA/PRINT/TEMPLATE/LIST]",IOP=+ABPAIO_";80;60"
D EN^DIP
S L=0,DIC=.4,BY="[ABPA/PRINT/TEMPLATE/DOC]",IOP=+ABPAIO_";80;60"
D EN^DIP
S IOP=+ABPAIO_";80;60" D ^%ZIS
Q
;---------------------------------------------------------------------
;DATA TEXT LINES USED DURING SUB-ROUTINE EXECUTION
KEYTEXT ;;INVALID SECURITY KEY NAMES
;;ABPAZEXP
;;ABPAZIPD
;;ABPAZLPD
;;
ABPAPI03 ;POST INITIALIZATION TASKS - PART 3; [ 07/25/91 4:18 PM ]
+1 ;;1.4;AO PVT-INS TRACKING;*0*;IHS-OKC/KJR;JULY 25, 1991
+2 ;---------------------------------------------------------------------
TITLPG ;PROCEDURE TO PRINT DOCUMENTATION TITLE PAGES
+1 SET IOP=+ABPAIO
DO ^%ZIS
IF 'POP
Begin DoDot:1
+2 USE IO
WRITE @IOF
FOR I=1:1:18
USE IO
WRITE !
+3 USE IO
WRITE ?(40-($LENGTH(ABPATITL)/2)),ABPATITL,!
XECUTE ^%ZIS("C")
End DoDot:1
+4 QUIT
+5 ;---------------------------------------------------------------------
KEYS ;PROCEDURE TO CHECK FOR AND REMOVE UNUSED SECURITY KEYS
+1 WRITE !!," Checking for old, unused security keys..."
+2 SET DIK="^DIC(19.1,"
SET MSG="none found!"
FOR I=1:1
Begin DoDot:1
+3 SET ABPAKEY=$PIECE($TEXT(KEYTEXT+I),";;",2)
IF ABPAKEY']""
QUIT
+4 IF $DATA(^DIC(19.1,"B",ABPAKEY))'=0
KILL MSG
Begin DoDot:2
+5 SET DA=$ORDER(^DIC(19.1,"B",ABPAKEY,""))
IF +DA'>0
QUIT
+6 IF $DATA(^DIC(19.1,DA,0))'=1
QUIT
+7 WRITE !," Removing the '",ABPAKEY,"' key!"
+8 DO ^DIK
HANG 1
End DoDot:2
End DoDot:1
IF ABPAKEY']""
QUIT
+9 IF $DATA(MSG)=1
WRITE MSG
+10 QUIT
+11 ;---------------------------------------------------------------------
DOCS ;PROCEDURE TO LIST SOME INSTALLATION DOCUMENTATION
+1 SET DIC=9.2
SET DIC(0)="Z"
SET X="ABPA/INSTALL/GUIDE"
DO ^DIC
IF +Y>0
Begin DoDot:1
+2 SET XQHFY=+Y
SET Y=XQHFY
SET XQFMT=-1
DO INIT^XQH4
DO SET^XQH4
+3 SET IOP=+ABPAIO
DO ^%ZIS
IF POP
QUIT
USE IO
+4 DO LIST^XQH5
XECUTE ^%ZIS("C")
End DoDot:1
+5 KILL L,DIC,BY,IOP,X,Y,XQHFY,XQFMT
+6 SET ABPAKVER=$ORDER(^DIC(9.4,"B","KERNEL",""))
+7 IF ABPAKVER]""
IF $DATA(^DIC(9.4,ABPAKVER,"VERSION"))=1
Begin DoDot:1
+8 SET ABPAKVER=^("VERSION")
End DoDot:1
+9 SET ABPATLE="AO PRIVATE INSURANCE TRACKING "
+10 IF $DATA(DIFROM(0))&($DATA(DIFQ))
Begin DoDot:1
+11 SET ABPATLE=ABPATLE_"V."_DIFROM
End DoDot:1
+12 SET ABPATITL=ABPATLE_" - SYSTEM MENU TREE"
DO TITLPG
+13 SET IOP=+ABPAIO_";80;60"
DO ^%ZIS
IF 'POP
Begin DoDot:1
+14 DO INIT^XQ4
KILL DIC
SET DIC=19
SET DIC(0)="Z"
SET X="ABPAMENU"
DO ^DIC
IF +Y>0
Begin DoDot:2
+15 SET D0=+Y
SET MQ=$PIECE(Y(0),"^")
SET XQ4=0
USE IO
WRITE @IOF
+16 IF ABPAKVER<6
DO E^XQ4
IF ABPAKVER>5.99
DO E^XQ41
+17 DO GO^XQ4
End DoDot:2
+18 XECUTE ^%ZIS("C")
KILL L,DIC,D0,MQ,X,Y,IOP
End DoDot:1
+19 SET ABPATITL=ABPATLE_" - SYSTEM OPTIONS"
DO TITLPG
+20 SET L=0
SET DIC=19
SET BY="[ABPA/OPTION/LIST]"
SET IOP=+ABPAIO_";80;60"
DO EN^DIP
+21 SET ABPATITL=ABPATLE_" - SYSTEM SORT TEMPLATES"
DO TITLPG
+22 SET L=0
SET DIC=.401
SET BY="[ABPA/SORT/TEMPLATE/LIST]"
SET IOP=+ABPAIO_";80;60"
+23 DO EN^DIP
+24 SET L=0
SET DIC=.401
SET BY="[ABPA/SORT/TEMPLATE/DOC]"
SET IOP=+ABPAIO_";80;60"
+25 DO EN^DIP
+26 SET ABPATITL=ABPATLE_" - SYSTEM PRINT TEMPLATES"
DO TITLPG
+27 SET L=0
SET DIC=.4
SET BY="[ABPA/PRINT/TEMPLATE/LIST]"
SET IOP=+ABPAIO_";80;60"
+28 DO EN^DIP
+29 SET L=0
SET DIC=.4
SET BY="[ABPA/PRINT/TEMPLATE/DOC]"
SET IOP=+ABPAIO_";80;60"
+30 DO EN^DIP
+31 SET IOP=+ABPAIO_";80;60"
DO ^%ZIS
+32 QUIT
+33 ;---------------------------------------------------------------------
+34 ;DATA TEXT LINES USED DURING SUB-ROUTINE EXECUTION
KEYTEXT ;;INVALID SECURITY KEY NAMES
+1 ;;ABPAZEXP
+2 ;;ABPAZIPD
+3 ;;ABPAZLPD
+4 ;;
