ORQPT PATIENT SELECTION (2281)    PROTOCOL (101)

View in ViViaN Menu
Name Value
NAME ORQPT PATIENT SELECTION
ITEM TEXT Patient Selection
ITEM
ENTRY ACTION S XQORM(0)=$TR(XQORM(0),"\")
SCREEN I 1 X:$D(^ORD(101,+$P(^ORD(101,DA(1),10,DA,0),U),24)) ^(24)
HEADER S XQORM("#")=$G(^TMP("OR",$J,"PATIENTS","#")),XQORM("ALT")="D ALT^ORQPT",VALMSG=$$MSG^ORQPT D SHOW^VALM S XQORM("B")=$$DEFAULT^ORQPT
MENU PROMPT Select Patient:
TYPE menu
COLUMN WIDTH 26
MNEMONIC WIDTH 4
CREATOR USER,ONE
TIMESTAMP 2023-12-15 13:20:47