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

Package: Dietetics

Routine: FHOMUTL


Information

FHOMUTL ;Hines OIFO/RTK OUTPATIENT MEALS UTILITIES ;2/04/03 15:15

Source Information

Source file <FHOMUTL.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
VA Fileman 4 DD^%DT  NOW^%DTC  ^DIC  ^DIR  
Dietetics 3 (SITE,TR)^FH  PID^FHDPA  ^FHOMDPA  
Kernel 1 $$FMTHL7^XLFDT  

Caller Graph

Caller Graph Total: 82

Package Total Caller Graph
Dietetics 82 FHASM1  FHASMR  FHASN4  FHASN6  FHASN71  FHASP  FHASXR  FHBIR  
FHCTF3  FHCTF4  FHCTF5  FHDCR11  FHDCR1A  FHDCR1D  FHDMP  FHDPGM  
FHDPSM  FHDSSAPI  FHMTK1A  FHMTK5  FHMTKO  FHNO2  FHNO21  FHNO31  
FHNO7  FHNO8  FHOMCBRP  FHOMDMP  FHOMDPA  FHOMELT  FHOMGC1  FHOMGP1  
FHOMGR1  FHOMPP  FHOMRA1  FHOMRBL1  FHOMRBLD  FHOMRC1  FHOMRC2  FHOMRE1  
FHOMRL1  FHOMRMD  FHOMRO1  FHOMRP1  FHOMRR1  FHOMRT1  FHOMSA1  FHOMSP1  
FHOMSR1  FHOMSS1  FHOMSS2  FHOMTK1  FHOMTK2  FHORC1  FHORC2  FHORC3  
FHORD10  FHORD11  FHORD13  FHORD41  FHORD5  FHORD6  FHORD7  FHORD81  
FHORD9  FHORD92  FHORDR  FHORE21  FHORT5A  FHORX1  FHORX1A  FHORX1B  
FHPRF1  FHPST2  FHSELA1  FHSP  FHSP1  FHSP11  FHWADM  FHWORR  
FHWTRN  FHXDB2  

Entry Points

Name Comments DBIA/ICR reference
CONVC ;Convert Amount/Unit in file 118.2, from "C" to "ML".
DIETVER ;Verify that diet selected is from the allowable diets in 119.9
OKMSG ;Display message stating meal ordered successfully
UPXMSG ;
RMBED ;Prompt for outpatient room-bed - must be set up for Outpatient Location
DIV ;ask for Communication office if Multi-division.
SMSTAT ;Status of last special meal request
MONUM ;Prompt for number of monitors to display
PATNAME ;Get name and demographics of patient/new person
C1
ENDATE ;Prompt for end date
DIETLST ;Build list
DIETMSG ;Display message
CK
MSHOM ;Code MSG for outpatient orders
RANGE ;Check for validity of range of numbers entered
GTFHDFN ;Get FHDFN, given DFN
MSHCA ;Code Cancel/Discontinue for outpatient orders
MSHSS ;Code MSG for outpatient send status messages
EXMSG ;Display message stating meal NOT ordered
STDATE ;Prompt for start date (if FHPSDT="N" do not allow past dates)
GETZN ;Get first piece of zero node in 115
D2
OUTLOC ;Prompt for outpatient location - screen for ONLY Outpatient Locations
UPDMSG ;
GETOPT ;Select outpatient for recurring meals
TYPE ;
DIETHLP ;Display allowable diets from 119.9

External References

Name Field # of Occurrence
DD^%DT STDATE+1, STDATE+4, ENDATE+1, ENDATE+3
NOW^%DTC STDATE+1, ENDATE+1, PATNAME+15, MSHCA+1
^DIC D2+1, OUTLOC+4, RMBED+8
^DIR STDATE+4, ENDATE+2, GTFHDFN+1, MONUM+3
SITE^FH MSHOM+1, MSHCA+1, MSHSS+1
TR^FH D2, RANGE+1
PID^FHDPA PATNAME+8
^FHOMDPA GETOPT+1
$$FMTHL7^XLFDT MSHCA+5

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Prompt: "Select COMMUNICATION OFFICE (or ALL): ALL// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: D2+0
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: STDATE+4
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: ENDATE+3
Function Call: WRITE
  • Prompt: !!,"The selected location does not have an Associated Hospital Location. To set",!,"the Associated Hospital Location use option ENTER/EDIT NUTRITION LOCATIONS."
  • Line Location: OUTLOC+7
Function Call: WRITE
  • Prompt: !!,"No OUTPATIENT LOCATION selected"
  • Line Location: RMBED+2
Function Call: WRITE
  • Prompt: !!,"DFN '",ZZDFN,"' NOT FOUND IN FILE 2",!
  • Line Location: GTFHDFN+3
Function Call: WRITE
  • Prompt: !!,"NO CORRESPONDING FHDFN"
  • Line Location: GTFHDFN+4
Function Call: WRITE
  • Prompt: !!," NAME: ",$P($G(^DPT(ZZDFN,0)),U,1)
  • Line Location: GTFHDFN+5
