Routine: VPRDJ01

Information

VPRDJ01 ;SLC/MKB -- Orders ;6/25/12 16:11

Source file <VPRDJ01.m>

Name	Comments	DBIA/ICR reference
OR1(ID)	; -- order ID >> ^TMP("ORR",$J,ORLIST,VPRN)
ORX(IFN,ORD)	; -- extract order IFN into ORD("attribute")
RESULTS	; -- add ORD("results",n,"uid") list
NTX1(IFN)	; -- extract nursing treatment order IFN into NTX("attribute")
USER(N,ROLE,IEN,DATE)	; -- add signature/verification data
TM(X)	; -- strip seconds off a FM time

FileNo	Call Tags
^OR(100 - [#100]	GET1^DIQ
^MDD(702 - [#702]	FIND^DIC