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 |  Local Variables  | All
Print Page as PDF
Routine: GMRAFX1

Package: Adverse Reaction Tracking

Routine: GMRAFX1


Information

GMRAFX1 ;SLC/DAN Fix existing allergy entries-continued ;10/6/05 11:42

Source Information

Source file <GMRAFX1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
List Manager 3 SHOW^VALM  FULL^VALM1  (CNTRL,SET)^VALM10  
Adverse Reaction Tracking 2 ^GMRADPT  ($$GETNUM,$$LOCK,UPDATE,WAIT)^GMRAFX3  
VA FileMan 2 $$FIND1^DIC  ^DIR  
Kernel 1 $$REPEAT^XLFSTR  
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: 7

Package Total Caller Graph
Adverse Reaction Tracking 7 GMRA FIX ADD/EDIT ALLERGY FILE IN DETAIL  GMRA FIX DETAIL  GMRA FIX DETAIL IN DETAIL  GMRA FIX DETAIL MENU  GMRA FIX ENTERED IN ERROR IN DETAIL  GMRA FIX PATIENT A/AR EDIT IN DETAIL  GMRA FIX UPDATE REACTANT IN DETAIL  

Entry Points

Name Comments DBIA/ICR reference
DET ;Detailed listing of selected group
HDR ; -- header code
PHDR ;
INIT ; -- init variables and list array
CHKSEL ;Evaluate selection if done by number
DESELECT ;Un-highlight selected choices
HELP ; -- help code
EXIT ; -- exit code
EXPND ; -- expand code
PROCESS(TYPE) ;API to mark selected entries from the detailed listing as entered in error or update to new reactant

External References

Name Field # of Occurrence
$$FIND1^DIC PHDR+2
^DIR INIT+3, CHKSEL+6, PROCESS+10
^GMRADPT DET+8
$$GETNUM^GMRAFX3 INIT+2, PROCESS+3
$$LOCK^GMRAFX3 INIT+2
UPDATE^GMRAFX3 PROCESS+17
WAIT^GMRAFX3 CHKSEL+7, HELP+7
DEM^VADPT DET+9
SHOW^VALM PHDR+3
FULL^VALM1 INIT+3, CHKSEL+7, HELP+1, PROCESS+2
CNTRL^VALM10 CHKSEL+8, DESELECT+2
SET^VALM10 DET+13, DET+19, DET+20
$$REPEAT^XLFSTR DET+12, DET+13

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Invalid selection."
  • Line Location: CHKSEL+7
Function Call: WRITE
  • Prompt: !!,"Use AE to add local allergies to the GMR ALLERGY file. This",!,"should only be done if you're sure no existing reactant matches your needs."
  • Line Location: HELP+2
Function Call: WRITE
  • Prompt: !!,"Use EE to mark all selected entries as entered",!,"in error. You may select multiple patients if you like."
  • Line Location: HELP+3
Function Call: WRITE
  • Prompt: !!,"Use UR to update the reactant. Extreme caution should be used when updating",!,"reactants. You may select multiple patients if you like,"
  • Line Location: HELP+4
Function Call: WRITE
  • Prompt: !!,"Use PR to add new allergies for the selected patient in",!,"addition to the ones listed here."
  • Line Location: HELP+5
Function Call: WRITE
  • Prompt: !!,"Use DD to get details about the allergy entry that you're",!,"currently working on for this patient.",!
  • Line Location: HELP+6
Function Call: WRITE
  • Prompt: !!,"You are about to ",$S(TYPE="E":"mark",1:"update")," the selected patient",$S($L(NMBR2,",")>2:"s'",1:"'s"),!
  • Line Location: PROCESS+4
Function Call: WRITE
  • Prompt: $P(ENTRY,"^",2)," allergy ",$S(TYPE="E":"as entered in error.",1:"to a new reactant."),!
  • Line Location: PROCESS+6
Routine Call
  • DIC
  • Line Location:
    • PHDR+2
Routine Call
  • DIR
  • Line Location:
    • INIT+3
    • CHKSEL+6
    • PROCESS+10
