MCUIMAG0 ;HCIOFO/DAD-Create / Update Med Procedure with Image Pointer ;7/23/97 07:36
Source file <MCUIMAG0.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
UPDATE(MCDATE,MCPROCD0,MCDFN,MCMAGPTR,MCD0,OK) | ;
; *** Main driver to update Medicine files from Imaging *** ; MCDATE = Date/Time of procedure (FM internal format) ; MCPROCD0 = Pointer to the Procedure/Subspecialty file (#697.2) ; MCDFN = Pointer to the Patient file (#2) ; MCMAGPTR() = An array whose subscripts are pointers to the Image ; file (#2005) Returned as: MCMAGPTR(File 2005 IEN)= ; MCFILE ^ MCD0 ^ MCD1 (IEN of image in image mult) ; MCD0 = Pointer to one of the Medicine Procedure data files ; OK = A return flag: '1^Message' = All is well, '0^Message' = Bad news |
|
NEW(MCDATE,MCDFN,MCFILE,MCPROCD0,MCPATFLD,MCD0,OK) | ;
; *** Create new Medicine patient (if needed) and procedure records *** ; MCDATE = Date/Time of procedure (FM internal format) ; MCDFN = Pointer to the Patient file (#2) ; MCFILE = File number of one of the Medicine Procedure data files ; MCPROCD0 = Pointer to the Procedure/Subspecialty file (#697.2) ; MCPATFLD = Field# in one of the Medicine Procedure data files ; that points to the Medical Patient file (#690) ; MCD0 = Pointer to one of the Medicine Procedure data files ; OK = A return flag: '1^Message' = All is well, '0^Message' = Bad news |
|
FILE(MCD0,MCFILE,MCMAGPTR,OK) | ;
; *** Store the Image file (#2005) pointers in Med Proc data files *** ; MCD0 = Pointer to one of the Medicine Procedure data files ; MCFILE = File number of one of the Medicine Procedure data files ; MCMAGPTR() = An array whose subscripts are pointers to the Image ; file (#2005) Returned as: MCMAGPTR(File 2005 IEN)= ; MCFILE ^ MCD0 ^ MCD1 (IEN of image in image mult) ; OK = A return flag: '1^Message' = All is well, '0^Message' = Bad news |
|
VALID(FILE,IEN,DFN,PRC) | ;
; *** Make sure we have the right Medicine Procedure data file rec *** ; FILE = File number of one of the Medicine Procedure data files ; IEN = Pointer to one of the Medicine Procedure data files ; DFN = Pointer to the Patient file (#2) ; PRC = Pointer to the Procedure/Subspecialty file (#697.2) ; Returns ; '1^Message' = All is well, '0^Message' = Bad news |
|
PRCFLD(FILE) | ;
; *** Procedure/Subspecialty pointer field *** ; FILE = File number of one of the Medicine Procedure data files ; Returns ; The field# in one of the Medicine Procedure data files that points ; to the Procedure/Subspecialty file (#690) (Zero [0] if not found) |
|
PATFLD(FILE) | ;
; *** Medical Patient pointer field *** ; FILE = File number of one of the Medicine Procedure data files ; Returns ; The field# in one of the Medicine Procedure data files that points ; to the Medical Patient file (#690) (Zero [0] if not found) |
|
PRCSUBS | ; *** Procedure/Subspecialty DIC("DR") builder ***
; *** Old Generalized Procedures module and other modules |
|
PRCTEST(MCFILE,MCPRCFLD,MCPROCD0,OK) | ;
; *** Test for valid procedure |
|
PRCTYPE(MCPROCD0) | ;
; *** Return the procedure type *** |
|
FINDPRC(MCENTRY,MCTYPE) | ;
; *** Find a procedure *** ; MCENTRY = External name of the entry (697.2,.01) ; MCTYPE = Internal 'Procedure/Subspecialty' type (697.2,1001) ; Returns ; The IEN of the procedure or zero if not found. |
|
KILL(MCFILE,MCD0,MCD1,OK) | ;
; *** Remove an image from Image multiple *** ; MCFILE = A Medicine Procedure data file number ; MCD0 = Pointer to one of the Medicine Procedure data files ; MCD1 = Pointer to one of the entries in the in the Image multiple ; OK = A return flag: '1^Message' = All is well, '0^Message' = Bad news |
FileNo | Call Tags |
---|---|
^MCAR(690 - [#690] | Classic Fileman Calls |