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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: GMRAFDA1

Package: Adverse Reaction Tracking

Routine: GMRAFDA1


Information

GMRAFDA1 ;HIRMFO/WAA-SELECT PATIENT AND PRINTER FOR REPORTS PRINT OUT ;12/1/95 11:23

Source Information

Source file <GMRAFDA1.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;Entry to PRINT AN FDA REPORT FOR A PATIENT option
DEV1
PRINT ; ENTRY POINT TO BEGIN PRINTING THIS REPORT
PRT
PRINT2 ;PRINT THE SECOND PAGE OF ANY REMAINING DATA
EXIT ;
LKP ; ADDITIONAL LOOKUP ON 120.85
SET ; set up variables for question mark help
ERCHK() ; check for "ER" node to screen out entered-in-error entries

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THIS REPORT SHOULD BE SENT TO A 132 COLUMN PRINTER.",!
  • Line Location: DEV1+0
Function Call: WRITE
  • Prompt: !,"PLEASE TRY AGAIN LATER"
  • Line Location: DEV1+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: ?GMRATAB,"SUSPECT MEDICATION: ",$P($G(^GMR(120.8,GMRASUS,0)),U,2)
  • Line Location: PRINT2+6
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT2+10
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT2+21
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT2+32
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT2+39
Function Call: WRITE
  • Prompt: " ",$$FMTE^XLFDT($P(^GMR(120.85,+Y,0),U),"2S")
  • Line Location: LKP+2
Function Call: WRITE
  • Prompt: " ",$P($G(^GMR(120.8,$P(GMRA,U,15),0)),U,2)
  • Line Location: LKP+3
Function Call: WRITE
  • Prompt: $E(@(DIC_+Y_",0)"),0)
  • Line Location: LKP+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.85 - [#120.85] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call