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

Package: Adverse Reaction Tracking

Routine: GMRAFA


Information

GMRAFA ;ISP/RFR - CORRECT ASSESSMENTS ;06/21/2016 15:04

Source Information

Source file <GMRAFA.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for GMRA ASSESS FIX
RESET ; -- reset the option
HDR ; -- header code
LISTBLD ; -- search for problem patients
INIT ; -- init variables and list array
VERIFY(DFN,COUNT,ASSESS) ; -- verify the assessment matches the allergies
EASSESS(ASSESS) ; -- return the external value of the assessment
HELP ; -- help code
EXIT ; -- exit code
EXPND ; -- expand code
PATIENT ; -- select patient

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Successfully queued the assessment list builder; task #"_ZTSK_".",!!
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: !!,"The assessment list builder was not scheduled.",!!
  • Line Location: EN+24
Function Call: WRITE
  • Prompt: " is scheduled to build the list"
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: " on "_$$HTE^XLFDT(ZTSK("D"))
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: " with error code "_$G(ZTSK("E"))
  • Line Location: EN+33
Function Call: WRITE
  • Prompt: " and is "_^("STATUS")
  • Line Location: EN+38
Function Call: WRITE
  • Prompt: "Please contact IRM for assistance"
  • Line Location: EN+41
Function Call: WRITE
  • Prompt: "Please contact IRM for assistance"
  • Line Location: EN+45
Function Call: WRITE
  • Prompt: !,"I will notify you when the list is complete.",!!
  • Line Location: EN+49
Function Call: WRITE
  • Prompt: !,"I will notify you when the list is complete.",!
  • Line Location: EN+54
Function Call: WRITE
  • Prompt: @IOF,"Please wait while I prepare the list."
  • Line Location: INIT+1
Function Call: WRITE
  • Prompt: !!,"Use SP to select the patient you want to work with. You can only work with one",!
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: "patient at a time.",!
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !,"in process ID number "_$G(^XTMP("GMRAFA",DFN,IEN))
  • Line Location: PATIENT+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^GMR(120.86 - [#120.86] GET1^DIQ
^DPT - [#2] GET1^DIQ
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call