Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
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>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Dietetics 4 (SITE,TR)^FH  ALG^FHCLN  LIST^FHOMSS1  PATNAME^FHOMUTL  
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$FMTE^XLFDT  
VA Fileman 2 NOW^%DTC  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHOMSP  FHOMSR1  

Entry Points

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

External References

Name Field # of Occurrence
NOW^%DTC PR2+27
^%ZIS DEV+1
^%ZISC DEV+2, DEV+7
^%ZTLOAD DEV+6
^DIR FHOMSP1+5, FHOMSP1+7
SITE^FH PR2+27
TR^FH PR2+5
ALG^FHCLN PR2+3
LIST^FHOMSS1 FHOMSP1+3
PATNAME^FHOMUTL PR2+1
$$FMTE^XLFDT PR2+5, PR2+27

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
Routine Call
  • DIR
  • Line Location:
    • FHOMSP1+5
    • FHOMSP1+7
Routine Call
  • %ZIS
  • Line Location:
    • DEV+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.4 - [#405.4] PR2+13
^DIC(3.1 - [#3.1] PR2+9
^FH(111 - [#111] PR2+14
^FH(119.6 - [#119.6] PR2+11
^FHPT - [#115] PR2+2
^VA(200 - [#200] PR2+7, PR2+8, PR2+9

Label References

Name Line Occurrences
DEV FHOMSP1+9
END FHOMSP1+8, DEV+2, DEV+8
PR2 PRINT+1, PRINT+2
PRINT DEV+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % PR2+27
%ZIS DEV+1!*, DEV+7!
>> A PRINT+2*
>> ALG PR2+3*, PR2+20
DIR FHOMSP1+5!, FHOMSP1+7!
DIR("A" FHOMSP1+5*, FHOMSP1+7*
DIR("B" FHOMSP1+7*
DIR(0 FHOMSP1+5*, FHOMSP1+7*
>> DIRUT FHOMSP1+6, FHOMSP1+8
DT FHOMSP1+3
>> FHA PR2+4*
FHAZR PR2+8*, PR2+21, END+1!
>> FHBID PR2+17
>> FHC PRINT+2*
>> FHCDT PRINT+2*, PR2+1, PR2+2, PR2+5
>> FHCLST FHOMSP1+6*, PRINT+2
>> FHD PR2+2*, PR2+5*, PR2+19, PR2+20, PR2+23
>> FHDFN PR2+1*, PR2+2
FHDIET PR2+14*, PR2+24, END+1!
FHDPT PR2+14*, END+1!
>> FHLIST( PRINT+2
FHLOC PR2+11*, PR2+18, END+1!
FHLPT PR2+11*, END+1!
>> FHM PR2+6*, PR2+10
FHMEAL PR2+10*, PR2+24, END+1!
>> FHNODE PR2+2*, PR2+6, PR2+7, PR2+8, PR2+9, PR2+11, PR2+12, PR2+14
>> FHPTNM PR2+17
>> FHREQPR PRINT+1
>> FHRMBD PR2+12*, PR2+13
>> FHRMBNM PR2+12*, PR2+13*, PR2+19
FHRQR PR2+7*, PR2+20, END+1!
>> FHS FHOMSP1+3*
FHSTAT PR2+6*, PR2+21, PR2+22, PR2+23, END+1!
FHTITL END+1!
>> FHTTL PR2+9*, PR2+22
IO DEV+2
IO("Q" DEV+2
IOF PR2+15
IOP DEV+1!, DEV+7!
>> LNS PR2+4*, PR2+16, PR2+26, PR2+28
>> NUM FHOMSP1+4, FHOMSP1+5, PRINT+2
>> POP DEV+1
>> SITE PR2+27
>> STDT FHOMSP1+3*
U PR2+1, PR2+2, PR2+5, PR2+6, PR2+7, PR2+8, PR2+9, PR2+11, PR2+12, PR2+13
, PR2+14
>> UNLNS PR2+4*, PR2+21, PR2+22, PR2+23
>> X PR2+5*
>> Y FHOMSP1+6, FHOMSP1+8
>> ZTDESC DEV+6*
>> ZTRTN DEV+3*
>> ZTSAVE("FHCDT" DEV+4*
>> ZTSAVE("FHCLST" DEV+5*
>> ZTSAVE("FHDFN" DEV+3*
>> ZTSAVE("FHLIST(" DEV+5*
>> ZTSAVE("FHREQPR" DEV+4*
>> ZTSAVE("FHS" DEV+4*
>> ZTSAVE("NUM" DEV+5*
>> ZTSAVE("STDT" DEV+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All