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

Package: Adverse Reaction Tracking

Routine: GMRAPST7


Information

GMRAPST7 ;HIRMFO/WAA- ADVERSE DRUG REACTION REPORT ;3/5/97 15:17

Source Information

Source file <GMRAPST7.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ; This routine will loop through the ADT entry point to get all
; the entries in that date range.
EXIT ; Exit of program kill cleanup
PRINTER ;Select printer
PRINT ;Queue point for report
SIGN(CNT,GMRAREC) ; Print Sign/Symptoms
HEAD ; Print header information

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Select an Observed date range for this report."
  • Line Location: EN1+3
Function Call: WRITE
  • Prompt: !!,"This report required a 132 column printer."
  • Line Location: PRINTER+1
Function Call: WRITE
  • Prompt: !,"PLEASE TRY LATER"
  • Line Location: PRINTER+2
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Request queued...",1:"Request NOT queued please try Later.")
  • Line Location: PRINTER+6
Function Call: WRITE
  • Prompt: !,"NO DATA FOR THIS REPORT..."
  • Line Location: PRINT+19
Function Call: WRITE
  • Prompt: $P(GMRAPA(0),U,14)
  • Line Location: PRINT+39
Function Call: WRITE
  • Prompt: $S($P(GMRAPA1(0),U,14)=1:"MILD",$P(GMRAPA1(0),U,14)=2:"MOD.",$P(GMRAPA1(0),U,14)=3:"SVR.",1:"")
  • Line Location: PRINT+40
Function Call: WRITE
  • Prompt: $G(^TMP($J,"GMRAWORD",GMRACNT))
  • Line Location: PRINT+43
Function Call: WRITE
  • Prompt: !,?8,"|",?38,"|",?58,"|",?63,"|",?68,"|"
  • Line Location: PRINT+46
Function Call: WRITE
  • Prompt: !,?8,"|",?38,"|",?58,"|",?63,"|",?68,"|"
  • Line Location: PRINT+52
Function Call: WRITE
  • Prompt: $E(NAM,1,19)
  • Line Location: SIGN+4
Function Call: WRITE
  • Prompt: !,?8,"|",?38,"|",$E(NAM,1,19),?58,"|",?63,"|",?68,"|"
  • Line Location: SIGN+6
Function Call: WRITE
  • Prompt: $G(^TMP($J,"GMRAWORD",GMRACNT))
  • Line Location: SIGN+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HEAD+10
Function Call: WRITE
  • Prompt: "Report Date: ",$P($$FMTE^XLFDT(GMRADPDT),"@"),?125,"Page: ",GMRAPG
  • Line Location: HEAD+12
Function Call: WRITE
  • Prompt: !,?48,"P&T Committee ADR Report"
  • Line Location: HEAD+13
Function Call: WRITE
  • Prompt: !,?51,"From: ",$$FMTE^XLFDT(GMAST,"2D")," To: ",$$FMTE^XLFDT(GMAEN,"2D")
  • Line Location: HEAD+14
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",130)
  • Line Location: HEAD+15
Function Call: WRITE
  • Prompt: !,"Obsv.",?8,"|",?38,"|",?58,"|ADR",?63,"|ADR",?68,"|"
  • Line Location: HEAD+16
Function Call: WRITE
  • Prompt: !,"Date",?8,"|Causative agent-Pat. ID",?38,"|Sign/Symptoms",?58,"|Mech",?63,"|Svr.",?68,"|Comments"
  • Line Location: HEAD+17
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",130)
  • Line Location: HEAD+18
Info |  Source |  Entry Points |  Interaction Calls