VistA Analysis » VistA Reference » RPCs » ORWDPS1 DOWSCH

ORWDPS1 DOWSCH

This RPC returns a list of schedule that have a frequency defined and the frequency is less then or equal to 1440 minutes

Properties

Property Value
Label DOWSCH
MUMPS Implementation ORWDPS1
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
DFN LITERAL   true  
LOCIEN LITERAL   true This is the Location IEN from file 44

MUMPS Method Description

Property Value
Method DOWSCH^ORWDPS1
Method Comment return all schedules
Input Parameters DFN, LOCIEN
Code 
 N CNT,FREQ,ILST,ORARRAY,WIEN
 S WIEN=$$WARDIEN^ORWDPS32(+$G(LOCIEN))
 D SCHED^PSS51P1(WIEN,.ORARRAY)
 S ILST=0
 S CNT=0 F  S CNT=$O(ORARRAY(CNT)) Q:CNT'>0  D
 .S NODE=$G(ORARRAY(CNT))
 .I $P(NODE,U,4)="C" D
 ..K ^TMP($J,"ORWDPS1 DOWSCH")
 ..D ZERO^PSS51P1($P(NODE,U),,,,"ORWDPS1 DOWSCH")
 ..S FREQ=$G(^TMP($J,"ORWDPS1 DOWSCH",$P(NODE,U),2))
 ..K ^TMP($J,"ORWDPS1 DOWSCH")
 ..I +FREQ=0 Q
 ..I +FREQ>1440 Q
 ..S ILST=ILST+1,LST(ILST)=$P(ORARRAY(CNT),U,2,5)

CPRS

File Type Description
Pascal File Orders/rODMeds.pas


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