MAGGTIA1 ;WOIFO/GEK/SG/NST - RPC Call to Add Image File entry ; Dec 05, 2018@1:42pm
Source file <MAGGTIA1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ADD | ;Now call Fileman to file the data
|
|
| C1 | ; we jump here if we already had a Filename sent
|
|
| CLEAN | ;
|
|
| RTRNERR(ETXT) | ; There was error from UPDATE^DIE quit with error text
|
|
| ERR | ; Error trap
|
|
| MAKENAME() | ; MAGGFDA exists so get info from that.
; We'll make NAME (.01) with PATIENT NAME SSN ; DOCUMENT Imaging was making name of ; $E(PATENT NAME,1,10)' '$E(DESC CATEG,1,9)' 'MM/DD/YY (DOC DATE) |
| FileNo | Call Tags |
|---|---|
| ^MAG(2005 - [#2005] | Classic Fileman Calls |
