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 ---[H[J[2J[HGMRAHLP0 1450 printed Oct 16, 2024@17:40:13 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
