VistA Analysis » VistA Reference » RPCs » ORECS01 VSITID

ORECS01 VSITID

Properties

Property Value
Label VSITID
MUMPS Implementation ORECS01
Return Type SINGLE VALUE

MUMPS Method Description

Property Value
Method VSITID^ORECS01
Method Comment Return Visit IEN ptr to #9000010
Input Parameters VSTSTR
First Comment 
VSTSTR=HospLoc;DateTime;Category;PtIEN
Code 
 N DTREF,PTID
 S ORY=0
 S DTREF=9999999-$P($P(VSTSTR,";",2),".")_"."_$P($P(VSTSTR,";",2),".",2)
 S PTID=+$P(VSTSTR,";",4)
 S:$D(^AUPNVSIT("AA",PTID,DTREF)) ORY=$O(^(DTREF,0))

CPRS

File Type Description
Pascal File rECS.pas


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