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

Package: Dietetics

Routine: FHNO2


Information

FHNO2 ; HISC/REL/NCA - Supplemental Feeding Labels ;8/26/94 12:01

Source Information

Source file <FHNO2.m>

Entry Points

Name Comments DBIA/ICR reference
D0
D1
D2
D3
D4
D5
D6
PR
Q1 ; Process Printing Supplemental Feeding Labels
KIL
Q2
F0
F1
CHK
C0
C1
C2
SUM
S0
S1
PRT
CALC
SF0 ;outpatient SFs
CLC1 ;

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Formatting: !!
  • Prompt: "Select by S=SUPPLEMENTAL FEEDING SITE or W=WARD: "
  • Variable: XX
  • Timeout: DTIME
  • Line Location: D0+0
Function Call: WRITE
  • Prompt: *7," Enter S or W"
  • Line Location: D0+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Select WARD: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: D1+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Select SUPPLEMENTAL FEEDING SITE: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: D2+0
Function Call: READ
  • Timeout: DTIME
  • Line Location: D3+0
Function Call: WRITE
  • Prompt: *7," Enter a time, 10,2,8, or ALL"
  • Line Location: D3+1
Function Call: WRITE
  • Prompt: !
  • Line Location: D3+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Do you want Ingredient list only? N// "
  • Variable: D3
  • Timeout: DTIME
  • Line Location: D4+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: D4+0
Function Call: READ
  • Formatting: !!
  • Prompt: "Consolidated List only? Y// "
  • Variable: X
  • Timeout: DTIME
  • Line Location: D5+0
Function Call: WRITE
  • Prompt: *7," Answer YES or NO"
  • Line Location: D5+0
Function Call: WRITE
  • Prompt: !!,"No Supplemental Feeding Site associated with this location."
  • Line Location: D6+0
Function Call: WRITE
  • Prompt: !
  • Line Location: PR+0
Function Call: WRITE
  • Prompt: !
  • Line Location: Q1+7
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !?5,"**** CONSOLIDATED ****"
  • Condition for execution: D3=2
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !?3,"**** INGREDIENTS LIST ****",!
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: D3=1
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: ?(33-$L(Y)\2),Y,!?9,DTE,!!
  • Line Location: PRT+2
Function Call: WRITE
  • Prompt: !,$E(A1,1,26),?28,$J(C(L),5,0)
  • Line Location: PRT+4
Function Call: WRITE
  • Prompt: !!?4,"**** PATIENTS = ",N1," ****",!
  • Line Location: PRT+5

FileMan Files Accessed Via FileMan Db Call

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