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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 3 ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  (BMES,MES)^XPDUTL  
VA FileMan 3 (FILE,UPDATE)^DIE  $$GET1^DIQ  ^DIR  
Adverse Reaction Tracking 1 ADCOM^GMRAFX  
MailMan 1 SENDMSG^XMXAPI  
Registration 1 $$TESTPAT^VADPT  

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

External References

Name Field # of Occurrence
^%ZTLOAD EN+12
FILE^DIE REBUILD+2, BKRECS+21, BKVADC+5
UPDATE^DIE FNDVADC+16
$$GET1^DIQ GMRA+21, FNDVADC+10, SUMMARY+4, BKSMRY+4, REPORT+41, RPTHDR+4
^DIR BACKOUT+7, BACKOUT+31
ADCOM^GMRAFX REBUILD+13
$$TESTPAT^VADPT GMRA+17
$$FMADD^XLFDT START+7, BACKOUT+19
$$FMTE^XLFDT SUMMARY+4, BKSMRY+4, RPTHDR+4
SENDMSG^XMXAPI MAILMSG+12
BMES^XPDUTL EN+1, EN+2, EN+14, EN+17
MES^XPDUTL EN+3, EN+4, EN+15, EN+16

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
Routine Call
  • DIE
  • Line Location:
    • REBUILD+2
    • BKRECS+21
    • BKVADC+5
Routine Call
  • DIE
  • Line Location:
    • FNDVADC+16
