HMPDJ04A ;ASMR/MKB - Admissions,PTF;Nov 12, 2015 16:42:22
Source file <HMPDJ04A.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(HMPLID) | ; -- find ID in ^PXRMINDX(45) and call PTF1 if successful
|
|
| PTF1 | ; Set PTF data into PTF array
|
|
| VISIT(DFN,DATE) | ; -- Return visit# for admission
|
| FileNo | Call Tags |
|---|---|
| ^DPT - [#2] | GET1^DIQ |
| ^VA(200 - [#200] | GET1^DIQ |
| ^DGPM - [#405] | EXTERNAL^DILFD |
| ^DIC(42 - [#42] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
| ^DGPT - [#45] | GET1^DIQ |
| ^TIU(8925 - [#8925] | FIND^DIC, GET1^DIQ |
