Routine: DGPMV1

Information

DGPMV1 ;ALB/MRL/MIR/JAN - PATIENT MOVEMENT, CONT.; 11 APR 89 ; 6/14/01 11:51am

Source file <DGPMV1.m>

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: NEXT+0
Function Call: WRITE	Prompt: !!,"<C>ontinue, <M>ore, or <Q>uit? CONTINUE// " Line Location: NEXT+0
Function Call: WRITE	Prompt: X Line Location: NEXT+0
Function Call: WRITE	Prompt: " ",X Line Location: NEXT+1
Function Call: WRITE	Prompt: !!,"CHOOSE FROM:" Line Location: NEXT+4
Function Call: WRITE	Prompt: !?5,J Line Location: NEXT+4
Function Call: WRITE	Prompt: ! Line Location: NEXT+5
Function Call: WRITE	Prompt: !!,*7,"THIS PATIENT IS A LODGER AND HAS NO ADMISSIONS ON FILE.",!,"YOU MUST CHECK HIM OUT PRIOR TO CONTINUING" Line Location: C+1
Function Call: WRITE	Prompt: !!,*7,"THIS PATIENT IS AN INPATIENT AND HAS NO LODGER MOVEMENTS ON FILE.",!,"YOU MUST DISCHARGE HIM PRIOR TO CONTINUING" Line Location: C+2
Function Call: WRITE	Prompt: ! Line Location: M+0
Function Call: WRITE	Prompt: !?5,"PATIENT IS NOT ACTIVELY ENROLLED IN ANY CLINICS" Line Location: EN+0
Function Call: WRITE	Prompt: ",",!?5 Condition for execution: ($X+$L(X))>70 Line Location: EN+1
Function Call: WRITE	Prompt: ", " Condition for execution: $X>5 Line Location: EN+1
Function Call: WRITE	Prompt: X Line Location: EN+1
Function Call: WRITE	Prompt: !?5,"Patient has no future appointments scheduled" Line Location: AP+0
Function Call: WRITE	Prompt: ",",!?5 Condition for execution: $X+$L(X)>78 Line Location: AP+1
Function Call: WRITE	Prompt: ", " Condition for execution: $X>5 Line Location: AP+1
Function Call: WRITE	Prompt: X Line Location: AP+1