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
Print Page as PDF
Routine: GMRAEF

Package: Adverse Reaction Tracking

Routine: GMRAEF


Information

GMRAEF ;HIRMFO/WAA-PRINT FDA EXCEPTION REPORT ;11/29/95 14:40

Source Information

Source file <GMRAEF.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;This is the main entry point for this routine
PRINTER ;Select printer
PRINT ;Central Print
PRT ;Print loop
HEAD ;Header Print
HDR ;
HDR1
EXIT ;EXIT

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No data for this REPORT."
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTER+2
Function Call: WRITE
  • Prompt: !,"PLEASE TRY LATER"
  • Line Location: PRINTER+2
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try later...")
  • Line Location: PRINTER+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: !,?5,"Patient: ",$P(^DPT(GMRDFN,0),U)," (",VA("PID"),")"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: $P(Y,"@")," ",$P(Y,"@",2),?70,"Page: ",GMRAPG
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !,?20,"FDA EXCEPTION REPORT ("
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !,"ORIGINATION D/T",?20,"CAUSATIVE AGENT",?50,"ORIGINATOR"
  • Line Location: HDR1+5
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79),!
  • Line Location: HDR1+6
Info |  Source |  Entry Points |  Interaction Calls