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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: FHASN5

Package: Dietetics

Routine: FHASN5


Information

FHASN5 ; HISC/NCA - Print Patient's Nutrition Status History ;12/13/93 12:58

Source Information

Source file <FHASN5.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 4 ^%DT  NOW^%DTC  ^DIC  ^DIR  
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
Dietetics 2 (DTP,EN2,TR)^FH  ^FHDPA  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Dietetics 1 FHASNR3  

Entry Points

Name Comments DBIA/ICR reference
EN2 ; Select Patient to print
A0
A1
D1
D2
P0
Q0
KIL
LP ; Print History list
HD ; Check for end of page
HDR ; Heading for the Nutrition Status History

External References

Name Field # of Occurrence
^%DT D1, D2
NOW^%DTC Q0
^%ZIS P0
^%ZISC P0+2
^DIC EN2+5, A0+2
^DIR HD+1
DTP^FH LP+3, HDR+2
EN2^FH P0+1
TR^FH A0
^FHDPA EN2+1
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: *7,!!?5,"Patient has expired."
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: *7,!!?5,"No status on file for this patient."
  • Line Location: EN2+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: A0+0
Function Call: WRITE
  • Prompt: !!,"Select ADMISSION",$S(WARD'="":" (or C for CURRENT)",1:""),": " R X:DTIME G:'$T!(X["^")
  • Line Location: A0+0
Function Call: WRITE
  • Prompt: !
  • Line Location: D1+0
Function Call: WRITE
  • Prompt: *7," [Must Start before Today!] "
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: *7," [Must not be before Admission!]"
  • Line Location: D1+2
Function Call: WRITE
  • Prompt: *7," [Greater than Today?] "
  • Line Location: D2+1
Function Call: WRITE
  • Prompt: *7," [Must not be before Starting Date!] "
  • Line Location: D2+2
Function Call: WRITE
  • Prompt: *7,!?24," [Must not exceed the length of stay of this admission!] "
  • Line Location: D2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: P0+0
Function Call: WRITE
  • Prompt: *7,!,"No Status on file on this Admission."
  • Line Location: Q0+4
Function Call: WRITE
  • Prompt: !?2,TIT
  • Line Location: LP+2
Function Call: WRITE
  • Prompt: ?35
  • Line Location: LP+3
Function Call: WRITE
  • Prompt: DTP
  • Line Location: LP+3
Function Call: WRITE
  • Prompt: ?55,$E($P($G(^VA(200,+Y,0)),"^",1),1,25)
  • Line Location: LP+4
Function Call: WRITE
  • Prompt: ?17,NAM
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?53,DTP,?72,"Page ",PG,!
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,LN,!?15,"N U T R I T I O N S T A T U S H I S T O R Y",!!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ?2,"Status Level",?35,"Date Entered",?55,"Clinician Who Entered",!
  • Line Location: HDR+5
Routine Call
  • DIC
  • Line Location:
    • EN2+5
    • A0+2
Routine Call
  • DIR
  • Line Location:
    • HD+1
Routine Call
  • %ZIS
  • Line Location:
    • P0

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FHPT - [#115] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.4 - [#405.4] Q0+2
^DGPM - [#405] A1
^DPT - [#2] EN2+2, EN2+6, Q0
^DPT("CN" A0+1
^FH(115.4 - [#115.4] LP+2
^FH(119.6 - [#119.6] Q0+2
^FHPT - [#115] EN2+3, EN2+4, A1, Q0+2, Q0+3
^TMP($J Q0+1!, Q0+3*, Q0+4, Q0+5, KIL!
^VA(200 - [#200] LP+4

Label References

Name Line Occurrences
A0 A0+2
A1 A0+1
D1 EN2+4, A0, D1, D1+1, D1+2, D2+1, D2+2, D2+3
D2 D2
EN2 EN2+2, EN2+3
FHASN5 P0+2
HD LP+1
HDR Q0+3
KIL EN2+1, A0, A0+1, D1, D2, P0, P0+1, Q0+4
LP Q0+5
Q0 P0+2

Naked Globals

Name Field # of Occurrence
^( Q0+3, Q0+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % Q0
>> %DT D1*, D2*
>> %DT("A" D1*, D2*
%ZIS P0*!, P0+2!
%ZIS("B" P0*
>> ADM EN2+1*, A0+1*, A0+2*, A1, Q0+2, HDR+3
>> ADTE EN2+1*, A1*, D1, D1+2
>> ALL EN2+1*
>> ANS Q0+1*, Q0+5, LP+1, HD+1*
>> DA EN2+5*
>> DFN EN2+1, EN2+2, EN2+6, A0+1, Q0
>> DIC EN2+5*, A0+2*
>> DIC(0 EN2+5*, A0+2*
DIR HD+1!
DIR(0 HD+1*
>> DSCH EN2+1*, A1*, D2, D2+3
DT D1+1, D2+1
DTIME A0
>> DTOUT D1, D2
>> DTP LP+3*, HDR+2*
>> EDT D2*, D2+1, D2+2, D2+3, Q0+1*, Q0+3
>> FHDFN EN2+3, EN2+4, EN2+5, A1, Q0+2, Q0+3
>> FHLST P0+1*
>> FHPGM P0+1*
IO P0+2
IO("Q" P0+1
IOF HDR+1
IOP P0!, P0+2!
IOSL LP+1
IOST HD+1, HDR+1
>> LN Q0+1*, HDR+4
>> MV A1*
>> NAM Q0*, HDR+2
>> NOW Q0*, HDR+2
>> PG Q0*, HDR+1*, HDR+2
>> PID HDR+2
>> POP P0
>> RM Q0+1*, Q0+2*, HDR+3
>> SDT D1*, D1+1, D1+2, D2+2, Q0+1*, Q0+3
>> STS LP+2*
>> TIT LP+2*
U D1, D2
>> WARD EN2+1, EN2+6*, A0, A0+1, Q0+2*, HDR+3
>> X EN2+5*, A0*, A0+1, D1*, D2*
>> X2 Q0+3*
>> X4 Q0+3*, Q0+5*, LP+2, LP+3, LP+4
>> X5 EN2+3*, Q0+3*, Q0+5*
>> Y A0+2, D1*, D2*, Q0*, Q0+2*, LP+4*, HD+1
>> Z1 A1*
>> ZZ Q0+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All