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

Package: Dietetics

Routine: FHNO31


Information

FHNO31 ; HISC/REL - Supplemental Feeding Lists (cont) ;4/27/93 11:26

Source Information

Source file <FHNO31.m>

Entry Points

Name Comments DBIA/ICR reference
F0
F2
L2
L3
L4
ING
RM ;
CHK
C0
C1
C2
HDR ; Print Header
OSF ;outpatient SFs
OSF1
OL2
OL3
OL4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: L2+0
Function Call: WRITE
  • Prompt: !!,RM,?13,$E($P(Y(0),"^",1),1,24),?38,BID
  • Line Location: L3+6
Function Call: WRITE
  • Prompt: ?69,$E(LST,4,5),"-",$E(LST,6,7)
  • Line Location: L3+7
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: LST<OLD
  • Line Location: L3+7
Function Call: WRITE
  • Prompt: !,"ALLERGIES: ",$S(ALG="":"NONE ON FILE",1:ALG)
  • Line Location: L3+8
Function Call: WRITE
  • Prompt: !?8,$P("10AM; 2PM; 8PM",";",K1),?14,N(K1)
  • Line Location: L3+10
Function Call: WRITE
  • Prompt: @IOF,!,WRDN," INGREDIENT LIST FOR ",DTP
  • Line Location: ING+0
Function Call: WRITE
  • Prompt: !!,"--- 10 AM ---",?26,"--- 2 PM ---",?52,"--- 8 PM ---",!
  • Line Location: ING+1
Function Call: WRITE
  • Prompt: !
  • Line Location: ING+2
Function Call: WRITE
  • Prompt: ?(K-1*26),$J(^(Z),4,0)," ",$S($D(C(Z)):C(Z),$D(^FH(118,+Z,0)):$P(^(0),"^",1),1:"")
  • Line Location: ING+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ING+3
Function Call: WRITE
  • Prompt: !?10,"W A R D S U P P L E M E N T A L F E E D I N G L I S T",?72,"Page ",PG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"Ward: ",WRDN,?61,DTP
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"ROOM",?13,"PATIENT",?39,"ID# SUPP MENU",?60,"ISOLAT",?69,"REVIEW"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !
  • Line Location: OL2+0
Function Call: WRITE
  • Prompt: !
  • Line Location: OL4+5
Function Call: WRITE
  • Prompt: !,RM,?13,$E(FHPTNM,1,24),?38,FHBID
  • Line Location: OL4+6
Function Call: WRITE
  • Prompt: ?69,$E(LST,4,5),"-",$E(LST,6,7)
  • Line Location: OL4+7
Function Call: WRITE
  • Prompt: "*"
  • Condition for execution: LST<OLD
  • Line Location: OL4+7
Function Call: WRITE
  • Prompt: !,"ALLERGIES: ",$S(ALG="":"NONE ON FILE",1:ALG)
  • Line Location: OL4+8
Function Call: WRITE
  • Prompt: !?8,$P("10AM; 2PM; 8PM",";",K1),?14,N(K1)
  • Line Location: OL4+10
Info |  Source |  Entry Points |  Interaction Calls