VistA Analysis » VistA Reference » RPCs » ORWDXR01 ISSPLY

ORWDXR01 ISSPLY

Properties

Property Value
Label ISSPLY
MUMPS Implementation ORWDXR01
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method ISSPLY^ORWDXR01
Input Parameters DLGID, QODLG
First Comment 
 ORY=1: is "PSO SUPPLY" dialog
Code 
 S ORY=""
 Q:'$D(^ORD(101.41,DLGID,0))
 I 'QODLG,($P(^ORD(101.41,DLGID,0),U)="PSO SUPPLY") S ORY=1
 I QODLG D
 . N SPLYDG S SPLYDG=$O(^ORD(100.98,"B","SPLY",0))
 . I $P(^ORD(101.41,DLGID,0),U,5)=SPLYDG S ORY=1

CPRS

File Type Description
Pascal File Orders/rOrders.pas


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