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

Call Graph

Call Graph Total: 11

Package Total Call Graph
Dietetics 5 ALG^FHCLN  GETZN^FHOMUTL  TRAN^FHSEL1  ^FHSELA2  UPDFP1^FHWGMR  
Kernel 3 ^%ZIS  ^%ZISC  ^%ZTLOAD  
VA Fileman 3 FILE^DICN  ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Dietetics 3 FHSELA  FHSELF  FHSELU  

Entry Points

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

External References

Name Field # of Occurrence
^%ZIS DEV+1
^%ZISC DEV+2, DEV+5
^%ZTLOAD DEV+4
FILE^DICN ADD+3, LOOKUP+6
^DIE ADD+6
^DIR CREATE+10, PG+3, DISPMAP+4, LIST+10
ALG^FHCLN UPDATE+6
GETZN^FHOMUTL UPDATE+5
TRAN^FHSEL1 ADD+7
^FHSELA2 CREATE+2, MAP+1, LISTFP+1, LISTAL+1, MISSING+1, CHECK+1, UPDATE+1
UPDFP1^FHWGMR UPDATE+7

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
Routine Call
  • DIE
  • Line Location:
    • ADD+6
Routine Call
  • DIR
  • Line Location:
    • CREATE+10
    • PG+3
    • DISPMAP+4
    • LIST+10
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(115.2 - [#115.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(115.2 LOOKUP+5
^FH(115.2 - [#115.2] CRLIST+7, MAP+6, MAP+7, LOOKUP+3, CHECK+7
^FHPT - [#115] UPDATE+3
^GMRD(120.82 - [#120.82] LOOKUP+2
^TMP($J CRLIST+4, CRLIST+5, CRLIST+11, MAP+3, MAP+4, LISTFP+6, LISTFP+7, LISTAL+5, LISTAL+6, LISTAL+9*
, LISTAL+11, LISTAL+12, MISSING+3, MISSING+4, CHECK+4, CHECK+5, UPDATE+6, UPDATE+7, UPDATE+8!, UPDATE+10!
, LIST+1, LIST+4, LIST+6, LIST+7, EXIT+2!

Label References

Name Line Occurrences
ADD CREATE+13
CREATE CREATE+12, CREATE+15
CRLIST CREATE+5
DEV DISPMAP+7
EXIT CREATE+5, CREATE+6, CREATE+7, CREATE+11, CREATE+16, DISPMAP+5, DEV+2, DEV+6, LISTFP+12, LISTAL+13
, MISSING+7, CHECK+9
LIST UPDATE+9
LISTAL LISTMAP+1
LISTFP LISTMAP+2
LISTMAP DEV+2
LOOKUP MAP+10
MAP EXIT+1
PG CRLIST+11, CRLIST+13, PG+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1!*, DEV+5!
DA ADD+5*, ADD+6!
DA(1 LOOKUP+4*
>> DFN UPDATE+6*
DIC ADD+2!, ADD+3*, LOOKUP+4!*
DIC("P" LOOKUP+5*
DIC(0 ADD+3*, LOOKUP+5*
DIE ADD+3*, ADD+6!
DIR CREATE+10!, PG+1!, DISPMAP+2!, LIST+10!
DIR("A" CREATE+10*, PG+2*, DISPMAP+3*
DIR("B" PG+3*
DIR(0 CREATE+10*, PG+3*, DISPMAP+4*, LIST+10*
>> DIRUT CREATE+11, PG+3, DISPMAP+5
DO ADD+2!, LOOKUP+4!
DR ADD+5*, ADD+6!
FHAFPNM CREATE+8*, CREATE+9, CREATE+14, ADD+2, EXIT+4!
FHALGMZ ADD+1*, EXIT+4!
FHALMP MAP+8*, MAP+9, LISTFP+9*, LISTFP+10, LISTAL+7*, LISTAL+8, EXIT+4!
FHANAM MAP+9*, LOOKUP+1, LISTFP+10*, LISTFP+11, LISTAL+8*, LISTAL+9, EXIT+3!
FHANAMZ LISTAL+10*, LISTAL+11*, LISTAL+12, EXIT+3!
FHCOUNT UPDATE+1*, UPDATE+4*, UPDATE+8!, UPDATE+10!, LIST+3*, LIST+5*, LIST+9*, LIST+10*
>> FHDA ADD+5*
>> FHDFN UPDATE+3*
FHFPIEN MAP+7*, LOOKUP+3, LOOKUP+4, EXIT+3!
FHFPS CRLIST+5*, CRLIST+6, CRLIST+10, MAP+4*, MAP+5, MAP+8, LISTFP+7*, LISTFP+9, LISTAL+6*, LISTAL+7
, MISSING+4*, MISSING+5, CHECK+5*, CHECK+6, EXIT+3!
FHGMRN UPDATE+7*, UPDATE+8!, UPDATE+10!
FHK CRLIST+3*, CRLIST+4*, CRLIST+5, CRLIST+11, MAP+2*, MAP+3*, MAP+4, LISTFP+2*, LISTFP+6*, LISTFP+7
, LISTAL+2*, LISTAL+5*, LISTAL+6, MISSING+2*, MISSING+3*, MISSING+4, CHECK+2*, CHECK+4*, CHECK+5, EXIT+3!
FHLIST EXIT+4!
FHLIST( CREATE+8, CRLIST+10*
FHMISS UPDATE+3!
FHMSAL UPDATE+8!, UPDATE+10!, LIST+7*, LIST+8
FHMSFP UPDATE+8!, UPDATE+10!, LIST+4*, LIST+5, LIST+6, LIST+7
FHMSPT UPDATE+8!, UPDATE+10!, LIST+6*, LIST+7, LIST+8
FHPST8 UPDATE+8!, UPDATE+10!
FHQT UPDATE+1*, UPDATE+10!, LIST+3*, LIST+4, LIST+10*
FHQUIT CREATE+2*, CREATE+6, CRLIST+4, CRLIST+13, PG+3*, EXIT+4!
FHRESP CREATE+7, CREATE+8, PG+1*, PG+4*, PG+5, PG+6, EXIT+4!
FHSEL CRLIST+3*, CRLIST+4, CRLIST+13, PG+6*, DISPMAP+6*, LISTMAP+1, LISTMAP+2, EXIT+4!
FHVAL LOOKUP+2*, LOOKUP+3, LOOKUP+4, EXIT+3!
FHX LOOKUP+1*, LOOKUP+2, EXIT+3!
FHZ MAP+9*, LISTFP+10*, LISTFP+11, LISTAL+8*, EXIT+3!
FHZ1 CRLIST+6*, CRLIST+7, CRLIST+9, CRLIST+10, MAP+5*, MAP+6, MAP+7, LISTFP+7*, LISTFP+8, LISTAL+6*
, LISTAL+9, MISSING+4*, MISSING+6, CHECK+6*, CHECK+7, EXIT+3!
>> FILE UPDATE+5
>> FLG CHECK+2*, CHECK+7*, CHECK+8
>> IEN UPDATE+6
IO DEV+2
IO("Q" DEV+2
IOP DEV+1!, DEV+5!
N LISTFP+10*, LISTFP+11*, LISTAL+8*, EXIT+3!
NUM CREATE+2*, CREATE+5, CRLIST+8*, CRLIST+10, CRLIST+11, CRLIST+13, PG+6, PG+7, EXIT+4!
PAD CRLIST+8*, EXIT+4!
>> POP DEV+1
U LOOKUP+5, LIST+7
>> X ADD+2*, LOOKUP+5*, LIST+10
>> Y CREATE+12, ADD+5, PG+4, LOOKUP+4*, LOOKUP+5, DISPMAP+6
>> ZTDESC DEV+4*
>> ZTRTN DEV+3*
>> ZTSAVE("FHSEL" DEV+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