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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: FHPATM

Package: Dietetics

Routine: FHPATM


Information

FHPATM ; HISC/REL/JH - Patient Movements ;4/2/98 14:53

Source Information

Source file <FHPATM.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Kernel 3 ^%ZIS  ^%ZISC  KILL^XUSCLEAN  
Dietetics 2 (DTP,EN2)^FH  PID^FHDPA  
VA FileMan 2 ^%DT  (C,NOW)^%DTC  
Registration 1 DIVISION^VAUTOMA  

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

Package Total Caller Graph
Dietetics 2 FHPATM  ^FH(117.0243  

Entry Points

Name Comments DBIA/ICR reference
P1
P2
F0
HDR
FND
F1
PRT
P0
GET
G1
LST
L1
NOTE
KIL

External References

Name Field # of Occurrence
^%DT P1
C^%DTC P1+2
NOW^%DTC HDR+5
^%ZIS P2
^%ZISC P2+2
DTP^FH HDR, HDR+5
EN2^FH P2+1
PID^FHDPA P0
DIVISION^VAUTOMA P1+3
KILL^XUSCLEAN KIL

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: " [ Date cannot be in Future ]"
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: " [ DATE MORE THAN 5 DAYS IN PAST ]"
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: !!?5,"Name",?24,"ID#",?35,"Date/Time",?49,"FROM Ward-Bed",?65,"TO Ward-Bed"
  • Line Location: F0+0
Function Call: WRITE
  • Prompt: !!?26,"--- A D M I S S I O N S ---",!
  • Line Location: F0+1
Function Call: WRITE
  • Prompt: !!?26,"--- D I S C H A R G E S ---",!
  • Line Location: F0+2
Function Call: WRITE
  • Prompt: !!?27,"--- T R A N S F E R S ---",!
  • Line Location: F0+3
Function Call: WRITE
  • Prompt: !
  • Line Location: F0+3
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $E(IOST,1,2)="C-"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !?23,"P A T I E N T M O V E M E N T S"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,"Division: "
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "ALL"
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: VAUTD(N)
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: ", "
  • Condition for execution: $O(VAUTD(N))>0
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !!?(80-$L(H1)\2),H1
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,$E($P(Y(0),"^",1),1,21),?23,BID
  • Line Location: P0+3
Function Call: WRITE
  • Prompt: ?32,$J(+$E(NX,6,7),2),"-",$P("Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec"," ",+$E(NX,4,5))
  • Line Location: P0+4
Function Call: WRITE
  • Prompt: $J($S(I2>12:I2-12,1:I2),3),":",$E(NX_"000",11,12),$S(I2>11:"pm",1:"am")
  • Line Location: P0+5
Function Call: WRITE
  • Prompt: ?48,FW,?65,TW
  • Line Location: P0+6
Function Call: WRITE
  • Prompt: ?79,NOWRD
  • Condition for execution: NOWRD="*"
  • Line Location: P0+6
Function Call: WRITE
  • Prompt: !!,"* Denotes that there is no associated Ward in the Dietetic Ward File!"
  • Line Location: NOTE+0
Routine Call
  • %ZIS
  • Line Location:
    • P2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(405.4 - [#405.4] G1+4
^DGPM - [#405] F1, F1+1, LST+1
^DGPM("APID" LST+1
^DIC(42 - [#42] G1, G1+3
^DPT - [#2] P0
^FH(119.6 - [#119.6] GET+1, G1+1, G1+2

Label References

Name Line Occurrences
F0 P2+2
F1 F1+2
FND F0+1, F0+2, F0+3
G1 GET, GET+1
GET P0+2
HDR FHPATM+15, F0
KIL P1, P2, P2+1, P2+2
L1 LST+1
LST GET, GET+5
NOTE P2+2
P0 PRT
P1 P1+1, P1+2
PRT F1+1

Naked Globals

Name Field # of Occurrence
^(0 P0

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % HDR+5
>> %DT P1*
>> %DT("A" P1*
%ZIS P2*!, P2+2!
%ZIS("A" P2*
>> ADM PRT*
>> BID P0+3
>> DA F1+1*, LST+1
>> DAT FHPATM+15*, P1*, P1+1, P1+2, HDR, FND
>> DFN PRT*, P0, LST+1
DT P1+2, HDR+5*
>> DTP HDR*, HDR+5*
>> FH7R P0+2*, G1*
>> FHLST P2+1*
>> FHPGM P2+1*
>> FR GET*, GET+2*, GET+4*, G1+4*, G1+5, LST+1*, L1*
>> FW P0+6, GET*, GET+2*, GET+4*, G1, G1+1*, G1+5*, LST+1*, L1*
>> H1 HDR*, HDR+5*
>> I2 P0+5*
IO P2+2
IO("Q" P2+1
IOF HDR+1
IOP P2!, P2+2!
IOST HDR+1
N HDR+4~*
>> NOD F0+1*, F0+2*, F0+3*, F1, F1+1, P0, P0+1, P0+2, GET, GET+1
>> NOW P1+1, HDR+5*, F1
>> NOWRD F1+1*, P0+6, GET+1*, G1+3*
>> NX FND*, F1*, F1+1, P0+4, P0+5, LST
>> POP P2
>> SW G1+1*, G1+3
>> T0 LST+1*
>> TR GET*, GET+1*, GET+2, GET+3*, G1+4*, G1+5
>> TRN LST*, LST+1*
>> TW P0+2, P0+6, GET*, GET+1*, GET+2, GET+3*, G1, G1+1*, G1+2*, G1+3*
, G1+5*
U G1+1, G1+2, G1+3
>> VAUTD HDR+2, HDR+3, P0+2
>> VAUTD( HDR+4, P0+2
>> X P1+2, LST+1*, L1
>> X1 P1+2*, F1+1*, PRT, GET+1
>> X2 P1+2*
>> XT PRT*, P0, P0+1, GET+3, GET+4, GET+5
>> Y P1
>> Y(0 P0*, P0+3
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All