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

Package: Dietetics

Routine: FHSELA1


Information

FHSELA1 ;Hines OIFO/RTK - Map GMR Allergy file to Food Prefs ;3/07/2007

Source Information

Source file <FHSELA1.m>

Entry Points

Name Comments DBIA/ICR reference
CREATE ; Check for any missing Allergy-type FP's or one's not renamed in 115.2
; and allow user to create the FP on the fly
CRLIST ;
ADD ;
PG ;
MAP ; Map allergies by setting pointers in 115.2 to correct entries in 120.82
LOOKUP ; Look-up the Allergy in 120.82 and set the pointer
DISPMAP ;
DEV ;get device and set up queue
LISTMAP ; List Map by Allergies or by Food Preferences
LISTFP ; List all the Allergy-type Food Pref's and corresponding GMR Allergies
LISTAL ; List all the GMR Allergies and the Food Pref to map to
MISSING ; List all Food Pref's with no pointers to 120.82
CHECK ; Check for any missing Allergy-type FP's or one's not renamed in 115.2
UPDATE ;Update Food Preferences for all Patient's based on Allergies
LIST ;
EXIT ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!,"The following Allergy Food Preference titles are not on file."
  • Line Location: CREATE+3
Function Call: WRITE
  • Prompt: !,"You may use this option to create these Food Preference entries:"
  • Line Location: CREATE+4
Function Call: WRITE
  • Prompt: !,"No Food Preferences need to be mapped."
  • Line Location: CREATE+5
Function Call: WRITE
  • Prompt: !,FHAFPNM," "
  • Line Location: CREATE+9
Function Call: WRITE
  • Prompt: !!," ...done. ",FHAFPNM," Food Preference has been added!"
  • Line Location: CREATE+14
Function Call: WRITE
  • Prompt: !!?5,"MISSING FOOD PREFERENCE LIST"
  • Line Location: CRLIST+1
Function Call: WRITE
  • Prompt: !?5,"============================"
  • Line Location: CRLIST+2
Function Call: WRITE
  • Prompt: !,PAD,NUM
  • Line Location: CRLIST+8
Function Call: WRITE
  • Prompt: !
  • Line Location: PG+1
Function Call: WRITE
  • Prompt: !!,"Select from 1 to ",NUM
  • Line Location: PG+7
Function Call: WRITE
  • Prompt: !!,"This option can be used to display the Standard GMR Allergy"
  • Line Location: DISPMAP+1
Function Call: WRITE
  • Prompt: !,"entries and the Food Preferences they map to.",!!
  • Line Location: DISPMAP+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"ALLERGY TYPE FOOD PREFERENCE MAP"
  • Line Location: LISTFP+2
Function Call: WRITE
  • Prompt: !!,"NFS Food Preference Title",?40,"GMR Standard Allergy(s)"
  • Line Location: LISTFP+3
Function Call: WRITE
  • Prompt: !,"==================================="
  • Line Location: LISTFP+4
Function Call: WRITE
  • Prompt: ?40,"==================================="
  • Line Location: LISTFP+5
Function Call: WRITE
  • Prompt: ?40,"** NONE **"
  • Line Location: LISTFP+9
Function Call: WRITE
  • Prompt: !?40
  • Condition for execution: N>40
  • Line Location: LISTFP+11
Function Call: WRITE
  • Prompt: FHANAM
  • Line Location: LISTFP+11
Function Call: WRITE
  • Prompt: !!,"GMR STANDARD FOOD ALLERGY MAP"
  • Line Location: LISTAL+2
Function Call: WRITE
  • Prompt: !!,"GMR Allergy Name",?25,"Corresponding NFS Food Preference"
  • Line Location: LISTAL+3
Function Call: WRITE
  • Prompt: !,"=======================",?25,"===================================="
  • Line Location: LISTAL+4
Function Call: WRITE
  • Prompt: !,"The following Food Preferences titles were not found in file #115.2:"
  • Line Location: CHECK+3
Function Call: WRITE
  • Prompt: !,FHZ1
  • Line Location: CHECK+7
Function Call: WRITE
  • Prompt: !,"ALL FOOD PREFERENCES HAVE BEEN RENAMED!"
  • Line Location: CHECK+8
Function Call: WRITE
  • Prompt: !!,"...Updating Patient Food Preferences based on Food-Type Allergies"
  • Line Location: UPDATE+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: UPDATE+4
Function Call: WRITE
  • Prompt: !!,"The following entries need to be mapped in order to automatically"
  • Line Location: LIST+2
Function Call: WRITE
  • Prompt: !,"update the Patient Food Preferences:",!
  • Line Location: LIST+3
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+10
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+10

FileMan Files Accessed Via FileMan Db Call

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