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

Package: Adverse Reaction Tracking

Routine: GMRAPNA


Information

GMRAPNA ;HIRMFO/WAA-PATIENT NOT ASKED ABOUT ALLERGIES ;12/1/95 14:15

Source Information

Source file <GMRAPNA.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; Entry for LIST BY LOCATION OF UNDOCUMENTED ALLERGIES option
DEV ; *** Select output device, force queuing
ENTSK
PRINT ;PRINT THE DATE
NOPAT ; If there are no patients print informational message
HEAD ;HEADER PAGE FOR PRINTOUT
PRE ; This will validate the TMP global and fire off Xref
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: DEV+3
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try later...")
  • Line Location: DEV+10
Function Call: WRITE
  • Prompt: !,?5,"Room/Bed: ",VAIN(5)
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: !,?24,"* No Patients for this ",$S(GMRA="W":"Ward",GMRA="M":"Module",GMRA="C":"Clinic",1:"UNKNOWN")," *"
  • Line Location: NOPAT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: NOPAT+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+6
Function Call: WRITE
  • Prompt: !,GMRAPDT,?23,"PATIENTS NOT ASKED ABOUT ALLERGIES",?70,"PAGE ",GMRAPAGE
  • Line Location: HEAD+7
Function Call: WRITE
  • Prompt: !,?(40-($L(GMRATL)/2)),GMRATL
  • Line Location: HEAD+11
Function Call: WRITE
  • Prompt: !,?23,"FROM ",$$DATE^GMRAUTL1(GMRAST),?42,"TO ",$$DATE^GMRAUTL1(GMRAED)
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",78)
  • Line Location: HEAD+14
Info |  Source |  Entry Points |  Interaction Calls