Function Call: WRITE
  • Prompt: !?2,"DFN: ",ZZDFN,!,"FHDFN: ",FHDFN,!
  • Line Location: GTFHDFN+6
Function Call: WRITE
  • Prompt: !!,"NO RECURRING MEALS FOR THIS PERSON"
  • Line Location: GETOPT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: GETOPT+4
Function Call: WRITE
  • Prompt: *7," ==> NOT ALLOWED",!
  • Line Location: DIETVER+2
Function Call: WRITE
  • Prompt: !?3,"You must select from the diets set up in the Site Parameters:"
  • Line Location: DIETMSG+1
Function Call: WRITE
  • Prompt: !?3,$P($G(^FH(111,AB,0)),U)
  • Line Location: DIETMSG+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DIETMSG+3
Function Call: WRITE
  • Prompt: !!?3,FHMSGML," NOT ordered!",!
  • Line Location: EXMSG+2
Function Call: WRITE
  • Prompt: !!?3,FHMSGML," ordered for ",FHPTNM,"...",!
  • Line Location: OKMSG+2
Function Call: WRITE
  • Prompt: !!?3,"Recurring meal NOT updated! ",!
  • Line Location: UPXMSG+1
Function Call: WRITE
  • Prompt: !!?3,"Recurring meal updated for ",FHPTNM,"...",!
  • Line Location: UPDMSG+1
Function Call: WRITE
  • Prompt: !," Enter numbers or range or ALL (E.G., 1,3,4 or 3-5 or 1,3-5)"
  • Line Location: C1+0
Function Call: WRITE
  • Prompt: !
  • Line Location: MONUM+1
Routine Call
  • DIC
  • Line Location:
    • D2+1
    • OUTLOC+4
    • RMBED+8
