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

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
List Manager 4 EN^VALM  ($$SETFLD,FULL)^VALM1  (FLDTEXT,SET,WRITE)^VALM10  RE^VALM4  
Kernel 3 (,ISQED,STAT)^%ZTLOAD  ($$FMADD,$$HTE)^XLFDT  $$CJ^XLFSTR  
MailMan 3 XMZ^XMA2  DES^XMA21  ENT2^XMD  
Adverse Reaction Tracking 2 SELECT^GMRAFA1  WAIT^GMRAFX3  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Adverse Reaction Tracking 3 GMRA ASSESS FIX  GMRA ASSESS SELECT PATIENT  GMRA ASSESSMENT UTILITY  

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

External References

Name Field # of Occurrence
^%ZTLOAD EN+22
ISQED^%ZTLOAD EN+29
STAT^%ZTLOAD EN+37
$$GET1^DIQ LISTBLD+16, VERIFY+8, PATIENT+9
^DIR EN+9, EN+16, EN+52, RESET+4, PATIENT+21
SELECT^GMRAFA1 PATIENT+2
WAIT^GMRAFX3 HELP+4, PATIENT+12, PATIENT+30
DEM^VADPT LISTBLD+7
EN^VALM EN+56, PATIENT+32
$$SETFLD^VALM1 INIT+7, INIT+8, INIT+9, INIT+10
FULL^VALM1 HELP+1, EXIT+1
FLDTEXT^VALM10 PATIENT+26, PATIENT+27, PATIENT+28, PATIENT+34, PATIENT+35, PATIENT+40
SET^VALM10 INIT+11
WRITE^VALM10 PATIENT+42
RE^VALM4 PATIENT+43
$$FMADD^XLFDT EN+25, EN+55, LISTBLD+2, PATIENT+31
$$HTE^XLFDT EN+30
$$CJ^XLFSTR INIT+9, INIT+10, PATIENT+26, PATIENT+27, PATIENT+34, PATIENT+35
XMZ^XMA2 LISTBLD+22
DES^XMA21 EN+11
ENT2^XMD LISTBLD+40

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
Routine Call
  • DIR
  • Line Location:
    • EN+9
    • EN+16
    • EN+52
    • RESET+4
    • PATIENT+21
