VistA Analysis » VistA Reference » RPCs » ORWDX LOADRSP

ORWDX LOADRSP

Properties

Property Value
Label LOADRSP
MUMPS Implementation ORWDX
Return Type ARRAY

Input Parameters

Name Type Maximum Data Length Required Description
RSPID LITERAL      
TRANS LITERAL      

MUMPS Method Description

Property Value
Method LOADRSP^ORWDX
Method Comment Load responses from 101.41 or 100
Input Parameters RSPID, TRANS
First Comment 
 RSPID:  C123456;1-3243 = cached copy,   134-3234 = cached quick
         X123456;1      = change order,  134      = quick dialog
Code 
 N I,J,DLG,INST,ID,VAL,ILST,ROOT,ORLOC S ROOT=""
 K ^TMP($J,"ORWDX LOADRSP","QO SAVE")
 I +RSPID=$P(RSPID,"-",1) D
 .S ^TMP($J,"ORWDX LOADRSP","QO SAVE")=+RSPID
 I RSPID["-" S ROOT="^TMP(""ORWDXMQ"",$J,"""_RSPID_""")" G XROOT^ORWDX2
 I $E(RSPID)="X" S ROOT="^OR(100,"_+$P(RSPID,"X",2)_",4.5)"  G XROOT^ORWDX2
 I +RSPID=RSPID  S ROOT="^ORD(101.41,"_+RSPID_",6)" G XROOT^ORWDX2
 Q:ROOT=""
 G XROOT^ORWDX2

CPRS

File Type Description
Pascal File Orders/rODBase.pas


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