Routine: DGOASIH

Information

DGOASIH ;ALB/VAD - LIST OF PATIENTS ON ASIH ;Sep 27 1999

Source file <DGOASIH.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?10,$C(7),"You have entered a future date...to prevent the printing" Line Location: EN3+3
Function Call: WRITE	Prompt: !?10,"of a negative report, remember to task this request for" Line Location: EN3+4
Function Call: WRITE	Prompt: !?10,"the appropriate date." Line Location: EN3+5
Function Call: WRITE	Prompt: !!?8,"* THERE ARE NO PATIENTS OUT ON ASIH FOR "_DGDAY_" *" Line Location: START+5
Function Call: WRITE	Prompt: @IOF,!,DGHD,?35,"PRINTED: ",DGTIME,?72," PAGE: "_DGPG Line Location: HEAD+0
Function Call: WRITE	Prompt: !!,"NAME",?22,"PT ID",?38,"LEFT",?54,"LOCATION" Line Location: HEAD+1
Function Call: WRITE	Prompt: !,DGCL,!!,?10,"DIVISION: ",$S(DGDV="ZUNKNOWN":"UNKNOWN",1:DGDV),! Line Location: HEAD+2
Function Call: WRITE	Prompt: ! Line Location: WR+2
Function Call: WRITE	Prompt: !,$E(DGP,1,20),?22,$P(DGNO,"^"),?38 Line Location: WR1+1
Function Call: WRITE	Prompt: X Line Location: WR1+1
Function Call: WRITE	Prompt: X Line Location: WR1+1
Function Call: WRITE	Prompt: ! Line Location: RT+1
Function Call: READ	Formatting: !?22 Prompt: "Enter <RET> to continue or ^ to Quit" Variable: X Timeout: DTIME Line Location: RT+2