VPRDJ04A ;SLC/MKB -- Admissions,PTF ;7/25/13
Source file <VPRDJ04A.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADM(ID,DATE) | ; -- admission [from VSIT1]
|
|
| TIU(VISIT,ARR) | ; -- add notes to ARR("document")
|
|
| PROV(ARR,I,IEN,ROLE,PRIM) | ; -- add providers
|
|
| MVT(CA) | ; -- add movements to ADM("movement",i,"attribute")
|
|
| PTFA(ID) | ; -- find ID in ^TMP("VPRPX",$J), fall thru to PX1 if successful
|
|
| PTF1 | ; -- PTF where ID=iens;TYPE
; Expects ^TMP("VPRPX",$J,VPRIDT,ID)=ITM^[DISCHARGE]DATE^SYS |
|
| VISIT(DFN,DATE) | ; -- Return visit# for admission
|
| FileNo | Call Tags |
|---|---|
| ^DGPM - [#405] | EXTERNAL^DILFD |
| ^TIU(8925 - [#8925] | FIND^DIC, GET1^DIQ |