Routine Call
  • DIR
  • Line Location:
    • STDATE+4
    • ENDATE+2
    • GTFHDFN+1
    • MONUM+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FH(119.6 - [#119.6] Classic Fileman Calls
^FH(119.73 - [#119.73] Classic Fileman Calls
^DG(405.4 - [#405.4] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] GTFHDFN+3, GTFHDFN+5, PATNAME+3, PATNAME+9, MSHOM+3, MSHCA+4, MSHSS+3
^FH(111 - [#111] DIETLST+6, DIETMSG+2
^FH(118.2 - [#118.2] CONVC+1, CONVC+2, CONVC+4*
^FH(119.6 - [#119.6] OUTLOC+6, OUTLOC+7, RMBED+3, RMBED+4, RMBED+5, MSHOM+4, MSHOM+5
^FH(119.73 - [#119.73] DIV+3
^FH(119.9 - [#119.9] DIV+4, DIETLST+1, DIETLST+2
^FHPT - [#115] GETOPT+2, GETOPT+3, GETZN+1, SMSTAT+1, SMSTAT+3
^FHPT("B" GTFHDFN+2
^SC - [#44] MSHOM+6
^VA(200 - [#200] PATNAME+4, PATNAME+12, PATNAME+14

Label References

Name Line Occurrences
C1 CK, CK+1
CK RANGE+4
D2 D2+1
DIETLST DIETVER+1, DIETHLP+1
DIETMSG DIETVER+2, DIETHLP+1
GETZN PATNAME+2
MONUM MONUM+5
PATNAME OKMSG+2, UPDMSG+1
STDATE GETOPT+4
TYPE EXMSG+1, OKMSG+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PATNAME+16, MSHCA+1
>> A DIETLST+3*
>> AB DIETLST+3*, DIETLST+4, DIETLST+5, DIETLST+6, DIETMSG+2*
>> ACT MSHCA+1*, MSHCA+6
>> BID PATNAME+10
>> DATE MSHCA+5*, MSHCA+6
>> DFN PATNAME+2*, PATNAME+7*, PATNAME+9, MSHOM+3, MSHCA+4, MSHSS+3
DIC D2+1!*, OUTLOC+2!*, RMBED+6!*
DIC("A" OUTLOC+3*, RMBED+7*
DIC("S" OUTLOC+4*, RMBED+8*
DIC(0 D2+1*, OUTLOC+2*, RMBED+6*
DIR STDATE+2!, ENDATE+1!, GTFHDFN+1!, MONUM+1!
DIR("?" MONUM+1*
DIR("A" STDATE+2*, ENDATE+2*, MONUM+2*
DIR("B" STDATE+2*, ENDATE+2*, GTFHDFN+1*, MONUM+3*
DIR(0 STDATE+3*, ENDATE+2*, GTFHDFN+1*, MONUM+2*
>> DIRUT STDATE+4, ENDATE+3, GTFHDFN+1, MONUM+4
DT SMSTAT+2
DTIME D2
>> DUOUT OUTLOC+5, RMBED+9
DUZ MSHCA+6
>> ENDT ENDATE+1*, ENDATE+3*
FH DIV+1~, DIV+3*
>> FHAF CONVC+3*, CONVC+4
>> FHAGE PATNAME+15*, PATNAME+16*
>> FHAS CONVC+3*, CONVC+4
>> FHAU CONVC+2*, CONVC+3
>> FHBID PATNAME+2*, PATNAME+10*, PATNAME+13*
>> FHCATXT MSHCA+2*, MSHCA+6
>> FHCLST RANGE+1*, RANGE+5*, C1*
>> FHCOMM OUTLOC+6*, OUTLOC+7*
>> FHDEF DIETLST+2*
>> FHDFN GTFHDFN+2*, GTFHDFN+4, GTFHDFN+6, GETOPT+1, GETOPT+2, GETOPT+3, GETZN+1, SMSTAT+1, SMSTAT+3
>> FHDIET DIETVER+1, DIETVER+2*
FHDIETS DIETLST+1!
FHDIETS( DIETVER+1, DIETLST+5*, DIETMSG+2
>> FHDOB PATNAME+2*, PATNAME+9*, PATNAME+14*, PATNAME+16
>> FHDTDF STDATE+1*, STDATE+2, ENDATE+1*, ENDATE+2
>> FHFIND GETOPT+1*, GETOPT+2*, GETOPT+3*, GETOPT+4*
>> FHII CONVC+1*, CONVC+2, CONVC+4
>> FHLOC OUTLOC+1*, OUTLOC+6*, OUTLOC+7*, RMBED+2, RMBED+3, RMBED+4, RMBED+5, MSHOM+4, MSHOM+5
>> FHMSG1 TYPE+1
>> FHMSGML EXMSG+2, OKMSG+2, TYPE+1*
>> FHNOW MSHCA+1*, MSHCA+5
>> FHNUM RANGE+1*, RANGE+2*, RANGE+3, MONUM+1*, MONUM+4*, MONUM+5*, MONUM+6*
>> FHOLOC MSHOM+4*, MSHOM+5*, MSHOM+6, MSHOM+7
>> FHOLOCNM MSHOM+6*, MSHOM+7
>> FHORN MSHCA+6, MSHSS+4
>> FHOUT OUTLOC+1*
>> FHPCZN GETZN+1*, GETZN+2
>> FHPSDT STDATE+3
>> FHPTNM PATNAME+3*, PATNAME+4*, OKMSG+2, UPDMSG+1
>> FHRMBD RMBED+1*, RMBED+10*
>> FHRMBI RMBED+4*, RMBED+5
>> FHRMBPT RMBED+5*
>> FHRMBSL RMBED+1*
>> FHRMBSL( RMBED+5*
FHSCNT DIV+1~, DIV+3*, DIV+4, D2
>> FHSEX PATNAME+2*, PATNAME+9*, PATNAME+14*
FHSITE DIV+2!, DIV+3*, D2!*, D2+1*
FHSITENM DIV+2!, DIV+3*, D2!, D2+1*
>> FHSMNUM SMSTAT+1*, SMSTAT+2, SMSTAT+3
>> FHSPDTS DIETLST+1*, DIETLST+6*
>> FHSSN PATNAME+8*, PATNAME+12*, PATNAME+13
>> FHSTAT SMSTAT+1*, SMSTAT+2*, SMSTAT+3*
>> FHSTTS MSHSS+4
>> FHZ115 GTFHDFN+2*
>> FILE PATNAME+3, PATNAME+4, PATNAME+6, PATNAME+11, GETZN+1*
>> FILL MSHCA+6, MSHSS+4
>> FLG RANGE+1*, RANGE+3, RANGE+4, C1*
>> IEN PATNAME+3, PATNAME+4, PATNAME+7, PATNAME+12, PATNAME+14, GETZN+2*
>> IEN200 PATNAME+12*
>> K RANGE+3*
>> K1 RANGE+3*, RANGE+4*, RANGE+5, CK, CK+2
>> K2 RANGE+4*, RANGE+5, CK+1, CK+2
>> K3 RANGE+5*
MSG MSHCA+1!
MSG(1 MSHOM+2*, MSHCA+3*, MSHSS+2*
MSG(2 MSHOM+3*, MSHCA+4*, MSHSS+3*
MSG(3 MSHOM+7*, MSHCA+6*, MSHSS+4*
>> NUM RANGE+2, CK, CK+1
>> PID PATNAME+8
>> SITE(1 MSHOM+2, MSHCA+3, MSHSS+2
SPD DIETLST+1!*, DIETLST+3
>> STDT STDATE+1*, STDATE+4*, ENDATE+2, GETOPT+4
U DIV+3, DIV+4, D2+1, OUTLOC+6, RMBED+5, GTFHDFN+5, PATNAME+3, PATNAME+4, PATNAME+9, PATNAME+12
, PATNAME+14, GETZN+1, DIETLST+1, DIETLST+2, DIETLST+3, DIETLST+6, DIETMSG+2, SMSTAT+3, MSHOM+6, CONVC+2
, CONVC+4
X D2!*, D2+1, STDATE+1, ENDATE+1, RANGE+1*
>> Y D2+1, STDATE+1*, STDATE+4*, ENDATE+1*, ENDATE+3*, OUTLOC+5, OUTLOC+6, RMBED+9, RMBED+10, GTFHDFN+1
, MONUM+5
>> ZZDFN GTFHDFN+1*, GTFHDFN+2, GTFHDFN+3, GTFHDFN+5, GTFHDFN+6
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