;S LRA="" F LR=0:0 D ^LRDPA Q:LRDFN<1 S X=^LRO(69.2,LRAA,7,DUZ,1,0),^(0)=$P(X,U,1,2)_U_LRDFN_U_($P(X,U,4)+1),^(LRDFN,0)=LRDFN_U_$P(Y(0),U,1,3)_"^^^^^^"_$P(Y(0),U,9),^LRO(69.2,LRAA,7,DUZ,1,"C",$P(Y(0),U,1),LRDFN)="" D G
Prompt: !,"You have no patient list. To enter patients answer the following prompt:"
Line Location: LRUMD1+4
Function Call: WRITE
Prompt: !!,"(R)emove a patient",?19,"(A)dd/edit patients",?45,"(T)ransfer list to another user",!,"(D)elete list",?19,"(P)atient group deletion",?45,"(M)erge list with another user",!,"(S)end list to printer",!
Line Location: ASK+0
Function Call: READ
Timeout: DTIME
Line Location: ASK+1
Function Call: WRITE
Prompt: $C(7)
Line Location: ASK+3
Function Call: WRITE
Prompt: !,"Your patient list has been deleted"
Line Location: K+1
Function Call: WRITE
Prompt: !!?3,"Transfer patient list to another user (current user list is saved)"
Line Location: T+0
Function Call: WRITE
Prompt: !,"Transferring"
Line Location: T+4
Function Call: WRITE
Prompt: !,"Transfer completed."
Line Location: T+7
Function Call: WRITE
Prompt: "."
Line Location: H+0
Function Call: WRITE
Prompt: !!?3,"Merge patient list with another user's list"