Code |
N X,TIUDA,TIUDFN,ORTAB,TIUDAD,GMRCO S TIUDA=$TR($P(XQAID,";",1),"ABCDEFGHIJKLMNOPQRSTUVWXYZ") ; Strip Text I '+TIUDA!('$D(^TIU(8925,+TIUDA,0))) S TIUY="-1" Q S X=$P($G(^TIU(8925,TIUDA,0)),U) S TIUDFN=$P(^TIU(8925,TIUDA,0),U,2) I $P(^TIU(8925,TIUDA,0),U,6)'="" D . S TIUDAD=$P(^TIU(8925,TIUDA,0),U,6) . S X=$P($G(^TIU(8925,TIUDAD,0)),U) I ('+X)!('+TIUDFN) S TIUY="-1" Q S ORTAB=903 ;DEFAULT TO PN I +$$ISDS^TIULX(X) S ORTAB=901 I +$$ISA^TIULX(X,$$CLASS^TIUSROI("SURGICAL REPORTS")) S ORTAB=904 I +$$ISA^TIULX(X,$$CLASS^TIUCNSLT)!(+$$ISA^TIULX(X,+$$CLASS^TIUCP)) D . S GMRCO=$P(^TIU(8925,$S(+$G(TIUDAD):TIUDAD,1:TIUDA),14),U,5) . S ORTAB=902_";"_GMRCO S TIUY=TIUDA_U_TIUDFN_U_ORTAB
|