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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: FHMTKO

Package: Dietetics

Routine: FHMTKO


Information

FHMTKO ; HISC/NCA/FAI - List Outpats Without Diet Patterns/Ind Pattern ;02/24/04 11:00

Source Information

Source file <FHMTKO.m>

Call Graph

Call Graph Total: 7

Package Total Call Graph
Dietetics 3 (DTP,EN2)^FH  PATNAME^FHOMUTL  CUR^FHORD7  
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
VA Fileman 1 NOW^%DTC  

Entry Points

Name Comments DBIA/ICR reference
PAUSE ; Check to pause for reading
HDR ; Print No Diet Pattern Heading
HDR1 ; Print Previous Diet Pattern Heading
LIS
GET ; Get Previous Diet Order
L1 ; Process Listing Outpatients Without Diet Patterns & Inpatients
; With Individual Pattern
KIL
CUR

External References

Name Field # of Occurrence
NOW^%DTC L1+2
^%ZIS LIS+1
^%ZISC LIS+3
DTP^FH L1+2, L1+30, L1+31
EN2^FH LIS+2
PATNAME^FHOMUTL L1+9, L1+22
CUR^FHORD7 L1+14
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The list requires a 132 column printer.",!
  • Line Location: LIS+0
Function Call: WRITE
  • Prompt: !
  • Line Location: LIS+1
Function Call: WRITE
  • Prompt: ?52,"Current: ",Y,!
  • Line Location: L1+30
Function Call: WRITE
  • Prompt: ?52,"Prev. Pattern: ",$P(ZZ,"^",1),!
  • Line Location: L1+31
Function Call: WRITE
  • Prompt: !,FHDTP,?33,"I N P A T I E N T S W I T H N O D I E T P A T T E R N S",?123,"Page ",PG
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"Ward/Room",?34,"Patient",?66,"Current-Diet",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,FHDTP,?27,"I N P A T I E N T S T H A T H A D I N D I V I D U A L P A T T E R N S",?123,"Page ",PG
  • Line Location: HDR1+2
Function Call: WRITE
  • Prompt: !!,"Patient",?32,"Effective",?52,"Diet"
  • Line Location: HDR1+3
Function Call: READ
  • Prompt: "Press RETURN to continue. "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: PAUSE+1
Function Call: WRITE
  • Prompt: !,"Enter a RETURN to Continue."
  • Line Location: PAUSE+1
Routine Call
  • %ZIS
  • Line Location:
    • LIS+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(115.02 CUR+1
^DPT - [#2] L1+10, L1+25, L1+29
^FH(111 - [#111] CUR+2
^FH(111.1 - [#111.1] L1+16
^FH(119.6 - [#119.6] L1+4, L1+5, L1+11, L1+12
^FHPT - [#115] L1+15, L1+18, GET+1, GET+4, GET+6, GET+8, GET+9
^FHPT("AW" L1+8, L1+10
^TMP($J L1+3!, L1+6*, L1+7, L1+17*, L1+21, L1+26, GET+1!*, GET+2, GET+10*, GET+11*
, KIL!

Label References

Name Line Occurrences
CUR GET+8
GET L1+18
HDR L1+21, L1+24
HDR1 L1+26, L1+28
KIL LIS+1, LIS+2, LIS+3
L1 LIS+3
PAUSE HDR+1, HDR1+1, PAUSE+1

Naked Globals

Name Field # of Occurrence
^( L1+7, L1+21, L1+26, GET+1, GET+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % L1+2, CUR+1*
%ZIS LIS+1!*, LIS+3!
%ZIS("A" LIS+1*
>> A1 CUR+2*
>> ADM L1+10*, L1+15, L1+17, L1+18, L1+21*, L1+26*, GET+1, GET+4, GET+6, GET+8
, GET+9, GET+10
>> ANS L1+3*, L1+21, L1+24, L1+26, L1+28, HDR+1, HDR1+1, PAUSE+1*
>> D3 CUR+2*
>> DFN L1+9, L1+10, L1+22, L1+25, L1+29
>> DPAT L1+16*, L1+17
DTIME PAUSE+1
>> DTP L1+2*, L1+30*, L1+31*
>> FHDFN L1+8*, L1+10, L1+15, L1+17, L1+18, L1+21*, L1+26*, GET+1, GET+4, GET+6
, GET+8, GET+9, GET+10, GET+11
>> FHDTP L1+2*, HDR+2, HDR1+2
>> FHDU CUR+1*
>> FHLD CUR*, CUR+1
>> FHLST LIS+2*
>> FHOR L1+14, L1+16, CUR*, CUR+2
>> FHORD L1+15, L1+18
>> FHPGM LIS+2*
IO LIS+3
IO("Q" LIS+2
IOF HDR+1, HDR1+1
IOP LIS+1!, LIS+3!
IOSL L1+24, L1+28
IOST HDR+1, HDR1+1, PAUSE+1
>> K0 GET+1*, GET+2*
>> K2 GET+1*, GET+2*, GET+3
>> NX L1+7*, L1+17, GET+10, GET+11
>> O1 L1+14*, L1+17, GET+10
>> P0 L1+5*, L1+6
>> PG L1+21*, L1+26*, HDR+1, HDR+2*, HDR1+1*, HDR1+2, PAUSE+1
>> POP LIS+1
>> R0 L1+12*, L1+13*, L1+17, GET+10, GET+11
>> RE L1+11*, L1+12
>> RI L1+10*, L1+11
>> RM L1+10*, L1+17, L1+23*, L1+25, L1+27*, L1+29, GET+10, GET+11
>> SK GET+1*
>> TIM L1+18*, GET+1, GET+10
>> W1 L1+4*, L1+5, L1+6, L1+7*, L1+8, L1+10, L1+11, L1+12
>> WRDN L1+5*, L1+6, L1+23*, L1+25, L1+27*, L1+29
>> X PAUSE+1*
>> X1 L1+7*
>> X5 GET+3*, GET+4, GET+6, GET+8, GET+9
>> X6 GET+4*, GET+5, CUR
>> X7 GET+2*, GET+6*, GET+7
>> X8 GET+8*, GET+9*, GET+11
>> X9 L1+21*, L1+23, L1+26*, L1+27
>> XX L1+26*, L1+30
>> Y L1+14, L1+21*, L1+25, L1+26*, L1+30, GET+11, CUR*, CUR+1*, CUR+2*
>> ZZ L1+26*, L1+31
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All