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

Package: Dietetics

Routine: FHORX1A


Information

FHORX1A ; HISC/REL/NCA/RVD - Diet Activity Report (cont) ;3/17/95 10:06

Source Information

Source file <FHORX1A.m>

Entry Points

Name Comments DBIA/ICR reference
LST
LST1
L1 ; Process event
L2
T1 ; Process outpatient event
HDR ;W:'($E(IOST,1,2)'="C-"&'PG) @IOF S PG=PG+1 W !?20,"D I E T A C T I V I T Y R E P O R T",?72,"Page ",PG
NEWP
N1
LNE ; Break line if longer than 58 chars
EX

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$E(W1_" "_R1,1,20),?22,N1,?50,BID,?63,$S(SF:"SF",1:""),?66,$S(SO:"SO",1:""),?73,TC
  • Line Location: L2+6
Function Call: WRITE
  • Prompt: !,"Allergies: ",$S(ALG="":"None on file",1:ALG),!
  • Line Location: L2+7
Function Call: WRITE
  • Prompt: !!,$E(W1,1,20),?22,FHDPTN,?50,BID,?73,FHTC
  • Line Location: T1+27
Function Call: WRITE
  • Prompt: !,"Allergies: ",$S(ALG="":"None on file",1:ALG),!
  • Line Location: T1+27
Function Call: WRITE
  • Prompt: !?20,"D I E T A C T I V I T Y R E P O R T",?72,"Page ",PG
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?20,"D I E T A C T I V I T Y R E P O R T",?72,"Page ",PG
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!?(80-$L(H1)\2),H1
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?30,FHPIO
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"Location",?22,"Patient",?50,"ID#",?62,"Sup/Std Service"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !?12,X1
  • Line Location: N1+1
Function Call: WRITE
  • Prompt: !
  • Line Location: LNE+1
Function Call: WRITE
  • Prompt: !?5,$E(EVT,1,58)
  • Line Location: LNE+4
Function Call: WRITE
  • Prompt: !?5,$E(EVT,1,KK-1)
  • Line Location: LNE+5
Function Call: WRITE
  • Prompt: !?5,EVT
  • Line Location: EX+0
Info |  Source |  Entry Points |  Interaction Calls