AQAOUHLP ; IHS/ORDC/LJF - HELP OPTION ON MAIN MENU ;
;;1.01;QAI MANAGEMENT;;OCT 05, 1995
;
;This rtn is the help option from the mian menu. It contains an
;introduction to the package, a list of manuals available, a list
;of a facility's package administrator, and a user's access level.
;In future version it will contain a list of enhancements.
;
W @IOF,!!?20,"HELP IN USING QAI MGT SYSTEM",!
;
W !!! K DIR S DIR("A")="Select HELP Option"
S DIR(0)="SO^1:ON-LINE HELP;2:PATCHES;3:ENHANCEMENTS;4:MANUALS AVAILABLE;5:WHO IS THE PKG ADMINISTRATOR?;6:YOUR ACCESS LEVEL"
D ^DIR G EXIT:Y<1,EXIT:Y>6
S AQAOLIN=$S(Y=1:"INTRO",Y=2:"PATCH",Y=3:"ENHANCE",Y=4:"MANUAL",Y=5:"ADMIN",1:"ACCESS")
D @AQAOLIN
G MENU
;
EXIT ; >>> eoj
D KILL^AQAOUTIL W @IOF Q
;
;
INTRO ; >> SUBRTN to print intro to pkg
S XQH="AQAO MAIN MENU" D EN^XQH
N DIR S DIR(0)="E",DIR("A")="Press RETURN when ready to continue"
D ^DIR
Q
;
;
PATCH ; -- SUBRTN calls help frames detailing patches ;PATCH 2
D ASK("AQAO QAI PATCHES","AQAO QAI PATCH ")
Q
;
ENHANCE ; -- SUBRTN calls hlep frames detailing enhancements
D ASK("AQAO ENHANCE MAIN","AQAO ENHANCE ")
Q
;
ASK(AQAOHF,AQAOHF1) ; -- SUBRTN to ask user to view or print help
NEW DIR,X,Y,XQH
W @IOF,!!?20,"QUICK ON-LINE HELP UTILITY",!!
K DIR S DIR(0)="NO^1:2",DIR("A")=" Select option by number"
S DIR("A",1)=" How do you want me to present this help?"
S DIR("A",2)=" "
S DIR("A",3)=" 1. DISPLAY help to your screen"
S DIR("A",4)=" 2. PRINT help to your printer"
S DIR("A",5)=" " D ^DIR G EXIT:$D(DIRUT)
;
I Y=1 S XQH=AQAOHF D EN^XQH Q
I Y=2 D CHOOSE(AQAOHF1)
Q
;
CHOOSE(AQAOH) ; -- SUBRTN so user can choose which help to print
NEW DIR,Y,I,J,XQHFY,XQFMT
S J=0 F I=1:1 Q:'$D(^DIC(9.2,"B",AQAOH_I)) S J=I
Q:J=0 I J=1 S Y=1 D SEND Q
W !! K DIR S DIR(0)="NO^1:"_J
S DIR("A")=" Print which "_$S(AQAOH["PATCH":"PATCH",1:"ENHANCEMENT")
D ^DIR Q:Y<1
SEND S XQHFY=AQAOH_Y,XQFMT="T" D ACTION^XQH4
Q
;
MANUAL ; >> SUBRTN to list manuals available for pkg
W @IOF,!!?20,"MANUALS AVAILABLE FOR YOUR USE",!!
W !!,"QI TOOLS IN RPMS INDEX:"
W ?30,"Last update was in November 1994."
W !?30,"Lists all QI options in each RPMS package."
W !!,"USER MANUAL:"
W ?30,"For use by all QAI users;"
W !?30,"Provides details of each menu option"
W !?30,"and when to use each."
W !!,"TECHNICAL MANUAL:"
W ?30,"For site managers and RPMS developers;"
W !?30,"Provides information on system structure, links"
W !?30,"with other packages, and system requirements."
W !!
N DIR S DIR(0)="E",DIR("A")="Press RETURN when ready to continue"
D ^DIR
Q
;
;
ADMIN ; >> SUBRTN to list all pkg administrators and phone numbers
W @IOF,!!?20,"QAI PACKAGE ADMINISTRATOR(S) FOR YOUR FACILITY",!!
K AQAO S X=0
F S X=$O(^AQAO(9,X)) Q:X'=+X D
.Q:'$D(^AQAO(9,X,0)) Q:$P(^(0),U,4)]"" Q:$P(^(0),U,6)'="QA"
.S AQAO(X)=""
I '$D(AQAO) D Q
.W !!,"NO PACKAGE ADMINISTRATOR DEFINED!"
.W " NOTIFY YOUR SITE MANAGER IMMEDIATELY!!",!!
S X=0
F S X=$O(AQAO(X)) Q:X="" D
.W !,"NAME: ",$P(^VA(200,X,0),U)
.W ?35,"OFFICE PHONE: ",$P($G(^VA(200,X,.13)),U,2)
N DIR S DIR(0)="E",DIR("A")="Press RETURN when ready to continue"
D ^DIR
Q
;
;
ACCESS ; >> SUBRTN to show user their access level
W @IOF,!!?20,"YOUR ACCESS LEVEL IN THE QAI MGT SYSTEM",!!
K DIC S L=0,DIC="^AQAO(9,",FLDS="[AQAO USER INQ]",BY="@NUMBER"
S (TO,FR)=DUZ,DHD="@@",IOP="HOME" D EN1^DIP
N DIR S DIR(0)="E",DIR("A")="Press RETURN when ready to continue"
D ^DIR
Q
AQAOUHLP ; IHS/ORDC/LJF - HELP OPTION ON MAIN MENU ;
+1 ;;1.01;QAI MANAGEMENT;;OCT 05, 1995
+2 ;
+3 ;This rtn is the help option from the mian menu. It contains an
+4 ;introduction to the package, a list of manuals available, a list
+5 ;of a facility's package administrator, and a user's access level.
+6 ;In future version it will contain a list of enhancements.
+7 ;
+8 WRITE @IOF,!!?20,"HELP IN USING QAI MGT SYSTEM",!
+9 ;
+1 WRITE !!!
KILL DIR
SET DIR("A")="Select HELP Option"
+2 SET DIR(0)="SO^1:ON-LINE HELP;2:PATCHES;3:ENHANCEMENTS;4:MANUALS AVAILABLE;5:WHO IS THE PKG ADMINISTRATOR?;6:YOUR ACCESS LEVEL"
+3 DO ^DIR
IF Y<1
GOTO EXIT
IF Y>6
GOTO EXIT
+4 SET AQAOLIN=$SELECT(Y=1:"INTRO",Y=2:"PATCH",Y=3:"ENHANCE",Y=4:"MANUAL",Y=5:"ADMIN",1:"ACCESS")
+5 DO @AQAOLIN
+6 GOTO MENU
+7 ;
EXIT ; >>> eoj
+1 DO KILL^AQAOUTIL
WRITE @IOF
QUIT
+2 ;
+3 ;
INTRO ; >> SUBRTN to print intro to pkg
+1 SET XQH="AQAO MAIN MENU"
DO EN^XQH
+2 NEW DIR
SET DIR(0)="E"
SET DIR("A")="Press RETURN when ready to continue"
+3 DO ^DIR
+4 QUIT
+5 ;
+6 ;
PATCH ; -- SUBRTN calls help frames detailing patches ;PATCH 2
+1 DO ASK("AQAO QAI PATCHES","AQAO QAI PATCH ")
+2 QUIT
+3 ;
ENHANCE ; -- SUBRTN calls hlep frames detailing enhancements
+1 DO ASK("AQAO ENHANCE MAIN","AQAO ENHANCE ")
+2 QUIT
+3 ;
ASK(AQAOHF,AQAOHF1) ; -- SUBRTN to ask user to view or print help
+1 NEW DIR,X,Y,XQH
+2 WRITE @IOF,!!?20,"QUICK ON-LINE HELP UTILITY",!!
+3 KILL DIR
SET DIR(0)="NO^1:2"
SET DIR("A")=" Select option by number"
+4 SET DIR("A",1)=" How do you want me to present this help?"
+5 SET DIR("A",2)=" "
+6 SET DIR("A",3)=" 1. DISPLAY help to your screen"
+7 SET DIR("A",4)=" 2. PRINT help to your printer"
+8 SET DIR("A",5)=" "
DO ^DIR
IF $DATA(DIRUT)
GOTO EXIT
+9 ;
+10 IF Y=1
SET XQH=AQAOHF
DO EN^XQH
QUIT
+11 IF Y=2
DO CHOOSE(AQAOHF1)
+12 QUIT
+13 ;
CHOOSE(AQAOH) ; -- SUBRTN so user can choose which help to print
+1 NEW DIR,Y,I,J,XQHFY,XQFMT
+2 SET J=0
FOR I=1:1
IF '$DATA(^DIC(9.2,"B",AQAOH_I))
QUIT
SET J=I
+3 IF J=0
QUIT
IF J=1
SET Y=1
DO SEND
QUIT
+4 WRITE !!
KILL DIR
SET DIR(0)="NO^1:"_J
+5 SET DIR("A")=" Print which "_$SELECT(AQAOH["PATCH":"PATCH",1:"ENHANCEMENT")
+6 DO ^DIR
IF Y<1
QUIT
SEND SET XQHFY=AQAOH_Y
SET XQFMT="T"
DO ACTION^XQH4
+1 QUIT
+2 ;
MANUAL ; >> SUBRTN to list manuals available for pkg
+1 WRITE @IOF,!!?20,"MANUALS AVAILABLE FOR YOUR USE",!!
+2 WRITE !!,"QI TOOLS IN RPMS INDEX:"
+3 WRITE ?30,"Last update was in November 1994."
+4 WRITE !?30,"Lists all QI options in each RPMS package."
+5 WRITE !!,"USER MANUAL:"
+6 WRITE ?30,"For use by all QAI users;"
+7 WRITE !?30,"Provides details of each menu option"
+8 WRITE !?30,"and when to use each."
+9 WRITE !!,"TECHNICAL MANUAL:"
+10 WRITE ?30,"For site managers and RPMS developers;"
+11 WRITE !?30,"Provides information on system structure, links"
+12 WRITE !?30,"with other packages, and system requirements."
+13 WRITE !!
+14 NEW DIR
SET DIR(0)="E"
SET DIR("A")="Press RETURN when ready to continue"
+15 DO ^DIR
+16 QUIT
+17 ;
+18 ;
ADMIN ; >> SUBRTN to list all pkg administrators and phone numbers
+1 WRITE @IOF,!!?20,"QAI PACKAGE ADMINISTRATOR(S) FOR YOUR FACILITY",!!
+2 KILL AQAO
SET X=0
+3 FOR
SET X=$ORDER(^AQAO(9,X))
IF X'=+X
QUIT
Begin DoDot:1
+4 IF '$DATA(^AQAO(9,X,0))
QUIT
IF $PIECE(^(0),U,4)]""
QUIT
IF $PIECE(^(0),U,6)'="QA"
QUIT
+5 SET AQAO(X)=""
End DoDot:1
+6 IF '$DATA(AQAO)
Begin DoDot:1
+7 WRITE !!,"NO PACKAGE ADMINISTRATOR DEFINED!"
+8 WRITE " NOTIFY YOUR SITE MANAGER IMMEDIATELY!!",!!
End DoDot:1
QUIT
+9 SET X=0
+10 FOR
SET X=$ORDER(AQAO(X))
IF X=""
QUIT
Begin DoDot:1
+11 WRITE !,"NAME: ",$PIECE(^VA(200,X,0),U)
+12 WRITE ?35,"OFFICE PHONE: ",$PIECE($GET(^VA(200,X,.13)),U,2)
End DoDot:1
+13 NEW DIR
SET DIR(0)="E"
SET DIR("A")="Press RETURN when ready to continue"
+14 DO ^DIR
+15 QUIT
+16 ;
+17 ;
ACCESS ; >> SUBRTN to show user their access level
+1 WRITE @IOF,!!?20,"YOUR ACCESS LEVEL IN THE QAI MGT SYSTEM",!!
+2 KILL DIC
SET L=0
SET DIC="^AQAO(9,"
SET FLDS="[AQAO USER INQ]"
SET BY="@NUMBER"
+3 SET (TO,FR)=DUZ
SET DHD="@@"
SET IOP="HOME"
DO EN1^DIP
+4 NEW DIR
SET DIR(0)="E"
SET DIR("A")="Press RETURN when ready to continue"
+5 DO ^DIR
+6 QUIT
