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

Package: Adverse Reaction Tracking

Routine: GMRAPL


Information

GMRAPL ;HIRMFO/WAA- PRINT ALLERGY LIST BY LOCATION ;5/2/97 14:13

Source Information

Source file <GMRAPL.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; This routine will loop through the GMRA patient allergy file
; to find all patient within the date range that meet the criteria
; and then display all the data for those patients first by location
; then by date/time range of the reaction.
; First select a starting date.
; then select an end date.
; then select a print device.
; GMAST = START DATE
; GMAEN = END DATE
GET ; This sub routine is to find all the reaction with in this observed
; date range.
PRINT ; Print data in the reaction global
HEAD ; Header
DEVICE ; Select a device to print on
DT ; Get dates
DATE(PROMPT,GMADATE) ; Date sub routine
EXIT ;EXIT ROUTINE DATA

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"One moment please...",!
  • Line Location: PRINT+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+8
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT(GMRAPDT,"1"),?70,"Page: ",GMAPG
  • Line Location: HEAD+9
Function Call: WRITE
  • Prompt: !,?15,"From ",$$FMTE^XLFDT(GMAST,"1")," to ",$$FMTE^XLFDT(GMAEN,"1")
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,"Date",?20,"Originator",?45,"Type",?50,"Causative Agent"
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",79)
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !,"PLEASE TRY LATER"
  • Line Location: DEVICE+2
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try Later.")
  • Line Location: DEVICE+6
Info |  Source |  Entry Points |  Interaction Calls