Routine: DGA4001

Information

DGA4001 ;ALB/MRL - LIST PENDING OR OPEN DISPOSITIONS ;01 JAN 1988@2300

Source file <DGA4001.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"===> Checking for Pending/Open Dispositions..." Line Location: DGA4001+2
Function Call: WRITE	Prompt: !! Line Location: Q+0
Function Call: WRITE	Prompt: DGL1,!! Condition for execution: DGO!(DGP) Line Location: Q+0
Function Call: WRITE	Prompt: !,DGL1 Line Location: WR+0
Function Call: WRITE	Prompt: !,$E($P(DGAP,",",1)_","_$E(DGAP,$F(DGAP,",")),1,20),?22,$P(X,"^",1) Line Location: WR+1
Function Call: WRITE	Prompt: ?29,X1,?50,$P(X,"^",2),?72,$P(X,"^",3) Line Location: WR+3
Function Call: WRITE	Prompt: @IOF,!,DGH,!,"DIVISION: ",$P(DGDV,"^",2) Line Location: HD+0
Function Call: WRITE	Prompt: ?(78-$L(X1)),X1,!!,"Patient Name",?22,"PT ID",?29,"Reg. Date/Time",?50,"Application Type",?72,"Status",!,DGL,! Line Location: HD+0
Function Call: WRITE	Prompt: !?4,*7,"MUST BE AFTER START DATE!" Line Location: EN1+0
Function Call: WRITE	Prompt: !!,"'",+DGP,"' Pending Dispositions on file...",!,"'",+DGO,"' Open Dispositions on file..." Line Location: MES+0
Function Call: WRITE	Prompt: !!,"I can't let you generate this report with ""open"" dispositions remaining!",!,"Clear them up and try again later please.",! Line Location: MES+1