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

Package: Adverse Reaction Tracking

Routine: GMRASIG1


Information

GMRASIG1 ;HIRMFO/WAA-A/AR PATIENT SIGN OFF PART2 ;9/22/06 10:49

Source Information

Source file <GMRASIG1.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ;Print out data to be signed off on
PAGE ;PAGE
PNOTE ; Generate a Progress Note for a patient
ENCNT ; Count how many entries where selected and set up Sort order
YNSO ;Select sign off for a patient

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+3
Function Call: WRITE
  • Prompt: !,"ADVERSE REACTION",!,"----------------"
  • Line Location: PRINT+4
Function Call: WRITE
  • Prompt: !,?12,"Obs d/t: ",$$FMTE^XLFDT($P(^GMR(120.85,$O(^GMR(120.85,"C",GMRAPA,0)),0),U))
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+22
Function Call: WRITE
  • Prompt: (GMRACNTT+1),") All of the above",!
  • Line Location: PRINT+27
Function Call: WRITE
  • Prompt: (GMRACNTT+2),") None of the above",!
  • Line Location: PRINT+28
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: PAGE+3
Function Call: WRITE
  • Prompt: @IOF,!,"Causative Agent Data edited this Session:"
  • Line Location: YNSO+1
Function Call: WRITE
  • Prompt: !,"INVALID SELECTION: You can only select ",GMRACNT+1,") All by itself."
  • Line Location: YNSO+11
Function Call: WRITE
  • Prompt: !,"INVALID SELECTION: You can only select ",GMRACNT+2,") None by itself."
  • Line Location: YNSO+12
Info |  Source |  Entry Points |  Interaction Calls