Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: GMRAVAM0

Package: Adverse Reaction Tracking

Routine: GMRAVAM0


Information

GMRAVAM0 ;HIRMFO/YMP,WAA,RM-DRIVER FOR VERIFIER ;7/30/04 14:42

Source Information

Source file <GMRAVAM0.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Entry for VERIFY PATIENT REACTION DATA option
EN2 ;Select the type of Agent to verify
VERPT ; Loop through all Patient GMRADFN's data to be verified and save
; in ^TMP("GMRAV",$J array.
ARRAY
DISPLAY ;
SELECT
SELL
SELT ;SELECT THE REACTIONS
ALLERPR ;
WRITE
SCREEN
SEL ;
NOVER ;
EXIT ;
FF ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?20,$E(I,1),?23,I
  • Line Location: EN2+12
Function Call: WRITE
  • Prompt: !,$C(7),"There isn't any ",$S(GMRAFLAG=1:"drug ",GMRAFLAG=0:"non-drug ",1:""),"allergy data to verify.",!
  • Line Location: EN2+24
Function Call: WRITE
  • Prompt: !,?66,"OBS/"
  • Line Location: DISPLAY+4
Function Call: WRITE
  • Prompt: !,?4,"PATIENT",?41,"ALLERGY",?66,"HIST",?71,"ADR",?75,"TYPE"
  • Line Location: DISPLAY+5
Function Call: WRITE
  • Prompt: !,?4,"-------",?41,"-------",?66,"----",?71,"---",?75,"----",!
  • Line Location: DISPLAY+6
Function Call: WRITE
  • Prompt: !,$J(CX,2),".",?4,$E(GMRANAME,1,20)," (",GMRASSN,") ",$E(GMRALOC,1,8),?41,$E(GMRALLER,1,23),?66
  • Line Location: WRITE+3
Function Call: WRITE
  • Prompt: $S($P(GMRAG,"^",6)="o":"OBS",$P(GMRAG,"^",6)="h":"HIST",1:""),?71,$S($P(GMRAG,"^",14)="A":"NO",$P(GMRAG,"^",14)="P":"YES",1:"UNK")
  • Line Location: WRITE+4
Function Call: WRITE
  • Prompt: ?75
  • Line Location: WRITE+5
Function Call: WRITE
  • Prompt: !,?75
  • Condition for execution: X>1
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: $P("^FOOD^DRUG^OTHER","^",$F("FDO",$E(GMRAY,X)))
  • Line Location: WRITE+8
Function Call: WRITE
  • Prompt: !,"TYPE '^' TO STOP OR"
  • Line Location: SCREEN+0
Function Call: WRITE
  • Prompt: !?4,$C(7),"ANSWER WITH A NUMBER BETWEEN 1 AND ",CX
  • Line Location: SCREEN+4
Function Call: WRITE
  • Prompt: !,"ERROR INVALID SELECTION"
  • Line Location: SEL+8
Function Call: WRITE
  • Prompt: !!?5,$C(7),"You do not have the 'GMRA-ALLERGY VERIFY' Security Key."
  • Line Location: NOVER+1
Function Call: WRITE
  • Prompt: #
  • Line Location: FF+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call