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

Package: Dietetics

Routine: FHDMP1


Information

FHDMP1 ; HISC/REL/FAI - Patient Data Log (cont) ;10/19/04 14:37

Source Information

Source file <FHDMP1.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Dietetics 2 (HDR,KIL)^FHDMP  ^FHDMP2  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Dietetics 2 FHDMP  FHOMDMP  

Entry Points

Name Comments DBIA/ICR reference
ADMIT ;
DTP ; Printable Date/Time

External References

Name Field # of Occurrence
HDR^FHDMP FHDMP1+4, FHDMP1+5, ADMIT+2
KIL^FHDMP FHDMP1+4, FHDMP1+5, ADMIT+2
^FHDMP2 ADMIT+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,LN,!?20,"~ ~ ~ A D M I S S I O N D A T A ~ ~ ~"
  • Line Location: ADMIT+3
Function Call: WRITE
  • Prompt: !!,"Admitted: "
  • Line Location: ADMIT+4
Function Call: WRITE
  • Prompt: ?50,"Discharged: "
  • Line Location: ADMIT+5
Function Call: WRITE
  • Prompt: !!,"Nutrition Ward: ",$P($G(^FH(119.6,Y,0)),"^",1)
  • Line Location: ADMIT+7
Function Call: WRITE
  • Prompt: ?50,"Room-Bed: "
  • Line Location: ADMIT+7
Function Call: WRITE
  • Prompt: ?50,"Room-Bed: "
  • Line Location: ADMIT+7
Function Call: WRITE
  • Prompt: !!,"Current Diet Order: ",?20,$P(X,"^",2)
  • Line Location: ADMIT+8
Function Call: WRITE
  • Prompt: ?50,"Expires: ",?62
  • Line Location: ADMIT+8
Function Call: WRITE
  • Prompt: !,"Current Service: ",?20,$S(Y="T":"Tray",Y="C":"Cafeteria",Y="D":"Dining Room",1:"")
  • Line Location: ADMIT+9
Function Call: WRITE
  • Prompt: !,"Current Isolation/Precaution: ",?20,$P($G(^FH(119.4,+Y,0)),"^",1)
  • Line Location: ADMIT+10
Function Call: WRITE
  • Prompt: ?50,"Current Tubefeed Order: ",?76,$P(X,"^",4)
  • Line Location: ADMIT+11
Function Call: WRITE
  • Prompt: !,"Last Label Ward: ",?20,$P($G(^FH(119.6,+Y,0)),"^",1)
  • Line Location: ADMIT+12
Function Call: WRITE
  • Prompt: ?50,"Current Supp. Fdg. Order: ",?76,$P(X,"^",7)
  • Line Location: ADMIT+13
Function Call: WRITE
  • Prompt: !,"Last Label Room: ",?20,$P(X,"^",12),!
  • Line Location: ADMIT+14
Function Call: WRITE
  • Prompt: $J(+$E(Y,6,7),2)_"-"_$P("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"," ",+$E(Y,4,5))_"-"_$E(Y,2,3)
  • Line Location: DTP+1
Function Call: WRITE
  • Prompt: $J($S(%>12:%-12,1:%),3)_":"_$E(Y_"000",11,12)_$S(%<12:"am",%<24:"pm",1:"m")
  • Line Location: DTP+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.4 - [#405.4] ADMIT+7
^DGPM - [#405] ADMIT+4, ADMIT+5
^FH(119.4 - [#119.4] ADMIT+10
^FH(119.6 - [#119.6] ADMIT+7, ADMIT+12
^FHPT - [#115] ADMIT+1, ADMIT+6

Label References

Name Line Occurrences
DTP ADMIT+4, ADMIT+5, ADMIT+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DTP+2*, DTP+3!
>> ADM FHDMP1+3, ADMIT+1, ADMIT+4, ADMIT+5, ADMIT+6
>> DFN FHDMP1+2
>> FHDFN ADMIT+1, ADMIT+6
>> IEN200 FHDMP1+2
>> ISO ADMIT+1*
>> LN ADMIT+3
>> QT FHDMP1+4, FHDMP1+5, ADMIT+2
>> S1 FHDMP1+4, FHDMP1+5, ADMIT+2
U ADMIT+1
>> X ADMIT+6*, ADMIT+7, ADMIT+8, ADMIT+9, ADMIT+10, ADMIT+11, ADMIT+12, ADMIT+13, ADMIT+14
>> Y ADMIT+4*, ADMIT+5*, ADMIT+7*, ADMIT+8*, ADMIT+9*, ADMIT+10*, ADMIT+12*, DTP+1, DTP+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All