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

Package: Dietetics

Routine: FHORT5D


Information

FHORT5D ; HISC/REL/NCA/RVD - Tubefeeding Reports (cont) ;5/4/93 10:52

Source Information

Source file <FHORT5D.m>

Entry Points

Name Comments DBIA/ICR reference
CST ; Print Cost Report for Tubefeeding
C2
LAB ; Print Labels
L1
L2
L3
LHDR ; Label Header
HD4 ; Cost Report Header
LL ;
LLB ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Total: ",?71,$J(D2,8,2),!!!,"No. of Patients on TF: ",?33,$J($P(X0,"^",1),6)
  • Line Location: C2+5
Function Call: WRITE
  • Prompt: !,"No. of Patients on TF and Tray: ",?33,$J($P(X0,"^",2),6),!,"No. of Patients on TF and SF: ",?33,$J($P(X0,"^",3),6)
  • Line Location: C2+6
Function Call: WRITE
  • Prompt: !,"No. of Patients on ALL Three: ",?33,$J($P(X0,"^",4),6),!,"Cost/Patient: ",?33
  • Line Location: C2+7
Function Call: WRITE
  • Prompt: $J($S(X:D2/X,1:""),6,2),!
  • Line Location: C2+7
Function Call: WRITE
  • Prompt: !!!!!!!!!!!!!!!!!!
  • Line Location: LAB+5
Function Call: WRITE
  • Prompt: !,Y0,!,Y1,!
  • Line Location: L3+3
Function Call: WRITE
  • Prompt: !!!
  • Condition for execution: LAB=2
  • Line Location: L3+3
Function Call: WRITE
  • Prompt: !,Y0,!,Y1,!
  • Line Location: L3+4
Function Call: WRITE
  • Prompt: !!!
  • Condition for execution: LAB=2
  • Line Location: L3+4
Function Call: WRITE
  • Prompt: !,NAM,?(S2-$L(WARD)),WARD,!,$P(X0,"^",2),?8,$E(DTP,1,9),?(S2-$L(RM)),RM,!
  • Line Location: LHDR+1
Function Call: WRITE
  • Prompt: !,$E(DTP,1,9),?17,"T U B E F E E D I N G C O S T R E P O R T",?73,"Page ",PG
  • Line Location: HD4+2
Function Call: WRITE
  • Prompt: !!?(80-$L(Y)\2),Y
  • Line Location: HD4+3
Function Call: WRITE
  • Prompt: !!,"Product",?30,"# Patient",?41,"Unit",?53,"# Units",?62,"Cost/Unit",?74,"Total",!
  • Line Location: HD4+4
Info |  Source |  Entry Points |  Interaction Calls