Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: MCUIMAG0

Package: Medicine

Routine: MCUIMAG0


Information

MCUIMAG0 ;HCIOFO/DAD-Create / Update Med Procedure with Image Pointer ;7/23/97 07:36

Source Information

Source file <MCUIMAG0.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 6 FILE^DICN  $$GET1^DID  CHK^DIE  ^DIK  ($$VFIELD,$$VFILE)^DILFD  $$GET1^DIQ  

Entry Points

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

External References

Name Field # of Occurrence
FILE^DICN NEW+17, NEW+31, FILE+32
$$GET1^DID NEW+24, FILE+16, FILE+20, FILE+22, KILL+11, KILL+15
CHK^DIE PRCTEST+3
^DIK KILL+21
$$VFIELD^DILFD FILE+13, VALID+20, PRCSUBS+3, PRCSUBS+8, KILL+8
$$VFILE^DILFD VALID+16
$$GET1^DIQ VALID+11, VALID+23

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^MCAR(690 - [#690] Classic Fileman Calls

Global Variables Directly Accessed

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!

Label References

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

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All