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

Package: Dietetics

Routine: FHNO8


Information

FHNO8 ; HISC/REL - History of Supp. Fdgs. ;5/17/93 14:24

Source Information

Source file <FHNO8.m>

Entry Points

Name Comments DBIA/ICR reference
SF
SF0
CAD
SF1
OSF ;process outpatient SFs.
OSF0
ASK0 ;ask for Recurring Meal entry.
A0
IN ;D ADM G SF0:ADM'>0
P0
P1
ADM ;S WARD=$G(^DPT(DFN,.1))
LIS
KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"NO ADMISSIONS ON FILE!"
  • Line Location: SF+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: SF0+0
Function Call: WRITE
  • Prompt: !!,"NO OUTPATIENT DATA ON FILE!"
  • Line Location: SF0+1
Function Call: WRITE
  • Prompt: !!,"NO OUTPATIENT DATA ON FILE!"
  • Line Location: SF1+0
Function Call: WRITE
  • Prompt: !!,"Enter the Start Date and End Date for outpatient data.",!
  • Line Location: SF1+1
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: SF1+7
Function Call: READ
  • Formatting: !!
  • Prompt: "Detailed Display of which Order #? "
  • Variable: X
  • Timeout: DTIME
  • Line Location: OSF0+0
Function Call: WRITE
  • Prompt: *7," Enter # of Order to List"
  • Line Location: OSF0+0
Function Call: WRITE
  • Prompt: @IOF,!,"Outpatient Recurring Meals... "
  • Line Location: ASK0+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK0+18
Function Call: WRITE
  • Prompt: !!,"NO ADMISSIONS ON FILE!"
  • Line Location: ASK0+30
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A0+0
Function Call: WRITE
  • Prompt: !!,"No Supplemental Feedings for this Admission!"
  • Line Location: P0+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Detailed Display of which Order #? "
  • Variable: X
  • Timeout: DTIME
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: *7," Enter # of Order to List"
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: *7,!!,"NOT CURRENTLY AN INPATIENT!",!
  • Line Location: ADM+1
Function Call: WRITE
  • Prompt: !!,"Ord Date/Time Ordered Supplemental Feeding Menu Date/Time Cancelled",!
  • Line Location: LIS+0
Function Call: WRITE
  • Prompt: !,$J(K,3)," ",DTP
  • Line Location: LIS+2
Function Call: WRITE
  • Prompt: ?54,DTP
  • Line Location: LIS+4

FileMan Files Accessed Via FileMan Db Call

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