MAGGSIU1 ;WOIFO/GEK/NST - Utilities for Image Add/Modify ; 04 Mar 2010 4:04 PM
Source file <MAGGSIU1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DPT - [#2] | MAKENAME+15 |
| ^MAG(2005.03 - [#2005.03] | MAKEPKG+12 |
| ^MAG(2005.83 - [#2005.83] | MAKECLAS+10, MAKECLAS+11, MAKEPROC+9, MAKEPROC+10, PHOTODA+1 |
| Name | Line Occurrences |
|---|---|
| $$PHOTODA | MAKEPKG+5 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CLS | MAKECLAS+5~, MAKECLAS+10*, MAKECLAS+11, MAKECLAS+12, MAKEPROC+5~, MAKEPROC+9*, MAKEPROC+10, MAKEPROC+11 |
| DA | KILLENT+2*, KILLENT+3! |
| DIC | KILLENT+3! |
| DIK | KILLENT+2*, KILLENT+3! |
| ETXT | RTRNERR~, RTRNERR+1* |
| >> MAGERR | MAKECLAS+11*, MAKEPROC+10* |
| MAGGDA | KILLENT~, KILLENT+2 |
| MAGGFDA | MAKENAME~ |
| MAGGFDA(2005 | MAKENAME+10, MAKENAME+12, MAKENAME+13, MAKECLAS+6, MAKECLAS+12*, MAKEPKG+3, MAKEPKG+4, MAKEPKG+6*, MAKEPKG+9*, MAKEPKG+11* , MAKEPKG+13, MAKEPKG+15*, MAKEPKG+16*, MAKEPKG+17*, MAKEPROC+6*, MAKEPROC+7, MAKEPROC+11*, MAKEORIG+2* |
| MAGGXE | RTRNERR~ |
| MAGGXE("DIERR" | RTRNERR+1 |
| MAGRY | MAKEPKG+2~, MAKEPKG+14, MAKEPKG+15, MAKEPKG+16 |
| OK | MAKEPKG+2~, MAKEPKG+15, MAKEPKG+16 |
| PARENT | MAKEPKG+2~, MAKEPKG+3*, MAKEPKG+5, MAKEPKG+11, MAKEPKG+12 |
| PKG | MAKEPKG+2~, MAKEPKG+12*, MAKEPROC+5~ |
| PXIEN | MAKEPKG+2~, MAKEPKG+13*, MAKEPKG+14 |
| TYPE | MAKECLAS+5~, MAKECLAS+6*, MAKECLAS+9, MAKECLAS+10, MAKECLAS+11, MAKEPKG+2~, MAKEPKG+4*, MAKEPKG+5, MAKEPROC+5~, MAKEPROC+7* , MAKEPROC+9, MAKEPROC+10 |
| U | MAKENAME+15, MAKECLAS+10, MAKECLAS+11, MAKEPKG+12, MAKEPKG+15, MAKEPKG+16, MAKEPROC+9, MAKEPROC+10 |
| X | MAKENAME+6~, MAKENAME+13*, MAKENAME+15 |
| ZDESC | MAKENAME+6~, MAKENAME+7*, MAKENAME+10*, MAKENAME+15*, MAKENAME+17 |
