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
Print Page as PDF
Routine: FHORD81

Package: Dietetics

Routine: FHORD81


Information

FHORD81 ; HISC/REL/NCA - Diet Order Lists (cont) ;11/30/00 13:55

Source Information

Source file <FHORD81.m>

Entry Points

Name Comments DBIA/ICR reference
OUTP ;Outpatient data
RMS ;SORT BY ROOM-BED
RM1
RM2
PROC ;process/print
OSO ;process outpt SOs.
OSF ;process outpt SFs.
REC ;set/get recurring data
OUTF ;outpatient TF
F0 ;
F2
L2
L3 ; Get Next Patient data
GET
NPO
COM ; List comment if any
DT
RM ;
HDR ;W:'($E(IOST,1,2)'="C-"&'PG) @IOF S PG=PG+1,DTP=NOW D DTP^FH

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: OUTP+12
Function Call: WRITE
  • Prompt: !!,$E(RM,1,12),?13,$E(FHPTNM,1,24),?38,FHBID,?67,FHSER
  • Line Location: PROC+28
Function Call: WRITE
  • Prompt: !,?14,"Diet Order: ",FHDIET,?40,"Meal: ","(",FHMEAL,")"
  • Line Location: PROC+33
Function Call: WRITE
  • Prompt: !,?14,"Service Type: ",FHTYP,?40,"Date: ",DTP
  • Line Location: PROC+34
Function Call: WRITE
  • Prompt: ?72,X
  • Line Location: OSO+8
Function Call: WRITE
  • Prompt: ?72,X
  • Line Location: OSF+5
Function Call: WRITE
  • Prompt: ZZ
  • Line Location: OUTF+22
Function Call: WRITE
  • Prompt: !
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: !!,RM,?13,$E($P(Y(0),"^",1),1,24),?38,BID,?47,DTP
  • Line Location: L3+8
Function Call: WRITE
  • Prompt: ?67,Y
  • Line Location: L3+9
Function Call: WRITE
  • Prompt: !?13,"Nut. Status: ",Y
  • Line Location: L3+10
Function Call: WRITE
  • Prompt: ?72,X
  • Line Location: L3+10
Function Call: WRITE
  • Prompt: !?13,"Allergies: "
  • Line Location: L3+11
Function Call: WRITE
  • Prompt: !?13,"Diet Order: ",$S(LEN:$P(MEAL,",",1,LEN-1)_",",1:MEAL)
  • Line Location: L3+12
Function Call: WRITE
  • Prompt: !?24,$P(MEAL,",",LEN,999)
  • Condition for execution: LEN
  • Line Location: L3+13
Function Call: WRITE
  • Prompt: !?16,COM
  • Line Location: COM+1
Function Call: WRITE
  • Prompt: !?16,$E(COM,1,LEN-1)
  • Line Location: COM+3
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,DTP,?(67-$L(WRDN)\2),WRDN," DIET ORDERS",?72,"Page ",PG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!?(79-$L(X)\2),X
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"Room",?13,"Patient",?39,"ID#",?48,"Admission Date",?66,"Svc",?71,"Ord Date"
  • Line Location: HDR+4
Info |  Source |  Entry Points |  Interaction Calls