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: GMRADSP6

Package: Adverse Reaction Tracking

Routine: GMRADSP6


Information

GMRADSP6 ;HIRMFO/YMP,RM,WAA-LISTING OF ALLERGIES NOT ENTERED IN ERROR ;9/23/97 09:07

Source Information

Source file <GMRADSP6.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Entry to ACTIVE LISTING OF PATIENT REACTIONS option
EN3 ;Print Active Patient list if patient is known
EN2 ; Print Active Patient list if patient and device known
EN2A
DISP ;
DISP2
REST ;
WRITG ;
EXIT ;Quit and kill
TASK ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$C(7),"NO ALLERGY/ADVERSE REACTION DATA EXISTS FOR THIS PATIENT"
  • Line Location: EN3+6
Function Call: WRITE
  • Prompt: !," Patient has answered NKA."
  • Line Location: EN2+3
Function Call: WRITE
  • Prompt: !,?33,"No Data Found"
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: !!?3,"TYPE: ",GMRATYPE,!?3,$E(GMRALIN,1,$L(GMRATYPE)+6)
  • Line Location: DISP2+2
Function Call: WRITE
  • Prompt: !,GMRAALL,?60,$P("NO^YES","^",1+$P(GMRATEMP,U,16)),?70,$S($P(GMRATEMP,U,6)="h":"HIST",$P(GMRATEMP,U,6)="o":"OBS",1:"")
  • Line Location: REST+2
Function Call: WRITE
  • Prompt: !,?5,"Reactions: "
  • Line Location: WRITG+1
Function Call: WRITE
  • Prompt: !,?16
  • Line Location: WRITG+2
Function Call: WRITE
  • Prompt: GMRALINE
  • Line Location: WRITG+3
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try later...")
  • Line Location: TASK+2

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