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

Package: Adverse Reaction Tracking

Routine: GMRACMR1


Information

GMRACMR1 ;HIRMFO/WAA-Find clinics and wards ;12/16/97 10:35

Source Information

Source file <GMRACMR1.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA Fileman 2 ^DIC  YN^DICN  
Adverse Reaction Tracking 1 $$SCRIACT^GMRACMR1  
Kernel 1 $$UP^XLFSTR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Adverse Reaction Tracking 2 GMRACMR  GMRACMR1  

Entry Points

Name Comments DBIA/ICR reference
RETURN
ACT42(START,END) ; DETERMINES IF A WARD IS ACTIVE DURING A D/T RANGE
; WARD IS IN GMRA42, AND PASS IN START AND END AS D/T RANGE
MDIC() ; FUNTION RETURNS S ^TMP($J,"GMRAWC",GMRANUM,GMRAX)=""
; FUNCTION VALUE IS -1 IF USER ABORTS, 0 IF NO LOCS PICKED, ELSE 1
HLP ; PRINT LOCATIONS SELECTED ALREADY
DIC
SCRIACT(X) ; GIVEN X AS 44 ENTRY, THIS SCREEN WILL DETERMINE IF IT IS
; ACTIVE OR NOT FOR THIS REPORT. RETURNS 0 IF IT IS NOT, ELSE 1

External References

Name Field # of Occurrence
^DIC RETURN+2
YN^DICN DIC+2
$$SCRIACT^GMRACMR1 DIC+5
$$UP^XLFSTR DIC+1

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: DIC+0
Function Call: WRITE
  • Prompt: !,"Do you mean ALL Locations"
  • Line Location: DIC+2
Function Call: WRITE
  • Prompt: !,"Enter Y for yes you mean ALL or N for no.",$C(7)
  • Line Location: DIC+2
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: HLP+1
Function Call: WRITE
  • Prompt: !?3,"YOU HAVE ALREADY SELECTED: "
  • Line Location: HLP+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: HLP+2
Function Call: WRITE
  • Prompt: !!?3,"You may deselect from the list by typing a '-' followed by location name.",!?4,"E.g. -3E would delete 3E from the list of locations already selected."
  • Line Location: HLP+4
Function Call: WRITE
  • Prompt: !?4,"You may enter the word ALL to select all appropriate locations."
  • Line Location: HLP+5
Routine Call
  • DIC
  • Line Location:
    • RETURN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] SCRIACT+6, SCRIACT+7, ACT42+4, ACT42+5, ACT42+6
^SC - [#44] DIC+4, DIC+5, RETURN+3, HLP+2, SCRIACT+2, SCRIACT+6, SCRIACT+12
^TMP($J MDIC+2!, DIC, DIC+5*, RETURN, RETURN+3*, RETURN+4!, HLP+1, HLP+2

Label References

Name Line Occurrences
$$ACT42 SCRIACT+8, SCRIACT+9
DIC DIC+1, RETURN+2, RETURN+5
HLP RETURN+1
RETURN RETURN+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DIC+2*, DIC+3!, DIC+4!, DIC+7!
ANS ACT42+2~, ACT42+3*, ACT42+8*, ACT42+11
ANS(0 ACT42+3*, ACT42+4, ACT42+5, ACT42+8*
DIC MDIC+2~, RETURN+2*!
DIC("S" RETURN+2*
DIC(0 RETURN+2*
DLAYGO RETURN+2!
DT SCRIACT+8, SCRIACT+13
DTIME DIC, HLP+2
END ACT42~, ACT42+8
>> GMRA42 SCRIACT+6*, SCRIACT+7, ACT42+4, ACT42+5, ACT42+6
>> GMRAED SCRIACT+9, SCRIACT+15
GMRANLOC MDIC+2!
>> GMRANUM MDIC+2*, RETURN+3*
>> GMRAQST SCRIACT+4
>> GMRASEL SCRIACT+8, SCRIACT+9, SCRIACT+11, SCRIACT+13, SCRIACT+14
>> GMRAST SCRIACT+9, SCRIACT+13
MDIC MDIC+2~, RETURN*
NEG MDIC+2~, RETURN+2*, RETURN+3
OOS ACT42+2~, ACT42+6*, ACT42+7, ACT42+8
OOS(1 ACT42+3*, ACT42+4*, ACT42+5
OOS(2 ACT42+5*, ACT42+6
START ACT42~, ACT42+3
U DIC+5, RETURN+3, HLP+2, SCRIACT+4, SCRIACT+5, SCRIACT+11, SCRIACT+13, SCRIACT+14, SCRIACT+15, ACT42+7
, ACT42+8
X MDIC+2~, DIC*, DIC+1, DIC+2*, DIC+4*, DIC+5, DIC+7*, RETURN, RETURN+1*, RETURN+2*
, HLP+2*, SCRIACT~, SCRIACT+2, SCRIACT+6, SCRIACT+12
X("ANS" SCRIACT+2*, SCRIACT+7*, SCRIACT+8*, SCRIACT+9*, SCRIACT+16*, SCRIACT+18*, SCRIACT+21
X("I" SCRIACT+12*, SCRIACT+13, SCRIACT+14, SCRIACT+15
X(0 SCRIACT+2*, SCRIACT+3, SCRIACT+4, SCRIACT+5, SCRIACT+11
Y MDIC+2~, RETURN+1, RETURN+2, RETURN+3, RETURN+4, HLP+2*, HLP+3
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