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

Package: Adverse Reaction Tracking

Routine: GMRACMR


Information

GMRACMR ;HIRMFO/WAA,RM-LIST Chart/ID Band mark report ;9/29/97 08:11

Source Information

Source file <GMRACMR.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;PRIMARY ENTRY POINT
QST
DATE ;DATE SELECTION
END ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !," Enter date/time range in which patients were",!,$S(GMRASEL["3":" admitted into the hospital"_$S(GMRASEL["2":" or",1:""),1:""),$S(GMRASEL["2":" seen at an outpatient clinic",1:""),"."
  • Line Location: DATE+3
Function Call: WRITE
  • Prompt: !!," Please note! This report will show patients as not having received an"
  • Line Location: DATE+4
Function Call: WRITE
  • Prompt: !,"assessment if the assessment was entered after the end date of"
  • Line Location: DATE+5
Function Call: WRITE
  • Prompt: !,"the range. For this reason, it is recommended to end the range"
  • Line Location: DATE+6
Function Call: WRITE
  • Prompt: !,"with today. This can be done with an entry of 'T' (for Today) at"
  • Line Location: DATE+7
Function Call: WRITE
  • Prompt: !,"the 'Enter END Date (time optional): T//' prompt."
  • Line Location: DATE+8
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: DATE+9
Function Call: WRITE
  • Prompt: !!?4,"ENTER THE START DATE/TIME OF RANGE TO SEE PATIENTS THAT WERE",!?3,$S(GMRASEL["3":" ADMITTED TO THE HOSPITAL"_$S(GMRASEL["2":" OR",1:""),1:""),$S(GMRASEL["2":" SEEN AT AN OUTPATIENT CLINIC",1:""),".",!
  • Line Location: DATE+12
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !!?4,"ENTER THE END DATE/TIME OF RANGE TO SEE PATIENTS THAT WERE",!?3,$S(GMRASEL["3":" ADMITTED TO THE HOSPITAL"_$S(GMRASEL["2":" OR",1:""),1:""),$S(GMRASEL["2":" SEEN AT AN OUTPATIENT CLINIC",1:""),".",!
  • Line Location: END+4
Info |  Source |  Entry Points |  Interaction Calls