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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Adverse Reaction Tracking 3 ^GMRAFN1  EN1^GMRAU85  (CLOSE,DEV)^GMRAUTL  
Kernel 3 ^%ZTLOAD  $$FMTE^XLFDT  KILL^XUSCLEAN  
VA Fileman 1 ^DIWP  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Adverse Reaction Tracking 2 GMRA PRINT-FDA REPORT  GMRAFDA3  

Entry Points

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

External References

Name Field # of Occurrence
^%ZTLOAD DEV1+4
^DIWP PRINT2+13, PRINT2+29
^GMRAFN1 PRT
EN1^GMRAU85 EN1+1
CLOSE^GMRAUTL PRINT+2
DEV^GMRAUTL DEV1+1
$$FMTE^XLFDT PRINT2+7, PRINT2+24, LKP+2
KILL^XUSCLEAN EXIT+2

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] EN1+2
^GMR(120.8 - [#120.8] PRINT2+6, LKP+3, ERCHK+1, ERCHK+2
^GMR(120.85 - [#120.85] LKP+1, LKP+2
^TMP($J PRT+1, PRINT2+9, PRINT2+13, PRINT2+14!, PRINT2+15*, PRINT2+16, PRINT2+17, PRINT2+20, PRINT2+23, PRINT2+24
, PRINT2+27, PRINT2+29, PRINT2+30!, PRINT2+31*, PRINT2+34, PRINT2+35, PRINT2+38, PRINT2+41, PRINT2+42, EXIT+1!
^UTILITY($J PRINT2+12!, PRINT2+15, PRINT2+28!, PRINT2+31

Label References

Name Line Occurrences
DEV1 EN1+3
EXIT EN1+1, EN1+4
PRINT DEV1+7
PRINT2 PRT+1
PRT PRINT+1

Naked Globals

Name Field # of Occurrence
^( PRINT2+24, PRINT2+42

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D SET+1*
>> DIC LKP+4, SET+1*
>> DIC("S" SET+2*
>> DIC("W" SET+1*
>> DIC(0 SET+1*
>> DIWF PRINT2+12*, PRINT2+28*
>> DIWL PRINT2+12*, PRINT2+28*
>> DIWR PRINT2+12*, PRINT2+28*
>> DLAYGO SET+1*
>> DZ SET+1*
GMRA LKP+1~*, LKP+2, LKP+3
>> GMRA1208 ERCHK+1, ERCHK+2
>> GMRAID PRINT2+4
>> GMRALAGO EN1+1*
>> GMRANAM EN1+2*, DEV1+3, SET+1
>> GMRAOUT EN1+1*, DEV1+1*, PRINT2+16, PRINT2+23, PRINT2+34, PRINT2+41
>> GMRAPA(0 EN1+2
>> GMRAPA1 EN1+1
>> GMRAPA1(0 PRINT2+5, PRINT2+7
GMRASUS PRINT2+2~, PRINT2+5*, PRINT2+6
GMRATAB PRINT2+2~, PRINT2+6*
>> GMRAX PRINT2+11*, PRINT2+12*, PRINT2+13*, PRINT2+16*, PRINT2+17, PRINT2+23*, PRINT2+24, PRINT2+28*, PRINT2+29*, PRINT2+33*
, PRINT2+34*, PRINT2+35, PRINT2+40*, PRINT2+41*, PRINT2+42
>> GMRAZIS DEV1+1*
>> I PRINT2+10*, PRINT2+21*, PRINT2+32*, PRINT2+39*
IO PRINT+1
IO("Q" DEV1+2, DEV1+4!
IO(0 PRINT+1
IOF PRT+1
>> POP DEV1+1
U EN1+2, PRINT2+5, PRINT2+6, PRINT2+7, PRINT2+24, LKP+2, LKP+3
>> X PRINT2+13*, PRINT2+15*, PRINT2+29*, PRINT2+31*, PRINT2+42*, SET+1*
Y PRINT2+24*!, LKP+1, LKP+2, LKP+4
>> ZTDESC DEV1+3*
>> ZTRTN DEV1+3*
>> ZTSAVE("GMRAPA1" DEV1+3*
>> ZTSK DEV1+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All