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

Package: Adverse Reaction Tracking

Routine: GMRA72P


Information

GMRA72P ;HDSO/RJH - GMRA*4.0*72 Post-install routine; Feb 5, 2024@16:00

Source Information

Source file <GMRA72P.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entry point
START ; Start the correction process
CHKDUPES ; Look for record IDs found in both the FIXED and BACKOUT nodes caused
; by an early version of this functionality
; ^XTMP("GMRA*4.0*72 BACKOUT",0)="3240904^3240606^GMRA*4.0*72 BACKOUT"
; ^XTMP("GMRA*4.0*72 POST INSTALL",0)="3240903^3240605^GMRA*4.0*72 POST INSTALL"
GMRA ; Fix records in the PATIENT ALLERGY file (120.8)
; INC30029401 - find inactive GMRA allergies in the Patient Allergy file.
; Search the 120.8 Patient Allergy file to find allergies that are marked as
; inactive in the GMR Allergy file (#120.82)
FIXIT ; Try to find a matching drug in #50.6 and fix the record
REBUILD ; Rebuild piece 3 of ^GMR(120.8,ien,0) here and add a comment
FNDVADC ; Find the VA Drug Class(es) associated with this drug
CHKACTV(CHKGBL,AIEN) ; Check to see if an item is active
SUMMARY ; Summary of results
BACKOUT ; Run this from the programmer's prompt if patch backout is required
BKRECS ; Restore the previous (erroneous) records back to ^GMR(120.8,ien,0)
BKVADC ; Back out the VA Drug Class updates
BKSMRY ; Summary of the backout results
REPORT(TYPE,LOCAL) ; Common report data
; Local = report run from prompt = 1, otherwise 0
RPTBKERR ; Look for errors during the backout process
RPTHDR ; Write the report header
RPTFTR(LINE) ; Write the report footer
MAILMSG(MSGSUBJ,MSGFROM,MSGTEXT) ; Build and send a MailMan message

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: #
  • Line Location: BACKOUT+1
Function Call: WRITE
  • Prompt: !!,"No converted records were found that can be backed out. Quitting...",!!
  • Line Location: BACKOUT+11
Function Call: WRITE
  • Prompt: !!,"Please wait until the backout completes."
  • Line Location: BACKOUT+21
Function Call: WRITE
  • Prompt: !,"Working...",!
  • Line Location: BACKOUT+22
Function Call: WRITE
  • Prompt: #
  • Line Location: REPORT+16
Function Call: WRITE
  • Prompt: !!,"GMRA*72 Report Type not specified. Quitting...",!!
  • Line Location: REPORT+17
Function Call: WRITE
  • Prompt: !!,"GMRA*72 Report type of "_TYPE_" not valid. Quitting...",!!
  • Line Location: REPORT+19
Function Call: WRITE
  • Prompt: !!,"GMRA*4.0*72 "_RPTRECS_"Report Results will be sent to you and users"
  • Line Location: REPORT+23
Function Call: WRITE
  • Prompt: !,"with the GMRA-SUPERVISOR or PSNMGR security key via a MailMan message",!!
  • Line Location: REPORT+24

FileMan Files Accessed Via FileMan Db Call

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