AMQQHEL2.m

AMQQHEL2 ; IHS/CMI/THL - CONTINUATION OF AMQQHELP ;

 ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 ;-----

EN1 ; ENTRY POINT FROM AMQQSQA

 S X="SQT^"_$O(^AMQQ(4,"B",AMQQSQST,""))_";16"

 I AMQQSQSN'=226 S X=X_";7"

 I $G(AMQQSQSN),$P($G(^AMQQ(5,AMQQSQSN,5)),U,3) S X=X_"~AF^"_$P(^(5),U,3) G EN11

 S Y=U,%=""

 F  S %=$O(^AMQQ(7,"B",%)) Q:%=""  I %[" ATTRIBUTES" S Z=$O(^(%,"")),Y=Y_Z_U

 S %=$P(^AMQQ(5,AMQQSQSN,0),U,4)

 S:%=48 %=50

 I %,Y[(U_(%+1)_U) S X=X_"~AF^"_(1+%)

EN11 S AMQQMSPF=""

 I AMQQSQSN=35 S X=$P(X,"~",2)

 I $G(AMQQSQST)'="","LG"[AMQQSQST K AMQQMSPF

 D EN1^AMQQHELP

 Q

 ;

EN2 ; ENTRY POINT FROM AMQQSQA

 S X="SQT^"_$S(AMQQSQDV'=306:7,1:$O(^AMQQ(4,"B",AMQQSQST,"")))

 D EN1^AMQQHELP

 Q

 ;

AMQQHEL2  ; IHS/CMI/THL - CONTINUATION OF AMQQHELP ;

 +1       ;;2.0;IHS PCC SUITE;;MAY 14, 2009

 +2       ;-----

EN1       ; ENTRY POINT FROM AMQQSQA

 +1        SET X="SQT^"_$ORDER(^AMQQ(4,"B",AMQQSQST,""))_";16"

 +2        IF AMQQSQSN'=226

               SET X=X_";7"

 +3        IF $GET(AMQQSQSN)

               IF $PIECE($GET(^AMQQ(5,AMQQSQSN,5)),U,3)

                   SET X=X_"~AF^"_$PIECE(^(5),U,3)

                   GOTO EN11

 +4        SET Y=U

           SET %=""

 +5        FOR 

               SET %=$ORDER(^AMQQ(7,"B",%))

               IF %=""

                   QUIT 

               IF %[" ATTRIBUTES"

                   SET Z=$ORDER(^(%,""))

                   SET Y=Y_Z_U

 +6        SET %=$PIECE(^AMQQ(5,AMQQSQSN,0),U,4)

 +7        IF %=48

               SET %=50

 +8        IF %

               IF Y[(U_(%+1)_U)

                   SET X=X_"~AF^"_(1+%)

EN11       SET AMQQMSPF=""

 +1        IF AMQQSQSN=35

               SET X=$PIECE(X,"~",2)

 +2        IF $GET(AMQQSQST)'=""

               IF "LG"[AMQQSQST

                   KILL AMQQMSPF

 +3        DO EN1^AMQQHELP

 +4        QUIT 

 +5       ;

EN2       ; ENTRY POINT FROM AMQQSQA

 +1        SET X="SQT^"_$SELECT(AMQQSQDV'=306:7,1:$ORDER(^AMQQ(4,"B",AMQQSQST,"")))

 +2        DO EN1^AMQQHELP

 +3        QUIT 

 +4       ;