Routine Call
  • DIR
  • Line Location:
    • BACKOUT+7
    • BACKOUT+31

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] GMRA+16
^GMR(120.8 - [#120.8] GMRA+10, GMRA+12, GMRA+14, REBUILD+4*, FNDVADC+2, FNDVADC+12, BKRECS+6, BKRECS+7, BKRECS+8*, BKRECS+16
, BKRECS+17, BKRECS+18, BKVADC+3
^GMRD(120.82 - [#120.82] GMRA+24, GMRA+25
^PSNDF(50.6 - [#50.6] FIXIT+6, FNDVADC+5, FNDVADC+6, FNDVADC+9
^XTMP( START+7*, FNDVADC+19*, SUMMARY+1*, SUMMARY+2*, SUMMARY+3*, SUMMARY+4*, SUMMARY+5*, SUMMARY+6*, SUMMARY+7*, SUMMARY+8*
, SUMMARY+9*, SUMMARY+10*, SUMMARY+11*, SUMMARY+12*, SUMMARY+13*, SUMMARY+14*, SUMMARY+15*, SUMMARY+16*, SUMMARY+17*, SUMMARY+18*
, BACKOUT+19*, BKRECS+7*, BKRECS+22*, BKVADC+6*, BKSMRY+1*, BKSMRY+2*, BKSMRY+3*, BKSMRY+4*, BKSMRY+5*, BKSMRY+6*
, BKSMRY+7*, BKSMRY+8*, BKSMRY+9*, BKSMRY+10*, BKSMRY+11*, BKSMRY+12*, BKSMRY+13*, BKSMRY+14*, BKSMRY+15*, BKSMRY+16*
, BKSMRY+17*, BKSMRY+18*, BKSMRY+19*, BKSMRY+20*, BKSMRY+21*, REPORT+27!, REPORT+29, REPORT+30*, REPORT+35*, REPORT+38
, REPORT+40, REPORT+44*, RPTBKERR+3, RPTBKERR+4, RPTHDR+1*, RPTHDR+2*, RPTHDR+3*, RPTHDR+4*, RPTHDR+5*, RPTHDR+6*
, RPTHDR+7*, RPTFTR+1*, RPTFTR+5*, RPTFTR+8*, RPTFTR+12*
^XTMP("GMRA*4.0*72 BACKOUT" START+5, CHKDUPES+5, CHKDUPES+9
^XTMP("GMRA*4.0*72 POST INSTALL" CHKDUPES+6, CHKDUPES+10!, FIXIT+7*, FIXIT+13*, FIXIT+15, FIXIT+16!, REBUILD+7*, BACKOUT+10, BKRECS+5, BKRECS+8
, BKRECS+11, BKRECS+26!, BKVADC+2
^XUSEC( MAILMSG+8

Label References

Name Line Occurrences
$$CHKACTV GMRA+26, FIXIT+10, FNDVADC+13
BKRECS BACKOUT+23
BKSMRY BKRECS+29
BKVADC BKRECS+11
CHKDUPES START+5
FIXIT GMRA+25, GMRA+27
FNDVADC REBUILD+4
GMRA START+8
MAILMSG SUMMARY+24, BKSMRY+27, REPORT+32, REPORT+49
REBUILD FIXIT+11
REPORT GMRA+31
RPTBKERR REPORT+43
RPTFTR REPORT+31, REPORT+48
RPTHDR REPORT+28
SUMMARY GMRA+30

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ACTVDT GMRA+4~
AIEN CHKACTV~, CHKACTV+4
ALGIEN GMRA+4~, GMRA+9*, GMRA+10*, GMRA+12, GMRA+14, GMRA+21, FIXIT+7, FIXIT+13, FIXIT+15, FIXIT+16
, REBUILD+1, REBUILD+4, REBUILD+7, REBUILD+13, FNDVADC+2, FNDVADC+12, FNDVADC+15, FNDVADC+19
ALGYNAME GMRA+4~, FIXIT+5*, FIXIT+6
ALGYTYPE GMRA+5~
BKDT CHKDUPES+4~, CHKDUPES+5*, CHKDUPES+7
CERR RPTBKERR+1~, RPTBKERR+2*, RPTBKERR+3*, RPTBKERR+5
CHKGBL CHKACTV~, CHKACTV+4*, CHKACTV+5, CHKACTV+6, CHKACTV+7
COMMENT FIXIT+1~, REBUILD+10*, REBUILD+11*, REBUILD+12*, REBUILD+13
DEADCNT GMRA+5~, GMRA+9*, GMRA+16*, SUMMARY+7
DIR BACKOUT+2~, BACKOUT+25!, BACKOUT+26~
DIR("A" BACKOUT+3*, BACKOUT+4*, BACKOUT+5*, BACKOUT+6*, BACKOUT+27*, BACKOUT+28*, BACKOUT+29*, BACKOUT+30*
DIR("B" BACKOUT+6*
DIR(0 BACKOUT+6*, BACKOUT+31*
DLM REPORT+3~, REPORT+13*, REPORT+35, REPORT+44
DT START+7, SUMMARY+4, BACKOUT+19, BKSMRY+4, RPTHDR+4
DTCNT GMRA+5~
DTDATA GMRA+4~, CHKACTV+7*, CHKACTV+8
DTIEN GMRA+4~, CHKACTV+6*, CHKACTV+7
DUZ EN+10, SUMMARY+4, BACKOUT+18, BKSMRY+4, RPTHDR+4, MAILMSG+2
ERRCNT GMRA+5~, GMRA+9*, FIXIT+3*, SUMMARY+10, SUMMARY+11
ERRMSG GMRA+4~
FDA FIXIT+1~, FIXIT+19!, BKRECS+1~, BKRECS+15!
FDA( REBUILD+1*, BKRECS+20*
FILEERR FIXIT+1~, FIXIT+19!, REBUILD+3, BKRECS+1~, BKRECS+15!, BKRECS+22
FIXCNT GMRA+5~, GMRA+9*, REBUILD+6*, SUMMARY+11, SUMMARY+13
FIXED FIXIT+1~, FIXIT+2*, FIXIT+13, FIXIT+15, REBUILD+4, REBUILD+6*, FNDVADC+3*, FNDVADC+18*
FXDT CHKDUPES+4~, CHKDUPES+6*, CHKDUPES+7
GMBKNODE BACKOUT+14~, BACKOUT+17*, BACKOUT+19, BKRECS+7, BKRECS+22, BKVADC+6, BKSMRY+1, BKSMRY+2, BKSMRY+3, BKSMRY+4
, BKSMRY+5, BKSMRY+6, BKSMRY+7, BKSMRY+8, BKSMRY+9, BKSMRY+10, BKSMRY+11, BKSMRY+12, BKSMRY+13, BKSMRY+14
, BKSMRY+15, BKSMRY+16, BKSMRY+17, BKSMRY+18, BKSMRY+19, BKSMRY+20, BKSMRY+21
GMRADUZ EN+6~, EN+10*, BACKOUT+14~, BACKOUT+18*, MAILMSG+2*, MAILMSG+11, MAILMSG+12
GMRAFROM START+1~, SUMMARY+22*, SUMMARY+24, BACKOUT+15~, BKSMRY+25*, BKSMRY+27
GMRAKEY MAILMSG+1~, MAILMSG+6*, MAILMSG+8
GMRALGY GMRA+4~, GMRA+19*, GMRA+20, GMRA+23
GMRAMIN BACKOUT+14~, MAILMSG+1~, MAILMSG+12
GMRAMIN("FROM" MAILMSG+3*
GMRAMY BACKOUT+14~, MAILMSG+1~, MAILMSG+12
GMRAMY( MAILMSG+8*, MAILMSG+11*
GMRAMZ BACKOUT+15~, MAILMSG+1~, MAILMSG+12
GMRANODE START+2*, START+7, GMRA+6~, GMRA+8*, FNDVADC+19, SUMMARY+1, SUMMARY+2, SUMMARY+3, SUMMARY+4, SUMMARY+5
, SUMMARY+6, SUMMARY+7, SUMMARY+8, SUMMARY+9, SUMMARY+10, SUMMARY+11, SUMMARY+12, SUMMARY+13, SUMMARY+14, SUMMARY+15
, SUMMARY+16, SUMMARY+17, SUMMARY+18
GMRAREC BACKOUT+14~, MAILMSG+1~, MAILMSG+7*, MAILMSG+8*
GMRASUB START+1~, SUMMARY+21*, SUMMARY+24, BACKOUT+14~, BKSMRY+24*, BKSMRY+27
GMRATEXT START+1~, SUMMARY+23*, SUMMARY+24, BACKOUT+14~, BKSMRY+26*, BKSMRY+27
GMRBKOK BACKOUT+14~, BKRECS+2*, BKRECS+25*, BKSMRY+7
GMRCMT BACKOUT+15~, BKRECS+18*, BKRECS+19
GMRCMTDT BACKOUT+15~, BKRECS+14*, BKRECS+16*, BKRECS+17
GMRCMTERR BACKOUT+15~, BKRECS+2*, BKRECS+22*, BKSMRY+8
GMRCNT GMRA+5~, BACKOUT+15~, BKRECS+17*, BKRECS+18, BKRECS+20
GMRIEN GMRA+4~, GMRA+23*, GMRA+24, GMRA+25, GMRA+26, BACKOUT+14~, BKRECS+2*, BKRECS+5*, BKRECS+6, BKRECS+7
, BKRECS+8, BKRECS+11, BKRECS+16, BKRECS+17, BKRECS+18, BKRECS+20, BKRECS+22, BKRECS+26, BKVADC+2, BKVADC+3
, BKVADC+4, BKVADC+6
GMRNOBK BACKOUT+14~, BKRECS+2*, BKRECS+6*, BKSMRY+6
LASTDT GMRA+5~, CHKACTV+5*, CHKACTV+6
LINE RPTFTR~, RPTFTR+1, RPTFTR+2*, RPTFTR+5, RPTFTR+6*, RPTFTR+8, RPTFTR+9*, RPTFTR+12
LOCAL REPORT~, REPORT+5*, REPORT+15
MSGFROM MAILMSG~, MAILMSG+3
MSGSUBJ MAILMSG~, MAILMSG+12
MSGTEXT MAILMSG~, MAILMSG+12
NODE0 GMRA+4~, GMRA+14*, GMRA+15, GMRA+19, FIXIT+5, FIXIT+7, FIXIT+13, REBUILD+4, REBUILD+7
NORECS REPORT+3~, REPORT+13*, REPORT+30*, RPTFTR+4
PIEN FIXIT+1~, FIXIT+6*, FIXIT+10, REBUILD+1, REBUILD+12, FNDVADC+6, FNDVADC+9
PREVSTS GMRA+5~
PT GMRA+4~, GMRA+5~, GMRA+15*, GMRA+16, GMRA+17
RECCNT GMRA+5~, GMRA+9*, GMRA+11*, SUMMARY+6
RECIEN CHKDUPES+4~, CHKDUPES+8*, CHKDUPES+9*, CHKDUPES+10
RPTCERR REPORT+3~, REPORT+39*, REPORT+44, RPTBKERR+5*
RPTDATA REPORT+2~, REPORT+40*, REPORT+41, REPORT+42
RPTFILE REPORT+2~
RPTFLIEN REPORT+2~, REPORT+42*
RPTFROM REPORT+3~, REPORT+11*, REPORT+32, REPORT+49
RPTFTR REPORT+3~, REPORT+9*, RPTFTR+12
RPTIEN REPORT+2~, REPORT+37*, REPORT+38*, REPORT+40, REPORT+44, RPTBKERR+3, RPTBKERR+4
RPTLN REPORT+2~, REPORT+37*, REPORT+44, REPORT+45*, REPORT+48*
RPTNAME REPORT+2~, REPORT+42*, REPORT+44
RPTNODE REPORT+2~, REPORT+7*, REPORT+27, REPORT+30, REPORT+35, REPORT+44, RPTHDR+1, RPTHDR+2, RPTHDR+3, RPTHDR+4
, RPTHDR+5, RPTHDR+6, RPTHDR+7, RPTFTR+1, RPTFTR+5, RPTFTR+8, RPTFTR+12
RPTPT REPORT+2~, REPORT+41*
RPTPTNM REPORT+2~, REPORT+41*, REPORT+44
RPTRECS REPORT+3~, REPORT+8*, REPORT+23, REPORT+30
RPTSS REPORT+2~, REPORT+6*, REPORT+29, REPORT+38, REPORT+40, RPTBKERR+3, RPTBKERR+4
RPTSTOP REPORT+3~, REPORT+13*, REPORT+15, REPORT+17*, REPORT+20*
RPTSUB REPORT+3~, REPORT+10*, REPORT+32, REPORT+49
RPTTEXT REPORT+3~, REPORT+12*, REPORT+32, REPORT+49
STATUS GMRA+4~, GMRA+26*, GMRA+27, FIXIT+10*, FIXIT+11, FNDVADC+13*, FNDVADC+14, CHKACTV+2*, CHKACTV+5, CHKACTV+6
, CHKACTV+7, CHKACTV+8*, CHKACTV+9
STOP GMRA+5~
STRING CHKACTV+1~, CHKACTV+3*, CHKACTV+4
TESTCNT GMRA+6~, GMRA+9*, GMRA+17*, SUMMARY+8
TYPE REPORT~, REPORT+4*, REPORT+6, REPORT+8, REPORT+10, REPORT+17, REPORT+18, REPORT+19, REPORT+29, REPORT+38
, REPORT+40, REPORT+43, RPTHDR+4, RPTFTR+3
VADC FNDVADC+1~, FNDVADC+8*, FNDVADC+9*, FNDVADC+10
VADCERR BKRECS+1~, BKRECS+2*, BKVADC+6*, BKSMRY+9
VADCFND FNDVADC+1~, FNDVADC+2*, FNDVADC+3
VADCNODE BKRECS+1~, BKVADC+3*, BKVADC+4
VADCPTR FNDVADC+1~, FNDVADC+10*, FNDVADC+11, FNDVADC+12, FNDVADC+13, FNDVADC+15, FNDVADC+19, BKRECS+1~, BKVADC+1*, BKVADC+2*
, BKVADC+3, BKVADC+6
VERR RPTBKERR+1~, RPTBKERR+2*, RPTBKERR+4*, RPTBKERR+5
VFDA FNDVADC+1~, FNDVADC+17!, FNDVADC+20!, BKRECS+1~, BKVADC+7!
VFDA( FNDVADC+15*, BKVADC+4*
VFILEERR FNDVADC+1~, FNDVADC+17!, FNDVADC+20!, BKRECS+1~, BKVADC+6, BKVADC+7!
Y BACKOUT+2~, BACKOUT+8
ZTDESC EN+6~, EN+8*
ZTDTH EN+6~, EN+9*
ZTIO EN+6~, EN+9*
ZTQUEUED EN+6~, START+9
ZTREQ EN+6~, START+9*
ZTRTN EN+6~, EN+7*
ZTSAVE EN+6~
ZTSAVE("GMRADUZ" EN+11*
ZTSK EN+6~, EN+15
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All