- 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 ;;
