ACMHELP.m

ACMHELP ; IHS/TUCSON/TMJ - CMS COMPONENT DESCRIPTION HELP ROUTINE ;

 ;;2.0;ACM CASE MANAGEMENT SYSTEM;;JAN 10, 1996

 ;HELP ROUTINE - DESCRIPTION OF EACH COMPONENT

 ;

DISPLAY ;DISPLAY COMPONENT CHOICES

 S PAGE=0,ACMOUT=""

 D HEAD^ACMMENU

 W !!

 S ACMX="",ACMU1=0

 F  S ACMX=$O(^ACM(56,"B",ACMX)) Q:ACMX=""  S ACMY=$O(^ACM(56,"B",ACMX,"")) I $P(^ACM(56,ACMY,0),U,4)'="D" S ACMU1=ACMU1+1,ACMZ(ACMU1)=ACMY,ACMX(ACMU1)=ACMX

 S ACMU11=ACMU1\2+(ACMU1#2)

 F ACM=1:1:ACMU11 D

 .S ACMU1=ACM,ACMY=ACMZ(ACMU1)

 .W !,?10,$J(ACMU1,3)_")",?$X+2,ACMX(ACMU1)

 .I $D(^ACM(41.1,ACMRG,2,ACMY))

 .S ACMU1=ACM+ACMU11

 .;Q:'$D(ACMZ(ACMU1))  ;S ACMU1=ACMU1-1 Q

 .I '$D(ACMZ(ACMU1)) S ACMU1=ACMU1-1 Q

 .S ACMY=ACMZ(ACMU1)

 .W ?45,$J(ACMU1,3)_")",?$X+2,ACMX(ACMU1)

 .I $D(^ACM(41.1,ACMRG,2,ACMY))

 ;S ACMU1=ACMU1+1

 ;I ACMU1#2 W !,?10

 ;W ?45

 ;W $J(ACMU1,3)_")"," All data types"

 ;Q

 ;

ASK ;

 W !!,?10,"Enter the Register Component Number to view available Help ",!

 S DIR(0)="LOA^1:"_ACMU1,DIR("A")="Select Option(s) ==> ",DIR("?")="Type a Number from 1 to "_ACMU1

 W !

 D ^DIR K DIR

 ;

 S ACMANS=Y Q:$D(DUOUT)!(Y="")

 F ACMY=1:1 S ACMX=$P(ACMANS,",",ACMY) Q:ACMX=""  D PRINT

 W !,"Hit return to continue - all done with help" R X:DTIME

 K PAGE

 Q

 ;

 ;

PRINT ;

 D HEADING

 S ACML=0

 F  S ACML=$O(^ACM(56,ACMZ(ACMX),1,ACML)) Q:ACML=""!(ACMOUT="^")  D

 .I $Y>(IOSL-6) D HEADING Q:ACMOUT="^"

 .W !,^ACM(56,ACMZ(ACMX),1,ACML,0)

 .Q

 Q

HEADING ;

 I 'PAGE G HEADING1

 I $E(IOST,1,2)="C-" S DIR(0)="E" D ^DIR I Y'=1 S ACMOUT="^" Q

HEADING1 ;

 W @IOF

 S PAGE=PAGE+1

 W !!,?20,"REGISTER COMPONENT EXPLANATION",?60,"PAGE ",PAGE

 Q

 ;

ACMHELP   ; IHS/TUCSON/TMJ - CMS COMPONENT DESCRIPTION HELP ROUTINE ;

 +1       ;;2.0;ACM CASE MANAGEMENT SYSTEM;;JAN 10, 1996

 +2       ;HELP ROUTINE - DESCRIPTION OF EACH COMPONENT

 +3       ;

DISPLAY   ;DISPLAY COMPONENT CHOICES

 +1        SET PAGE=0

           SET ACMOUT=""

 +2        DO HEAD^ACMMENU

 +3        WRITE !!

 +4        SET ACMX=""

           SET ACMU1=0

 +5        FOR 

               SET ACMX=$ORDER(^ACM(56,"B",ACMX))

               IF ACMX=""

                   QUIT 

               SET ACMY=$ORDER(^ACM(56,"B",ACMX,""))

               IF $PIECE(^ACM(56,ACMY,0),U,4)'="D"

                   SET ACMU1=ACMU1+1

                   SET ACMZ(ACMU1)=ACMY

                   SET ACMX(ACMU1)=ACMX

 +6        SET ACMU11=ACMU1\2+(ACMU1#2)

 +7        FOR ACM=1:1:ACMU11

               Begin DoDot:1

 +8                SET ACMU1=ACM

                   SET ACMY=ACMZ(ACMU1)

 +9                WRITE !,?10,$JUSTIFY(ACMU1,3)_")",?$X+2,ACMX(ACMU1)

 +10               IF $DATA(^ACM(41.1,ACMRG,2,ACMY))

 +11               SET ACMU1=ACM+ACMU11

 +12      ;Q:'$D(ACMZ(ACMU1))  ;S ACMU1=ACMU1-1 Q

 +13               IF '$DATA(ACMZ(ACMU1))

                       SET ACMU1=ACMU1-1

                       QUIT 

 +14               SET ACMY=ACMZ(ACMU1)

 +15               WRITE ?45,$JUSTIFY(ACMU1,3)_")",?$X+2,ACMX(ACMU1)

 +16               IF $DATA(^ACM(41.1,ACMRG,2,ACMY))

               End DoDot:1

 +17      ;S ACMU1=ACMU1+1

 +18      ;I ACMU1#2 W !,?10

 +19      ;W ?45

 +20      ;W $J(ACMU1,3)_")"," All data types"

 +21      ;Q

 +22      ;

ASK       ;

 +1        WRITE !!,?10,"Enter the Register Component Number to view available Help ",!

 +2        SET DIR(0)="LOA^1:"_ACMU1

           SET DIR("A")="Select Option(s) ==> "

           SET DIR("?")="Type a Number from 1 to "_ACMU1

 +3        WRITE !

 +4        DO ^DIR

           KILL DIR

 +5       ;

 +6        SET ACMANS=Y

           IF $DATA(DUOUT)!(Y="")

               QUIT 

 +7        FOR ACMY=1:1

               SET ACMX=$PIECE(ACMANS,",",ACMY)

               IF ACMX=""

                   QUIT 

               DO PRINT

 +8        WRITE !,"Hit return to continue - all done with help"

           READ X:DTIME

 +9        KILL PAGE

 +10       QUIT 

 +11      ;

 +12      ;

PRINT     ;

 +1        DO HEADING

 +2        SET ACML=0

 +3        FOR 

               SET ACML=$ORDER(^ACM(56,ACMZ(ACMX),1,ACML))

               IF ACML=""!(ACMOUT="^")

                   QUIT 

               Begin DoDot:1

 +4                IF $Y>(IOSL-6)

                       DO HEADING

                       IF ACMOUT="^"

                           QUIT 

 +5                WRITE !,^ACM(56,ACMZ(ACMX),1,ACML,0)

 +6                QUIT 

               End DoDot:1

 +7        QUIT 

HEADING   ;

 +1        IF 'PAGE

               GOTO HEADING1

 +2        IF $EXTRACT(IOST,1,2)="C-"

               SET DIR(0)="E"

               DO ^DIR

               IF Y'=1

                   SET ACMOUT="^"

                   QUIT 

HEADING1  ;

 +1        WRITE @IOF

 +2        SET PAGE=PAGE+1

 +3        WRITE !!,?20,"REGISTER COMPONENT EXPLANATION",?60,"PAGE ",PAGE

 +4        QUIT 

 +5       ;