VistA Analysis » VistA Reference » RPCs » ORWSR LIST

ORWSR LIST

Return list of surgery cases for a patient.

Properties

Property Value
Label LIST
MUMPS Implementation ORWSR
Return Type GLOBAL ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
patient id LITERAL 32 true  
BEGIN DATE LITERAL 16 true  
END DATE LITERAL 16 true  
CONTEXT LITERAL 8 true Not yet implemented. Reserved for future use.
MAX LITERAL 8 true  

MUMPS Method Description

Property Value
Method LIST^ORWSR
Method Comment RETURN LIST OF SURGERY CASES FOR A PATIENT
Input Parameters ORDFN, ORBDT, OREDT, ORCTXT, ORMAX, ORFHIE
Code 
 Q:'$$PATCH^XPDUTL("SR*3.0*100")
 N I,J,X,SHOWADD,SHOWDOCS
 S ORY=$NA(^TMP("ORLIST",$J))
 Q:'+ORDFN
 S:'$G(ORCTXT) ORCTXT=1
 S:'$G(ORBDT) ORBDT=""
 S:'$G(OREDT) OREDT=""
 S:'$G(ORMAX) ORMAX=""
 S (SHOWDOCS,SHOWADD)=1
 D LIST^SROESTV(.ORY,ORDFN,ORBDT,OREDT,ORMAX,SHOWDOCS)
 S I=0
 F  S I=$O(@ORY@(I)) Q:+I=0  D
 . S X=@ORY@(I),J=0
 . S $P(X,U,6)=$$NON^SROESTV(+X)
 . S $P(X,U,14)=ORCTXT
 . S $P(X,U,13)=$P(X,U,5),$P(X,U,5)=""
 . S @ORY@(I)=X
 . F  S J=$O(@ORY@(I,J)) Q:+J=0  D
 . . S X=@ORY@(I,J)
 . . S:(($P(X,U,14)=ORCTXT)!($P(X,U,14)="")) $P(X,U,14)=+$P(X,U,10)
 . . S @ORY@(I,J)=X

CPRS

File Type Description
Pascal File rSurgery.pas


Document generated on August 31st 2022, 2:55:43 pm