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

Package: Dietetics

Routine: FHNO7


Information

FHNO7 ; HISC/REL - List Supplemental Fdgs. ;12/15/94 09:14

Source Information

Source file <FHNO7.m>

Entry Points

Name Comments DBIA/ICR reference
LIS ; Display Feeding
L1 ; Display SF Order
EN2 ; Supplemental Feeding Inquiry
SF ;LIST outpatient SF
SF0 ;ask for outpatient SF.
OIS ;Outpatient Individualized SF
G0 ;process each meals for individualized SF.
G1
G2
G3
G4
G5
G6
CPRSF ;check previous SF
CPRS1
PPRSF ;PROCESS previous SF
SFEVNT ;
KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: LIS+7
Function Call: WRITE
  • Prompt: !!,NAM," "
  • Line Location: LIS+7
Function Call: WRITE
  • Prompt: "( ",FHLOCN," )"
  • Condition for execution: WARD'="" "( ",WARD," )" W:FHLOCN'=""
  • Line Location: LIS+7
Function Call: WRITE
  • Prompt: ?50,"Outpatient Date: ",DTP
  • Line Location: LIS+8
Function Call: WRITE
  • Prompt: !," Allergies: ",$S(ALG="":"None on file",1:ALG)
  • Line Location: LIS+10
Function Call: WRITE
  • Prompt: !,"Feeding Menu: ",$S('NM:"None",1:$P(^FH(118.1,NM,0),"^",1)) Q:'NO
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: ?50,"Reviewed: ",DTP
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !!,"10AM",?26,"2PM",?52,"8PM",!,"----------------------- ----------------------- -----------------------"
  • Line Location: L1+3
Function Call: WRITE
  • Prompt: !!,"10AM",!,"----------------------------------------------------------------------------"
  • Line Location: L1+4
Function Call: WRITE
  • Prompt: !!,"2PM",!,"-----------------------------------------------------------------------------"
  • Line Location: L1+5
Function Call: WRITE
  • Prompt: !!,"8PM",!,"-----------------------------------------------------------------------------"
  • Line Location: L1+6
Function Call: WRITE
  • Prompt: !,N(1,K2),?26,N(2,K2),?52,N(3,K2)
  • Line Location: L1+9
Function Call: WRITE
  • Prompt: !,$S(FHMEAL="B":N(1,K2),FHMEAL="N":N(2,K2),1:N(3,K2))
  • Line Location: L1+10
Function Call: WRITE
  • Prompt: !,"NO OUTPATIENT DATA ON FILE for today's date and the future!!"
  • Line Location: EN2+5
Function Call: WRITE
  • Prompt: @IOF,!,"Outpatient Recurring Meals... "
  • Line Location: SF+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SF+18
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: G2+0
Function Call: WRITE
  • Prompt: *7," .. DUPLICATE OF EXISTING ITEM!"
  • Line Location: G2+4
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: G4+0
Function Call: WRITE
  • Prompt: *7," ??"
  • Line Location: G4+2
Function Call: WRITE
  • Prompt: !?5,"Enter a whole number between 1 and 20"
  • Line Location: G4+3
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: G6+0
Function Call: WRITE
  • Prompt: *7,!?5," Answer D for Dietary use or T for Therapeutic use"
  • Line Location: G6+2

FileMan Files Accessed Via FileMan Db Call

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