Routine Call
  • VALM
  • Line Location:
    • PHDR+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ORD(101 - [#101] FIND1^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMR(120.8 - [#120.8] DET+8
^TMP($J DET+3!, DET+14*, DET+21*, INIT+4!, CHKSEL+6, CHKSEL+8, DESELECT+2, EXIT+1!, PROCESS+15
^XTMP("GMRAFX" DET+6, DET+7, HDR+1, PROCESS+5

Label References

Name Line Occurrences
@( PROCESS+16
DESELECT CHKSEL+4, CHKSEL+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CNT DET+1~, DET+2*, DET+11*, DET+12, DET+13, DET+14, DET+15*, DET+19*, DET+20, DET+21
DFN DET+1~, DET+8*
DIR DET+1~, INIT+1~, CHKSEL+1~, CHKSEL+6!, PROCESS+1~
DIR("?" PROCESS+8*, PROCESS+9*
DIR("A" INIT+3*, PROCESS+7*
DIR("B" PROCESS+7*
DIR("V" CHKSEL+6*
DIR(0 INIT+3*, CHKSEL+6*, PROCESS+7*
DIRUT DET+1~
DTOUT DET+1~
DUOUT DET+1~
ENMBR DET+1~, DET+4*, DET+6
ENTRY DET+1~, DET+5*, DET+11*, DET+13, DET+14, DET+21, PROCESS+1~, PROCESS+5*, PROCESS+6
GMRA DET+1~, DET+8*
GMRAAR PROCESS+1~
GMRADONE PROCESS+1~, PROCESS+13*, PROCESS+17
GMRAI PROCESS+1~, PROCESS+12*, PROCESS+14
GMRAJ PROCESS+1~, PROCESS+15*
GMRAL DET+1~
GMRAL( DET+16, DET+17, DET+20
GMRAPA PROCESS+1~, PROCESS+15*
GMRAR DET+1~
GMRAR( DET+12*, DET+13!, DET+15*, DET+19!*, DET+20*
GMRAT DET+1~, DET+6*, DET+7
GMRAUT DET+1~, DET+6*, DET+7
>> IORVOFF CHKSEL+8, DESELECT+2
>> IORVON CHKSEL+8
J DET+1~, DET+7*, DET+8, DET+14, CHKSEL+1~, CHKSEL+8*, DESELECT+1~, DESELECT+2*
K DET+1~, DET+16*, DET+17, DET+20
LEN DET+1~, DET+15*, DET+18*, DET+19*
>> LTYPE DET+3, DET+6, DET+7, DET+14, DET+21, HDR+1, INIT+4, CHKSEL+6, CHKSEL+8, DESELECT+2
EXIT+1, PROCESS+5, PROCESS+15
NAME DET+1~, DET+17*, DET+18, DET+19, DET+20
>> NMBR DET+4, HDR+1, INIT+2*, INIT+3, PROCESS+5, PROCESS+11
NMBR2 DET+1~, CHKSEL+4, CHKSEL+5, CHKSEL+6*, CHKSEL+7!, CHKSEL+8, DESELECT+2, DESELECT+3!, PROCESS+3*, PROCESS+4
, PROCESS+12, PROCESS+14
NUM CHKSEL+1~, CHKSEL+2*, CHKSEL+3, CHKSEL+4, PROCESS+1~, PROCESS+11*
NUM2 PROCESS+1~, PROCESS+14*, PROCESS+15
STOP PROCESS+1~, PROCESS+12
TMP CHKSEL+1~, CHKSEL+8*, DESELECT+1~, DESELECT+2*
TYPE PROCESS~, PROCESS+4, PROCESS+6, PROCESS+16
U PROCESS+15
VADM DET+1~
VADM(1 DET+12
VADM(2 DET+12
VAERR DET+1~, DET+10
>> VALMBCK DET+2*, INIT+5*, HELP+7*, PROCESS+2*
>> VALMBG INIT+5*
>> VALMCNT DET+21*, INIT+5*
>> VALMHDR(1 HDR+1*
>> VALMQUIT INIT+2*, INIT+3*
>> VALMSG PHDR+1*
>> VALMWD INIT+5*, CHKSEL+8, DESELECT+2
X CHKSEL+1~, CHKSEL+6*
>> XQORM("#" PHDR+2*
>> XQORNOD(0 CHKSEL+2, CHKSEL+6
Y DET+1~, CHKSEL+1~, CHKSEL+7, PROCESS+1~, PROCESS+10
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 |  Local Variables  | All