Routine: DGPMOLD1

Information

DGPMOLD1 ;ALB/MIR - CONTINUATION OF LODGER OUTPUTS (SORT/PRINT) ;23 MAY 90 @12

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$E(K,1,25) Line Location: WRITE+1
Function Call: WRITE	Prompt: ?27,$E(VA("BID"),1,8),?37 Line Location: WRITE+1
Function Call: WRITE	Prompt: ?27,$E(VA("BID"),1,8),?37 Line Location: WRITE+1
Function Call: WRITE	Prompt: ?98,$P(DGX,"^",6) Line Location: WRITE+2
Function Call: WRITE	Prompt: ?93,Y Line Location: WRITE+3
Function Call: WRITE	Prompt: ?115,$J($S(X:X,1:1),3) Line Location: WRITE+3
Function Call: WRITE	Prompt: ?120,$S($P(DGX,"^",4)="":"",$P(DGX,"^",4)="a":"ADMITTED",1:"DISMISSED") Line Location: WRITE+4
Function Call: WRITE	Prompt: !?37,"COMMENTS: ",$P(DGX,"^",6) Line Location: WRITE+4
Function Call: WRITE	Prompt: @IOF,!,"CURRENT LODGERS " Line Location: HEAD+1
Function Call: WRITE	Prompt: "AT OTHER FACILITIES " Condition for execution: DGOF=2 Line Location: HEAD+1
Function Call: WRITE	Prompt: "AS OF ",DGNOW,?122,"PAGE: ",$J(DGPG,3) Line Location: HEAD+1
Function Call: WRITE	Prompt: !!,"PATIENT",?27,"SHORT ID",?37,"CHECKED IN",?59,"BED",?76,"REASON" Line Location: HEAD+3
Function Call: WRITE	Prompt: ?93,"CHECKED OUT",?115,"LOS",?120,"DISPOSITION" Line Location: HEAD+3
Function Call: WRITE	Prompt: ?93,"CHECKED OUT",?115,"LOS",?120,"DISPOSITION" Line Location: HEAD+3
Function Call: WRITE	Prompt: ?98,"COMMENTS" Line Location: HEAD+4
Function Call: WRITE	Prompt: !,Z Line Location: HEAD+4
Function Call: WRITE	Prompt: !!?(62-($L(W)/2)),W Line Location: WARD+1
Function Call: WRITE	Prompt: !!?(60-($L(X)/2)),X Line Location: WARD+2