GMRAHLP0.m

GMRAHLP0 ;HIRMFO/YMP,RM-ALLERGY HELP MODULES ;11/16/07  09:06

 ;;4.0;Adverse Reaction Tracking;**41**;Mar 29, 1996;Build 8

 ;DBIA Section

 ;PSNDI - 4554

 ;DIC   - 10006

 ;XLFDT - 10103

EN1 ; PRINT HELP FOR CAUSATIVE AGENT FIELD

 W !?3,"ENTER THE NAME OF THE CAUSATIVE AGENT, 3-30 CHARACTERS."

 Q

HELP ; HELP FOR A/AR LOOKUP

 I $D(GMRAHLP) D:'$D(GMRAL) EN1^GMRADPT D EN1^GMRADSP0(.GMRAL) Q:GMRAOUT

EXHLP W !!?4,"Would you like to see a list of:",!?6,"1  Local Allergies (Food/Drug/Other)",!?6,"2  Drug Classes",!?6,"3  Drug Ingredients",!?6,"4  National Drugs" ;41 Removed file 50 from list

 R !?4,"Select a number (1-4):",X:DTIME S:'$T X="^^" I "^^"[X S:X="^^"!(X="^") GMRAOUT=1 Q  ;41 changed range from 1-5 to 1-4

 I X\1'=X!(X<1)!(X>4) W !?7,$C(7),"ANSWER WITH THE NUMBER (1-4) OF THE SELECTION FOR",!?7,"WHICH YOU WISH TO SEE MORE HELP." G EXHLP ;41 Changed 5 to 4 for selection

 S DIC=$S(X=1:120.82,X=2:50.605,X=3:50.416,1:50.6) D HLPLK ;41 Removed file 50 reference

 G EXHLP

HLPLK ; LOOKUP ON FILE IN DIC

 S DIC(0)="E",X="??" S:DIC=50.416 D="P" S:DIC=50.605 DIC("W")="W ?10,$P(^(0),U,2)",DIC(0)="SE",D="C" ;41 Split line due to length

 I DIC=120.82 D ^DIC Q  ;41 Separate out the call to DIC if it's 120.82

 I DIC=50.6 D DIC^PSNDI(DIC,"GMRA",.DIC,.X,,$$DT^XLFDT) Q  ;41 Changed DIC calls to associated calls in pharmacy

 D IX^PSNDI(DIC,"GMRA",.DIC,D,.X,,$$DT^XLFDT) ;41 Changed DIC calls to associated calls in pharmacy

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---GMRAHLP0   1450     printed  Apr 09, 2024@20:46:08                                                                                                                                                                                                    Page 2

GMRAHLP0  ;HIRMFO/YMP,RM-ALLERGY HELP MODULES ;11/16/07  09:06

 +1       ;;4.0;Adverse Reaction Tracking;**41**;Mar 29, 1996;Build 8

 +2       ;DBIA Section

 +3       ;PSNDI - 4554

 +4       ;DIC   - 10006

 +5       ;XLFDT - 10103

EN1       ; PRINT HELP FOR CAUSATIVE AGENT FIELD

 +1        WRITE !?3,"ENTER THE NAME OF THE CAUSATIVE AGENT, 3-30 CHARACTERS."

 +2        QUIT 

HELP      ; HELP FOR A/AR LOOKUP

 +1        IF $DATA(GMRAHLP)

               if '$DATA(GMRAL)

                   DO EN1^GMRADPT

               DO EN1^GMRADSP0(.GMRAL)

               if GMRAOUT

                   QUIT 

EXHLP     ;41 Removed file 50 from list

           WRITE !!?4,"Would you like to see a list of:",!?6,"1  Local Allergies (Food/Drug/Other)",!?6,"2  Drug Classes",!?6,"3  Drug Ingredients",!?6,"4  National Drugs"

 +1       ;41 changed range from 1-5 to 1-4

           READ !?4,"Select a number (1-4):",X:DTIME

           if '$TEST

               SET X="^^"

           IF "^^"[X

               if X="^^"!(X="^")

                   SET GMRAOUT=1

               QUIT 

 +2       ;41 Changed 5 to 4 for selection

           IF X\1'=X!(X<1)!(X>4)

               WRITE !?7,$CHAR(7),"ANSWER WITH THE NUMBER (1-4) OF THE SELECTION FOR",!?7,"WHICH YOU WISH TO SEE MORE HELP."

               GOTO EXHLP

 +3       ;41 Removed file 50 reference

           SET DIC=$SELECT(X=1:120.82,X=2:50.605,X=3:50.416,1:50.6)

           DO HLPLK

 +4        GOTO EXHLP

HLPLK     ; LOOKUP ON FILE IN DIC

 +1       ;41 Split line due to length

           SET DIC(0)="E"

           SET X="??"

           if DIC=50.416

               SET D="P"

           if DIC=50.605

               SET DIC("W")="W ?10,$P(^(0),U,2)"

               SET DIC(0)="SE"

               SET D="C"

 +2       ;41 Separate out the call to DIC if it's 120.82

           IF DIC=120.82

               DO ^DIC

               QUIT 

 +3       ;41 Changed DIC calls to associated calls in pharmacy

           IF DIC=50.6

               DO DIC^PSNDI(DIC,"GMRA",.DIC,.X,,$$DT^XLFDT)

               QUIT 

 +4       ;41 Changed DIC calls to associated calls in pharmacy

           DO IX^PSNDI(DIC,"GMRA",.DIC,D,.X,,$$DT^XLFDT)

 +5        QUIT