Routine: DGOPATM

Information

DGOPATM ;GLRISC/REL - Patient Movements ;11/4/89 11:05 ;

Source file <DGOPATM.m>

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: !!?26,DGX,! Line Location: F0+1
Function Call: WRITE	Prompt: !!?26,DGX,! Line Location: F0+2
Function Call: WRITE	Prompt: !!?26,DGX,! Line Location: F0+3
Function Call: WRITE	Prompt: ! Line Location: F0+3
Function Call: WRITE	Prompt: @IOF,!!?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: !!?(80-$L(H1)\2),H1 Line Location: HDR+2
Function Call: WRITE	Prompt: !,$E($P(Y(0),"^",1),1,22),?24,VA("BID") Line Location: P0+4
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+5
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+6
Function Call: WRITE	Prompt: ?48,FW,?65,TW Line Location: P0+7
Function Call: WRITE	Prompt: ! Line Location: RT+0
Function Call: READ	Formatting: ?22 Prompt: "Enter <RET> to continue or '^' to QUIT " Variable: X Timeout: DTIME Line Location: RT+1
Function Call: WRITE	Prompt: !!?26,DGX,! Line Location: RT+2
Function Call: WRITE	Prompt: !!?5,"Name",?24,"PT ID",?35,"Date/Time",?49,"FROM Ward-Bed",?67,"TO Ward-Bed" Line Location: HDR1+0