Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 3 ^%DT  HELP^%DTC  ^DIR  
Adverse Reaction Tracking 1 $$MDIC^GMRACMR1  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Adverse Reaction Tracking 2 GMRACMR4  GMRAPNA  

Entry Points

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

External References

Name Field # of Occurrence
^%DT DATE+14, END+6
HELP^%DTC DATE+11, END+3
^DIR QST+5
$$MDIC^GMRACMR1 QST+15

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
  • Timeout: DTIME
  • Variable: X
  • 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
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • DIR
  • Line Location:
    • QST+5

Label References

Name Line Occurrences
DATE QST+13, DATE+10, DATE+15
END END+2, END+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+11*, DATE+14*, DATE+16!, END+3*, END+6*, END+8!
%DT(0 END+3*, END+6*
DIR QST!, QST+5!
DIR("?" QST+4*
DIR("A" QST+2*, QST+3*
DIR(0 QST*, QST+1*
DTIME DATE+9, END+1
>> GMRAED END+8*
>> GMRAOUT EN1+1*, QST+6*, QST+13, QST+15*, QST+16, DATE+9*, END+1*
>> GMRAQST QST+7*, QST+10*, QST+11*, QST+12*
>> GMRASEL QST+9*, QST+10, QST+11, QST+12, DATE+2, DATE+3, DATE+12, END+4
>> GMRAST DATE+16*, END+3, END+6
>> X DATE+9*, DATE+10, END+1*, END+2
Y QST+6, QST+8*, QST+9, QST+15*, DATE+15, DATE+16!, END+7, END+8!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All