MAGGSIU1 ;WOIFO/GEK/NST - Utilities for Image Add/Modify ; 04 Mar 2010 4:04 PM
Source file <MAGGSIU1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| MAKENAME(MAGGFDA) | ; get info from the MAGGFDA array
; For all Images the Name (.01) is first 18 characters of patient name ; concatenated with SSN. ; If No patient name is sent, well make the name from the short desc. ; We were making name of : ; $E(PATENT NAME,1,10)' '$E(DESC CATEG,1,9)' 'MM/DD/YY (DOC DATE) |
|
| MAKECLAS | ; Patch 8: This call will attempt to compute an Image CLASS ^ (#41) CLASS [2P]
; from the TYPE Field (#42) TYPE [3P] ; Call assumes the FM FDA Array MAGGFDA exists. |
|
| MAKEPKG | ;Patch 8 This call will attempt to compute the field (#40) PACKAGE INDEX [1S] from Patent Data File.
; Call assumes the FM FDA Array MAGGFDA exists. |
|
| MAKEPROC | ; Patch 8: This call will attempt to compute PROCEDURE field ^ (#6) PROCEDURE [8F]
; from Fields: (#41) CLASS [2P] or PACKAGE field (#40) PACKAGE [1S] ; Call assumes the FM FDA Array MAGGFDA exists. ; We are here because TYPE INDEX, CLASS INDEX and PACKAGE INDEX exist but PROCEDURE doesn't ; Calling RTN expects MAGERR to exist if error. ; |
|
| MAKEORIG | ; Patch 8: This call will default the Origin field #45 to "VA"
; We are here because TYPE exists in the Array but Origin doesn't |
|
| KILLENT(MAGGDA) | ; Delete the entry just created, because of Post processing Error
|
|
| RTRNERR(ETXT,MAGGXE) | ; There was error from UPDATE^DIE quit with error text
|
|
| PHOTODA() | ;Return the DA from File IMAGE INDEX FOR TYPES that is the PhotoID entry.
|
| FileNo | Call Tags |
|---|---|
| ^MAG(2005 - [#2005] | Classic Fileman Calls |
| ^MAG(2005.82 - [#2005.82] | GET1^DIQ |
