VistA Analysis » VistA Reference » RPCs » ORWCS LIST OF CONSULT REPORTS

ORWCS LIST OF CONSULT REPORTS

This remote procedure call returns a list on consult reports for aspecific patient.

Properties

Property Value
Label LIST
MUMPS Implementation ORWCS
Return Type GLOBAL ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
DFN LITERAL 20 true Internal entry number of patient in the Patient file [^DPT].

MUMPS Method Description

Property Value
Method LIST^ORWCS
Input Parameters DFN, SERV, BEGDT, ENDDT, STATUS
First Comment 
  RPC: ORWCS LIST OF CONSULT REPORTS
  See RPC definition for details on input and output parameters
Code 
 N ORI,ORX,ID,DATE,STAT,PROC,LN
 IF '$D(SERV) N SERV S SERV=""
 IF '$D(BEGDT) N BEG S BEGDT=""
 IF '$D(ENDDT) N END S ENDDT=""
 IF '$D(STATUS) N STATUS S STATUS=""
 S LN=0
 S ORY=$NA(^TMP("ORCS",$J)) K @ORY
 D OER^GMRCSLM1(DFN,SERV,BEGDT,ENDDT,STATUS)
 S ORI=0 F  S ORI=$O(^TMP("GMRCR",$J,"CS",ORI)) Q:'ORI  S ORX=$G(^(ORI,0)) D
 . S ID=$P(ORX,U)
 . S DATE=$P(ORX,U,2)
 . S STAT=$P(ORX,U,3)
 . S PROC=$P(ORX,U,5)
 . IF PROC="Consult" S PROC=$$UP^XLFSTR($P(ORX,U,4)_" "_PROC)
 . S LN=LN+1
 . S @ORY@(LN,0)=ID_U_DATE_U_PROC_U_STAT

CPRS

File Type Description
Pascal File rReports.pas


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