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

Package: Dietetics

Routine: FHOMSS2


Information

FHOMSS2 ;Hines OIFO/RTK SPECIAL MEALS STATUS LIST ;2/07/06 10:05

Source Information

Source file <FHOMSS2.m>

Entry Points

Name Comments DBIA/ICR reference
START
DEV ;get device and set up queue
LIST ; First build data in ^TMP global
PG ;
HDR ;
END ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!?20,"S P E C I A L M E A L S S T A T U S L I S T"
  • Line Location: FHOMSS2+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: START+1
Function Call: WRITE
  • Prompt: !
  • Line Location: START+4
Function Call: WRITE
  • Prompt: !
  • Line Location: START+13
Function Call: WRITE
  • Prompt: !
  • Line Location: START+14
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!,"NO SPECIAL MEALS TO PRINT FOR GIVEN DATE RANGE"
  • Line Location: LIST+17
Function Call: WRITE
  • Prompt: !,$E(FHPTNM,1,20)
  • Line Location: LIST+26
Function Call: WRITE
  • Prompt: ?22,$E(FHD,1,12)
  • Line Location: LIST+28
Function Call: WRITE
  • Prompt: ?69,FHMEAL,?73,FHSTAT
  • Line Location: LIST+35
Function Call: WRITE
  • Prompt: !?6,"Denied by: "
  • Line Location: LIST+37
Function Call: WRITE
  • Prompt: $P($G(^VA(200,FHDENY,0)),U,1)
  • Line Location: LIST+38
Function Call: WRITE
  • Prompt: !?6,"Comment: ",FHCMNT
  • Line Location: LIST+39
Function Call: WRITE
  • Prompt: !?5,"S P E C I A L M E A L S S T A T U S R E P O R T"
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!?5,"LOCATION: ",$P(FHLSRT,"~",2)
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!!,"Patient Name",?22,"Date",?36,"Room-Bed"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?52,"Diet Ordered",?68,"Meal",?73,"Status"
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"====================",?22,"============",?36,"=============="
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ?52,"===============",?68,"====",?73,"======="
  • Line Location: HDR+7
Info |  Source |  Entry Points |  Interaction Calls