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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: GMRA66PI

Package: Adverse Reaction Tracking

Routine: GMRA66PI


Information

GMRA66PI ;BIR/MFR - Clean up for problematic 120.86 records after patient merge ; 05/03/21 13:52

Source Information

Source file <GMRA66PI.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Kernel 1 BMES^XPDUTL  
MailMan 1 ^XMD  
Registration 1 DEM^VADPT  
VA FileMan 1 $$GET1^DIQ  

Entry Points

Name Comments DBIA/ICR reference
EN ; Fix ADVERSE REACTION ASSESSMENT (#120.86) records
END ; Exit point
SETTXT(TXT) ; Setting Plain Text
SETRX(RXIEN,DOSE,UNITS,STREN) ; Setting Rx Line
MAIL ; Sends Mailman message

External References

Name Field # of Occurrence
$$GET1^DIQ SETRX+2
DEM^VADPT EN+22
^XMD MAIL+4
BMES^XPDUTL EN+13, EN+18, EN+36, EN+37

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.86 - [#120.86] EN+16, EN+17, EN+19*, EN+20*, EN+21!
^TMP("GMRA66PI" EN+2!, END+1!, SETTXT+1*, SETRX+4*
^XUSEC("PSNMGR" MAIL+2

Label References

Name Line Occurrences
MAIL EN+34
SETTXT EN+3, EN+4, EN+5, EN+6, EN+7, EN+8, EN+9, EN+10, EN+11, EN+12
, EN+24, EN+27, EN+28, EN+30, EN+32, EN+33

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN EN+1~, EN+15*, EN+16*, EN+17, EN+18, EN+19, EN+20, EN+21, EN+23
DFN01 EN+1~, EN+17*, EN+21, EN+23
DIFROM MAIL+4~
DOSE SETRX~, SETRX+3
DUZ MAIL+3
>> FOUND EN+15*, EN+24*, EN+26
>> GMRALINE EN+2*, SETTXT+1*, SETRX+4*
II MAIL+1~, MAIL+2*
L4SSN EN+1~, EN+22*, EN+23
RXIEN SETRX~, SETRX+2
STREN SETRX~, SETRX+3
TXT SETTXT~, SETTXT+1
TXTLN SETRX+1~, SETRX+2*, SETRX+3*, SETRX+4
UNITS SETRX~, SETRX+3
VADM EN+1~, EN+22!
VADM(1 EN+23
VADM(2 EN+22
X EN+1~, EN+23*, EN+24
XMDUZ MAIL+1~, MAIL+4*
XMSUB MAIL+1~, MAIL+3*
XMTEXT MAIL+1~, MAIL+4*
XMX MAIL+1~
XMY MAIL+1~
XMY( MAIL+2*, MAIL+3*
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All