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

Package: Dietetics

Routine: FHOMSP1


Information

FHOMSP1 ;Hines OIFO/RTK SPECIAL MEALS PRINT MEAL ;4/11/03 8:05

Source Information

Source file <FHOMSP1.m>

Entry Points

Name Comments DBIA/ICR reference
DEV ;get device and set up queue
PRINT ;
PR2 ;
END ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: FHOMSP1+3
Function Call: WRITE
  • Prompt: !,"NO AUTHORIZED OR PENDING SPECIAL MEALS TO PRINT"
  • Line Location: FHOMSP1+4
Function Call: WRITE
  • Prompt: !
  • Line Location: FHOMSP1+7
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+1
Function Call: WRITE
  • Prompt: !!!!,LNS,!?4," A U T H O R I Z E D O U T P A T I E N T M E A L V O U C H E R",!,LNS
  • Line Location: PR2+16
Function Call: WRITE
  • Prompt: !!!,"Name of Pt: ",$E(FHPTNM,1,20)," (",$E(FHPTNM,1,1),FHBID,")"
  • Line Location: PR2+17
Function Call: WRITE
  • Prompt: ?44,"Req Loc : ",$E(FHLOC,1,24)
  • Line Location: PR2+18
Function Call: WRITE
  • Prompt: !,"Start Date: ",FHD,?44,"Room-Bed : ",FHRMBNM
  • Line Location: PR2+19
Function Call: WRITE
  • Prompt: !,"Stop Date : ",FHD,?44,"Requestor: ",$E(FHRQR,1,24),!,ALG
  • Line Location: PR2+20
Function Call: WRITE
  • Prompt: !!?44,"Signature: ",$S(FHSTAT="A":"/es/"_FHAZR,1:$E(UNLNS,1,23))
  • Line Location: PR2+21
Function Call: WRITE
  • Prompt: !!?44," Title: ",$S(FHSTAT="A":FHTTL,1:$E(UNLNS,1,23))
  • Line Location: PR2+22
Function Call: WRITE
  • Prompt: !!?44," Date: ",$S(FHSTAT="A":FHD,1:$E(UNLNS,1,23))
  • Line Location: PR2+23
Function Call: WRITE
  • Prompt: !!!!,"Pt Authorized a: ",FHDIET," Meal for ",FHMEAL," meal time"
  • Line Location: PR2+24
Function Call: WRITE
  • Prompt: !!!!!!!!!!!!,"ALTERING OR COPYING THIS MEAL VOUCHER IS PROHIBITED."
  • Line Location: PR2+25
Function Call: WRITE
  • Prompt: !!!!!!!!!!!!!!!!!!,LNS,!,"In lieu of VA FORM 10-2817",!
  • Line Location: PR2+26
Function Call: WRITE
  • Prompt: !,"Facility: "
  • Line Location: PR2+27
Function Call: WRITE
  • Prompt: SITE
  • Line Location: PR2+27
Function Call: WRITE
  • Prompt: SITE
  • Line Location: PR2+27
Function Call: WRITE
  • Prompt: !,LNS
  • Line Location: PR2+28
Info |  Source |  Entry Points |  Interaction Calls