Prompt: !!,".. Searching for patients who have exceeded the maximum # of no-shows allowed ..",!
Line Location: DIS+1
Function Call: WRITE
Prompt: !!,$S($D(^SC(I,0)):$P(^(0),"^",1),1:" "),?35,": ",SDCTR(I)," patient",$S(SDCTR(I)>1:"s ",1:" "),"exceeded max # of NO SHOWS"
Line Location: DIS+3
Function Call: WRITE
Prompt: !!,"No patients discharged ",!!,"The records of the patients who have exceeded the maximum NO SHOW limit",!,"will need to be reviewed for possible discharge from the specified clinics !"
Line Location: DIS+4
Function Call: WRITE
Prompt: !
Line Location: DIS+5
Function Call: WRITE
Prompt: *7,!,"Please note that this patient -- ",$P($P(^DPT(+A,0),U),",",2)," ",$P($P(^(0),U),",",1)," --SSN ",$P(^(0),U,9),!,"has exceeded the maximum # of NO SHOWS",!,"in the following clinic : ",$P(^SC(SDC,0),U,1),!!