Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
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>

Entry Points

Name Comments DBIA/ICR reference
P1
P2
F0
HDR
FND
F1
PRT
P0
GET
G1
LST
L1
NOTE
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
Info |  Source |  Entry Points |  Interaction Calls