Routine Call
  • VALM
  • Line Location:
    • EN+56
    • PATIENT+32

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] LISTBLD+4, LISTBLD+13
^DPT("?" LISTBLD+3
^GMR(120.8 - [#120.8] VERIFY+4, VERIFY+5, VERIFY+6
^GMR(120.86 - [#120.86] VERIFY+7, VERIFY+8
^TMP($J EN+58!, INIT+3!, INIT+5*, INIT+6, PATIENT+23
^XMB(3.9 - [#3.9] LISTBLD+27*, LISTBLD+28*, LISTBLD+29*, LISTBLD+33*, LISTBLD+34*, LISTBLD+35*, LISTBLD+36*, LISTBLD+37*, LISTBLD+38*, LISTBLD+39*
^XTMP("GMRAFA" PATIENT+6, PATIENT+8, PATIENT+10, PATIENT+13, PATIENT+15, PATIENT+17, PATIENT+31*, PATIENT+44!
^XTMP("GMRAFAL" EN+2, EN+6*, EN+10!, EN+11*, EN+17!, EN+18*, EN+23*, EN+24!, EN+25*, EN+26
EN+27, EN+36, EN+38, EN+49, EN+54*, EN+55*, EN+57!, RESET+5!, LISTBLD+2*, LISTBLD+3
LISTBLD+12*, LISTBLD+16*, LISTBLD+17*, LISTBLD+18*, LISTBLD+21, LISTBLD+26!, LISTBLD+31!, LISTBLD+32*, INIT+4, INIT+6
INIT+8, INIT+9, INIT+10, PATIENT+29!, PATIENT+37*, PATIENT+38*, PATIENT+41!

Label References

Name Line Occurrences
$$EASSESS LISTBLD+17, PATIENT+26, PATIENT+34, PATIENT+37
$$VERIFY LISTBLD+14, PATIENT+24, PATIENT+33
RESET EN+34, EN+42, EN+46

Naked Globals

Name Field # of Occurrence
^("STATUS" EN+38

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ASSESS LISTBLD+9~, LISTBLD+14, VERIFY~, VERIFY+2!, VERIFY+7*, VERIFY+8*, VERIFY+9, VERIFY+10, EASSESS~, EASSESS+1
PATIENT+1~, PATIENT+24, PATIENT+33
ASSESS("EXTERNAL" LISTBLD+17, VERIFY+8*, PATIENT+26, PATIENT+34, PATIENT+37
COUNT LISTBLD+9~, LISTBLD+14, VERIFY~, VERIFY+2!, VERIFY+3*, PATIENT+1~, PATIENT+24, PATIENT+33
COUNT("ERROR" VERIFY+5*
COUNT("GOOD" LISTBLD+18, VERIFY+6*, VERIFY+9, VERIFY+10, PATIENT+27, PATIENT+35, PATIENT+38
CUR LISTBLD+1~, LISTBLD+11*, LISTBLD+12, INIT+2~, INIT+4*, INIT+5, INIT+6*, INIT+7, INIT+11, INIT+12
DFN LISTBLD+1~, LISTBLD+4*, LISTBLD+10, LISTBLD+11, LISTBLD+13, LISTBLD+14, LISTBLD+16, LISTBLD+17, LISTBLD+18, INIT+2~
INIT+6*, INIT+8, INIT+9, INIT+10, INIT+11, VERIFY~, VERIFY+4, VERIFY+7, PATIENT+1~, PATIENT+5*
PATIENT+6, PATIENT+8, PATIENT+10, PATIENT+13, PATIENT+15, PATIENT+17, PATIENT+24, PATIENT+31, PATIENT+33, PATIENT+37
PATIENT+38, PATIENT+44
DIR EN+1~, RESET+1~, PATIENT+18~
DIR("?" EN+8*, EN+14*, EN+15*, EN+51*, RESET+3*
DIR("A" EN+7*, EN+13*, EN+50*, RESET+2*, PATIENT+19*, PATIENT+20*
DIR("B" EN+8*, EN+14*, PATIENT+20*
DIR(0 EN+7*, EN+13*, EN+50*, RESET+2*, PATIENT+19*
DIROUT EN+1~, EN+12!, RESET+1~, PATIENT+18~
DIRUT EN+1~, EN+10, EN+12!, EN+17, RESET+1~, PATIENT+18~, PATIENT+22
DT EN+25, EN+55, LISTBLD+2, LISTBLD+27, LISTBLD+33, PATIENT+31
DTOUT EN+1~, EN+12!, RESET+1~, PATIENT+18~
DUOUT EN+1~, EN+12!, RESET+1~, PATIENT+18~
DUZ EN+6, EN+49, EN+54, PATIENT+6, PATIENT+13, PATIENT+31, PATIENT+44
DUZ(0 EN+33, EN+41, EN+45
EXIT LISTBLD+1~, LISTBLD+5*, LISTBLD+8*, PATIENT+1~, PATIENT+5*, PATIENT+13, PATIENT+22*
GMRAACT PATIENT+1~, PATIENT+23*, PATIENT+29, PATIENT+36, PATIENT+37, PATIENT+38, PATIENT+41
GMRAITM PATIENT+1~, PATIENT+2, PATIENT+3, PATIENT+4, PATIENT+5, PATIENT+23, PATIENT+25, PATIENT+26, PATIENT+27, PATIENT+28
PATIENT+34, PATIENT+35, PATIENT+40, PATIENT+42
IEN VERIFY+1~, VERIFY+3*, VERIFY+4*, VERIFY+5, VERIFY+6, PATIENT+7~, PATIENT+8*, PATIENT+9, PATIENT+10, PATIENT+14~
PATIENT+15*, PATIENT+17
INCDEAD LISTBLD+1~, LISTBLD+3*, LISTBLD+5
IOF INIT+1
ISFIXED PATIENT+1~, PATIENT+33*, PATIENT+36, PATIENT+39
LAST INIT+2~, INIT+5*, INIT+6*, INIT+8, INIT+9, INIT+10
RETURN VERIFY+1~, VERIFY+3*, VERIFY+9*, VERIFY+10*, VERIFY+11
TEXT LISTBLD+1~, INIT+2~, INIT+7*, INIT+8*, INIT+9*, INIT+10*, INIT+11
TOTAL LISTBLD+1~, LISTBLD+3*, LISTBLD+11, INIT+2~
U EN+7, EN+13, EN+25, EN+50, EN+55, RESET+2, LISTBLD+2, LISTBLD+27, LISTBLD+33, INIT+9
INIT+10, VERIFY+5, VERIFY+6, VERIFY+8, PATIENT+19, PATIENT+26, PATIENT+27, PATIENT+31, PATIENT+34, PATIENT+35
VADM LISTBLD+6~
VADM(6 LISTBLD+8
>> VALMAR PATIENT+5
>> VALMBCK HELP+5*
VALMCNT LISTBLD+1~, LISTBLD+3*, LISTBLD+15*, LISTBLD+16, LISTBLD+17, LISTBLD+18, LISTBLD+25, LISTBLD+30, INIT+12*, INIT+13*
>> VALMDDF("ALLERGIES" INIT+10, PATIENT+27, PATIENT+35
>> VALMDDF("ASSESSMENT" INIT+9, PATIENT+26, PATIENT+34
>> VALMHDR(1 HDR+1*
>> VALMSG INIT+13*, PATIENT+3*
X EN+1~, EN+5~, EN+11, EN+12!, RESET+1~, LISTBLD+1~, PATIENT+18~
XMDF EN+5~, EN+11*
XMDUZ EN+5~, EN+6*, LISTBLD+19~, LISTBLD+20*
XMOUT EN+5~, EN+11
XMSUB LISTBLD+19~, LISTBLD+20*
XMY EN+5~, EN+11, LISTBLD+19~, LISTBLD+21*
XMZ LISTBLD+19~, LISTBLD+23, LISTBLD+27, LISTBLD+28, LISTBLD+29, LISTBLD+33, LISTBLD+34, LISTBLD+35, LISTBLD+36, LISTBLD+37
LISTBLD+38, LISTBLD+39
Y EN+1~, EN+11, EN+12!, EN+18, EN+53, RESET+1~, RESET+5, PATIENT+18~, PATIENT+22
ZTDESC EN+19~, EN+20*
ZTIO EN+19~, EN+20*
>> ZTREQ LISTBLD+41*
ZTRTN EN+19~, EN+20*
ZTSK EN+19~, EN+23, EN+27~*, EN+28, EN+30!, EN+36!*, EN+38!, EN+48
ZTSK("D" EN+30
ZTSK("E" EN+33
ZTSK(0 EN+30, EN+31, EN+35
ZTSK(1 EN+38, EN+39, EN+43
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All