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

Package: Dietetics

Routine: FHOMUTL


Information

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

Source Information

Source file <FHOMUTL.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select COMMUNICATION OFFICE (or ALL): ALL// "
  • Variable: X
  • Timeout: DTIME
  • 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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call