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