Routine: MCUIMAG0

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

Customize PDF page

Package: Medicine

Routine: MCUIMAG0

Information

Source Information

Call Graph

Call Graph Total: 6

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: