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 |