Routine: DGRUGBGJ

Information

DGRUGBGJ ;ALB/BOK/MLI - RUG-II BACK GROUND TRIGGER ; 07 MAR 87

Name	Line Occurrences
Function Call: WRITE	Prompt: F Line Location: PRT+0
Function Call: WRITE	Prompt: Q:W="" Line Location: PRT+0
Function Call: WRITE	Prompt: !,$E($P(DGI,U),1,25),?27,$P(DGI,U,2),?55 Line Location: PRT+0
Function Call: WRITE	Prompt: ! Line Location: PRT+1
Function Call: WRITE	Prompt: @IOF Line Location: QUIT+0
Function Call: WRITE	Prompt: @IOF,!,$P(^DIC(42,+W,0),U),?60,"DATE: " Line Location: HEAD+0
Function Call: WRITE	Prompt: !!,"PATIENT ASSESSMENT INSTRUMENTS HAVE BEEN CREATED FOR THE FOLLOWING PATIENTS ",!?25,"DUE TO ADMISSION/TRANSFER IN",!!,?5,"NAME",?31,"SSN",?46,"DATE OF ADMISSION/TRANSFER IN" Line Location: HEAD+1
Function Call: WRITE	Prompt: !,"There was an attempt to set up a PAI record on ",$P(^DPT(DFN,0),U)," ",$P(^(0),U,9),!,"Please verify that this patient's data is accurate and create a PAI record." Line Location: BUL+0

FileNo	Call Tags
^DG(45.9 - [#45.9]	Classic Fileman Calls