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

Package: Adverse Reaction Tracking

Routine: GMRAPU


Information

GMRAPU ;HIRMFO/WAA- PRINT ALLERGY LIST BY LOCATION UNVERIFIED ;8/27/93

Source Information

Source file <GMRAPU.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; This routine will loop through the GMRA patient allergy file (120.8)
; to find all patients with unverified reactions
EXIT ; Exit of program kill cleanup
PRINTER ;Select printer
PRINT ;Queue point for report
REPORT ; Print out the report
HEAD ; Print header information
FIND ; This subroutines will build the data for the report.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINTER+1
Function Call: WRITE
  • Prompt: !,"PLEASE TRY LATER"
  • Line Location: PRINTER+1
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try Later.")
  • Line Location: PRINTER+5
Function Call: WRITE
  • Prompt: !,?20,"NO DATA FOR THIS REPORT"
  • Line Location: REPORT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: "Report Date: ",$P($$FMTE^XLFDT(GMRADATE),"@"),?70,"Page: ",GMRAPG
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: !,?19,"List of Unverified Reactions by Ward Location"
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,?30,"Ward Location: ",GMALOC
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,?3,"Origination Date/Time",?30,"Originator",?55,"Reaction"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",78)
  • Line Location: HEAD+14
Info |  Source |  Entry Points |  Interaction Calls