Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
MDIC() ; FUNTION RETURNS S ^TMP($J,"GMRAWC",GMRANUM,GMRAX)=""
; FUNCTION VALUE IS -1 IF USER ABORTS, 0 IF NO LOCS PICKED, ELSE 1
DIC
RETURN
HLP ; PRINT LOCATIONS SELECTED ALREADY
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
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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • 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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call