©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
MCUIMAG0 ;HCIOFO/DAD-Create / Update Med Procedure with Image Pointer ;7/23/97 07:36
Source file <MCUIMAG0.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| 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) |
|
| 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) |
|
| PRCTEST(MCFILE,MCPRCFLD,MCPROCD0,OK) | ;
; *** Test for valid procedure |
|
| PRCTYPE(MCPROCD0) | ;
; *** Return the procedure type *** |
|
| 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 |
|
| 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 |
|
| PRCSUBS | ; *** Procedure/Subspecialty DIC("DR") builder ***
; *** Old Generalized Procedures module and other modules |
|
| 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 |
|
| 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 |
|
| 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 |
| FileNo | Call Tags |
|---|---|
| ^MCAR(690 - [#690] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^MCAR( | UPDATE+24, FILE+25, FILE+26 |
| ^MCAR(690 - [#690] | NEW+13 |
| ^MCAR(697.2 - [#697.2] | UPDATE+13, NEW+27, PRCTYPE+2, FINDPRC+8, FINDPRC+9, FINDPRC+10 |
| ^TMP("DIERR" | PRCTEST+4! |
| Name | Line Occurrences |
|---|---|
| $$FINDPRC | PRCSUBS+9, PRCSUBS+11 |
| $$PATFLD | UPDATE+17, VALID+10 |
| $$PRCFLD | NEW+28, VALID+14 |
| $$PRCTYPE | VALID+14, PRCSUBS+13 |
| $$VALID | UPDATE+21, UPDATE+25 |
| FILE | UPDATE+30 |
| NEW | UPDATE+28 |
| PRCSUBS | NEW+29 |
| PRCTEST | PRCSUBS+4, PRCSUBS+15 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| D0 | FILE+29*, KILL+6~, KILL+20* |
| D1 | KILL+6~, KILL+20* |
| DA | KILL+6~, KILL+20* |
| DA(1 | FILE+29*, KILL+20* |
| DD | UPDATE+10~, NEW+10~, NEW+14!, NEW+23!, FILE+8~, FILE+27! |
| DFN | VALID~, VALID+11 |
| DIC | UPDATE+10~, NEW+10~, NEW+14!, NEW+16*, NEW+23!, NEW+24*, FILE+8~, FILE+27!, FILE+28* |
| DIC("DR" | NEW+26*, PRCSUBS+5*, PRCSUBS+17*, PRCSUBS+18*, PRCSUBS+21*, PRCSUBS+22* |
| DIC("P" | FILE+28* |
| DIC(0 | NEW+16*, NEW+25*, FILE+28* |
| DIK | KILL+6~, KILL+11*, KILL+12, KILL+19* |
| DINUM | UPDATE+10~, NEW+10~, NEW+14!, NEW+15*, NEW+23!, FILE+8~, FILE+27! |
| DLAYGO | NEW+10~, NEW+15*, NEW+25*, FILE+8~, FILE+29* |
| DO | UPDATE+10~, NEW+10~, NEW+14!, NEW+23!, FILE+8~, FILE+27! |
| FIELD | VALID+8~, VALID+10*, VALID+11, VALID+14*, VALID+17*, VALID+21*, VALID+23 |
| FILE | VALID~, VALID+10, VALID+11, VALID+14, VALID+23, PRCFLD~, PRCFLD+8, PATFLD~, PATFLD+11 |
| IEN | VALID~, VALID+11, VALID+23 |
| MCARCODE | NEW+10~, NEW+27* |
| MCD0 | UPDATE~, UPDATE+12*, UPDATE+21, UPDATE+22, UPDATE+24, UPDATE+26*, UPDATE+28, UPDATE+30, UPDATE+31*, NEW~ , NEW+31*, NEW+32, FILE~, FILE+20, FILE+25, FILE+26, FILE+29, FILE+35, KILL~, KILL+19 , KILL+20 |
| MCD1 | FILE+8~, FILE+25*, FILE+26*, FILE+31, FILE+32*, FILE+33, FILE+35, KILL~, KILL+20 |
| MCDATE | UPDATE~, UPDATE+11*, UPDATE+24, UPDATE+28, NEW~, NEW+30 |
| MCDFN | UPDATE~, UPDATE+12*, UPDATE+21, UPDATE+25, UPDATE+28, NEW~, NEW+13, NEW+15, NEW+26 |
| MCDIC | FILE+8~, FILE+20*, FILE+21*, FILE+28 |
| MCDIC("P" | FILE+22*, FILE+28 |
| MCENTRY | FINDPRC~, FINDPRC+8, FINDPRC+9 |
| MCFILE | UPDATE+13*, UPDATE+14, UPDATE+17, UPDATE+21, UPDATE+24, UPDATE+25, UPDATE+28, UPDATE+30, UPDATE+31, NEW~ , NEW+24, NEW+25, NEW+28, FILE~, FILE+13, FILE+16, FILE+20, FILE+22, FILE+25, FILE+26 , FILE+29, FILE+35, VALID+16, VALID+20, PRCSUBS+3, PRCSUBS+4, PRCSUBS+8, PRCSUBS+15, PRCTEST~, PRCTEST+3 , KILL~, KILL+8, KILL+11, KILL+15 |
| MCFOUND | FINDPRC+6~, FINDPRC+7*, FINDPRC+8, FINDPRC+10* |
| MCGENPRC | PRCSUBS+2~, PRCSUBS+9*, PRCSUBS+10, PRCSUBS+22 |
| MCGENSUB | PRCSUBS+2~, PRCSUBS+11*, PRCSUBS+12, PRCSUBS+17 |
| MCIEN | UPDATE+23~*, UPDATE+24*, UPDATE+25, UPDATE+26, FINDPRC+6~, FINDPRC+7*, FINDPRC+8*, FINDPRC+9, FINDPRC+10, FINDPRC+13 |
| MCMAGD0 | FILE+8~, FILE+23*, FILE+24*, FILE+25, FILE+26, FILE+30, FILE+35 |
| MCMAGPTR | UPDATE~, UPDATE+30, FILE~ |
| MCMAGPTR( | FILE+24, FILE+35* |
| MCMAGPTR(0 | UPDATE+30, FILE+10 |
| MCNODE | FILE+8~, FILE+16*, FILE+17, FILE+21, FILE+25, FILE+26, KILL+6~, KILL+15*, KILL+16, KILL+19 |
| MCPATFLD | UPDATE+10~, UPDATE+17*, UPDATE+18, UPDATE+28, NEW~, NEW+26 |
| MCPRCFLD | NEW+10~, NEW+28*, NEW+29, PRCSUBS+4, PRCSUBS+5, PRCSUBS+15, PRCSUBS+17, PRCSUBS+18, PRCSUBS+21, PRCSUBS+22 , PRCTEST~, PRCTEST+3 |
| MCPRCTYP | PRCSUBS+2~, PRCSUBS+13*, PRCSUBS+14, PRCSUBS+15, PRCSUBS+16, PRCSUBS+20 |
| MCPROCD0 | UPDATE~, UPDATE+11*, UPDATE+13, UPDATE+21, UPDATE+25, UPDATE+28, NEW~, NEW+27, PRCSUBS+4, PRCSUBS+5 , PRCSUBS+13, PRCSUBS+15, PRCSUBS+18, PRCSUBS+21, PRCTEST~, PRCTEST+3, PRCTYPE~, PRCTYPE+2 |
| MCRESULT | NEW+10~, PRCTEST+2~, PRCTEST+3, PRCTEST+5 |
| MCTYPE | FINDPRC~, FINDPRC+10 |
| MEDPAT | PATFLD+6~ |
| MEDPAT( | PATFLD+7*, PATFLD+8*, PATFLD+9*, PATFLD+10*, PATFLD+11 |
| MEDPAT(691 | PATFLD+7* |
| MEDPAT(694 | PATFLD+8* |
| MEDPAT(698 | PATFLD+9* |
| MEDPAT(699 | PATFLD+10* |
| MEDPAT(700 | PATFLD+10* |
| MEDPAT(701 | PATFLD+10* |
| OK | UPDATE~, UPDATE+15*, UPDATE+19*, UPDATE+21*, UPDATE+22, UPDATE+25*, UPDATE+26, UPDATE+28, UPDATE+30, NEW~ , NEW+11*, NEW+13, NEW+19*, NEW+29, NEW+33*, FILE~, FILE+9*, FILE+11*, FILE+14*, FILE+18* , FILE+24, FILE+33*, FILE+35, VALID+8~, VALID+9*, VALID+12*, VALID+24*, VALID+26, PRCSUBS+4, PRCSUBS+10* , PRCSUBS+12*, PRCSUBS+14*, PRCSUBS+15, PRCTEST~, PRCTEST+5*, KILL~, KILL+7*, KILL+9*, KILL+13*, KILL+17* |
| PRC | VALID~, VALID+14, VALID+23 |
| PRCFLD | PRCFLD+6~ |
| PRCFLD( | PRCFLD+7*, PRCFLD+8 |
| PRCFLD(694 | PRCFLD+7* |
| PRCFLD(699 | PRCFLD+7* |
| TYPE | VALID+8~, VALID+14*, VALID+21 |
| U | UPDATE+13, UPDATE+31, NEW+27, FILE+26, FILE+35, VALID+17, VALID+21, PRCSUBS+4, PRCSUBS+5, PRCSUBS+14 , PRCSUBS+15, PRCSUBS+17, PRCSUBS+18, PRCSUBS+21, PRCSUBS+22, PRCTEST+5, PRCTYPE+2, FINDPRC+9, FINDPRC+10 |
| X | UPDATE+10~, NEW+10~, NEW+15*, NEW+30*, FILE+8~, FILE+30* |
| Y | UPDATE+10~, NEW+10~, NEW+18, NEW+31, FILE+8~, FILE+32 |