Global: ^MCAR(698

FileMan FileNo	FileMan Filename	Package
698	GENERATOR IMPLANT	Medicine

Package	Total	Routines
Medicine	13	DIAGNOSIS ICD DIAGNOSIS MCARGES MCAROPG MCAROPG1 MCARPACE MCARPAL MCARPCE MCARPCS1 MCARPCS4 MCOBPG MCPOS01E ^MCAR(698

Package	Total	Routines
Medicine	3	MCARPAC MCARPACE MCARPCS4

Package	Total	FileMan Files
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[11, #123.03(.01)]

Package	Total	FileMan Files
Medicine	4	MEDICAL PATIENT(#690)[1] REASON (MEDICINE)(#695.8)[99] PACEMAKER EQUIPMENT(#698.4)[2, 12] PACEMAKER MANUFACTURER(#698.6)[3, 13]
Kernel	2	INSTITUTION(#4)[7] NEW PERSON(#200)[300, 301, 302, 701]
Consult Request Tracking	1	REQUEST/CONSULTATION(#123)[1001]
DRG Grouper	1	ICD DIAGNOSIS(#80)[#698.02(.01)]
Order Entry Results Reporting	1	ORDER(#100)[1000]
PCE Patient Care Encounter	1	VISIT(#9000010)[900]

Fields, Total: 40

Field #	Name	Loc	Type	Details
.01	DATE/TIME OF IMPLANT	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `JAN 12, 1989` HELP-PROMPT: `ENTER THE DATE/TIME THAT THE IMPLANT WAS DONE` DESCRIPTION: `This allows analysis based on time.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `698^B` `1)= S ^MCAR(698,"B",$E(X,1,30),DA)=""` `2)= K ^MCAR(698,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `698^AC^MUMPS` `1)= S MCARCDIE="^MCAR(698," D CHGDTE1^MCARPROC` `2)= S MCARCDIE="^MCAR(698," D CHGDTE^MCARPROC` `This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent generator implant procedure for this patient.`
1	MEDICAL PATIENT	0;2	POINTER TO MEDICAL PATIENT FILE (#690)	**********************REQUIRED FIELD********************** MEDICAL PATIENT(#690) LAST EDITED: `JAN 12, 1989` HELP-PROMPT: `Enter the patient's name, SSN, or other identifier` DESCRIPTION: `Patient's name.` TECHNICAL DESCR: `ORDER ENTRY TYPE: IDENTIFIER` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `698^C` `1)= S ^MCAR(698,"C",$E(X,1,30),DA)=""` `2)= K ^MCAR(698,"C",$E(X,1,30),DA)` `This cross-reference allows look-ups by patient.` CROSS-REFERENCE: `698^AD^MUMPS` `1)= S MCARCDIE="^MCAR(698," D CHGPAT^MCARPROC` `2)= S MCARCDIE="^MCAR(698," D KILL^MCARPROC` `This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent generator implant procedure for this patient.`
2	PACEMAKER MODEL	0;3	POINTER TO PACEMAKER EQUIPMENT FILE (#698.4)	PACEMAKER EQUIPMENT(#698.4) INPUT TRANSFORM: `S DIC("S")="I $D(^MCAR(698.4,""C"",""G"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 23, 1996` HELP-PROMPT: `Enter the manufacturer's production name for this model.` DESCRIPTION: `This field identifies the device by the manufacturer's production name.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN` SCREEN: `S DIC("S")="I $D(^MCAR(698.4,""C"",""G"",+Y))"` EXPLANATION: `CHOOSE GENERATORS ONLY` CROSS-REFERENCE: `^^TRIGGER^698^3` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698,2,1,1,1.1) X ^DD(698,2,1,1,1.4)` `1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)` `1.4)= S DIH=$S($D(^MCAR(698,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=698,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698,2,1,1,2.1) X ^DD(698,2,1,1,2.4)` `2.1)= S X=DIV X ^DD(698,2,1,1,59.2) S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)` `2.4)= S DIH=$S($D(^MCAR(698,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,4)=DIV,DIH=698,DIG=3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^MCAR(698,D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"")` `CREATE VALUE)= INTERNAL(#2:#2)` `DELETE VALUE)= INTERNAL(#2:#2)` `FIELD)= #3` `This cross-refference triggers the PACEMAKER MANUFACTURER field (#3).`
3	PACEMAKER MANUFACTURER	0;4	POINTER TO PACEMAKER MANUFACTURER FILE (#698.6)	PACEMAKER MANUFACTURER(#698.6) HELP-PROMPT: `Enter the name of the producer of this pacemaker.` DESCRIPTION: `This field identifies the producer of the pacemaker.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the PACEMAKER MODEL field of the GENERATOR IMPLANT File`
4	PACEMAKER SERIAL NUMBER	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>12!($L(X)<2) X` HELP-PROMPT: `ANSWER MUST BE 2-12 CHARACTERS IN LENGTH` DESCRIPTION: `This field identifies the specific device.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
6	PACING MODE	0;6	SET	'1' FOR AAI; '2' FOR VVI; '3' FOR DDD; '4' FOR DVI; '5' FOR AAT; '6' FOR VVT; '7' FOR VAT; '8' FOR VDD; '9' FOR AOO; '10' FOR VOO; '11' FOR DOO; '12' FOR OTHER; '13' FOR VVIR; LAST EDITED: `APR 09, 1992` HELP-PROMPT: `Enter a code indicating the pacing mode of this unit.` DESCRIPTION: `This defines the operation established with the device.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
6.1	OTHER PACING MODE EXPLANATION	4;11	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>60!($L(X)<3) X` LAST EDITED: `APR 09, 1992` HELP-PROMPT: `Answer must be 3-60 characters in length.` DESCRIPTION: `This field permits an explanation of the pacing mode if "OTHER" is chosen at the PACING MODE prompt. It does not apply if anything besides "OTHER" is chosen at the PACING MODE prompt.`
7	HOSP WHERE IMPLANT OCCURRED	0;8	POINTER TO INSTITUTION FILE (#4)	INSTITUTION(#4) LAST EDITED: `DEC 30, 1993` HELP-PROMPT: `Enter the name of the hospital where this implat was performed.` DESCRIPTION: `This field identifies the facility where the implant procedure was performed.`
12	TRANSMITTER MODEL	1;3	POINTER TO PACEMAKER EQUIPMENT FILE (#698.4)	PACEMAKER EQUIPMENT(#698.4) INPUT TRANSFORM: `S DIC("S")="I $D(^MCAR(698.4,""C"",""T"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 23, 1996` HELP-PROMPT: `Enter the manufacturer's production name for this transmitter.` DESCRIPTION: `This field identifies the device by the manufacturer's production name.` SCREEN: `S DIC("S")="I $D(^MCAR(698.4,""C"",""T"",+Y))"` EXPLANATION: `CHOOSE TELEPHONE TRANSMITTERS ONLY` CROSS-REFERENCE: `^^TRIGGER^698^13` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,D0,1)):^(1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698,12,1,1,1.1) X ^DD(698,12,1,1,1.4)` `1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"") S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)` `1.4)= S DIH=$S($D(^MCAR(698,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,4)=DIV,DIH=698,DIG=13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,D0,1)):^(1),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y X ^DD(698,12,1,1,2.1) X ^DD(698,12,1,1,2.4)` `2.1)= S X=DIV X ^DD(698,12,1,1,59.2) S X=$P(Y(101),U,3),X=X S X=X S D0=I(0,0)` `2.4)= S DIH=$S($D(^MCAR(698,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,4)=DIV,DIH=698,DIG=13 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^MCAR(698,D0,1)):^(1),1:""),D0=$P(Y(1),U,3) S:'$D(^MCAR(698.4,+D0,0)) D0=-1 S Y(101)=$S($D(^MCAR(698.4,D0,0)):^(0),1:"")` `CREATE VALUE)= INTERNAL(#12:#2)` `DELETE VALUE)= INTERNAL(#12:#2)` `FIELD)= #13` `This cross-reference triggers the TRANSMITTER MANUFACTURER field (#13).`
13	TRANSMITTER MANUFACTURER	1;4	POINTER TO PACEMAKER MANUFACTURER FILE (#698.6)	PACEMAKER MANUFACTURER(#698.6) HELP-PROMPT: `Enter the producer of this transmitter.` DESCRIPTION: `This field identifies the producer of the transmitter.` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the TRANSMITTER MODEL field of the GENERATOR IMPLANT File`
14	LEADS (A,V,AV)	0;7	SET	**********************REQUIRED FIELD********************** 'A' FOR ATRIAL; 'V' FOR VENTRICULAR; 'AV' FOR BOTH A & V; LAST EDITED: `APR 24, 1989` HELP-PROMPT: `Specify whether (A)trial and/or (V)entricular conductors were established.` DESCRIPTION: `This describes the placement/type of conductors established.`
19	IMPLANTATION ETIOLOGY	0;11	SET	'1' FOR CONDUCTION TISSUE FIBROSIS; '2' FOR ISCHEMIA; '3' FOR POST INFARCTION; '4' FOR SURGICAL; '5' FOR CONGENITAL; '6' FOR MYOCARDIOPATHY; '7' FOR VALVULAR HEART DISEASE; '8' FOR CAROTID SINUS SYNDROME; '9' FOR IDIOPATHIC; '10' FOR OTHER; LAST EDITED: `FEB 07, 1989` HELP-PROMPT: `Enter a code based on the patient's history leading to this procedure.` DESCRIPTION: `This allows for the storage of historical patient data.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
30	FIRST SCHEDULED F/U VISIT	0;12	DATE	INPUT TRANSFORM: `S %DT="ETX" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the date of the first scheduled follow-up visit.` DESCRIPTION: `This allows documentation of the primary visit.`
32	NON-MAG RATE AT BEGIN-OF-LIFE	4;1	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>150)!(X<40)!(X?.E1"."2N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 40 and 150, 1 Decimal Digit` DESCRIPTION: `This allows documentation of initial rate.`
34	MAGNET RATE AT BEGIN-OF-LIFE	4;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>150)!(X<40)!(X?.E1"."2N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 40 and 150, 1 Decimal Digit` DESCRIPTION: `This allows documentation of initial rate.`
36	NON-MAG PULSE WIDTH AT B-O-L	4;3	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3)!(X<.1)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 21, 1990` HELP-PROMPT: `Type a Number between .1 and 3, 2 Decimal Digits` DESCRIPTION: `This allows documentation of initial width.`
38	MAGNET PULSE WIDTH AT B-O-L	4;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3)!(X<.1)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 21, 1990` HELP-PROMPT: `Type a Number between .1 and 3, 2 Decimal Digits` DESCRIPTION: `This allows documentation of initial width.`
40	OTHER BEGIN-OF-LIFE INDICATOR	4;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3-25 CHARACTERS IN LENGTH` DESCRIPTION: `This allows other initial documentation.`
42	NON-MAG RATE AT END-OF-LIFE	4;5	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>150)!(X<20)!(X?.E1"."2N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 20 and 150, 1 Decimal Digit` DESCRIPTION: `This allows documentation of terminal rate.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
44	MAGNET RATE AT END-OF-LIFE	4;6	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>150)!(X<20)!(X?.E1"."2N.N) X` LAST EDITED: `FEB 11, 1991` HELP-PROMPT: `Type a Number between 20 and 150, 1 Decimal Digit` DESCRIPTION: `This allows documentation of terminal rate.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
46	NON-MAG PULSE WIDTH AT E-O-L	4;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3)!(X<.1)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 21, 1990` HELP-PROMPT: `Type a Number between .1 and 3, 2 Decimal Digits` DESCRIPTION: `This allows documentation of terminal width.`
48	MAGNET PULSE WIDTH AT E-O-L	4;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>3)!(X<.1)!(X?.E1"."3N.N) X` LAST EDITED: `FEB 21, 1990` HELP-PROMPT: `Type a Number between .1 and 3, 2 Decimal Digits` DESCRIPTION: `This allows documentation of terminal width.`
50	OTHER END-OF-LIFE INDICATOR	4;10	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>25!($L(X)<3) X` HELP-PROMPT: `ANSWER MUST BE 3-25 CHARACTERS IN LENGTH` DESCRIPTION: `This allows documentation of other terminal parameters.`
70	NO. PULSE GENERATORS	0;13	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>20)!(X<1)!(X?.E1"."1N.N) X` HELP-PROMPT: `Type a Number between 1 and 20, 0 Decimal Digits` DESCRIPTION: `This field identifies the sequential value of this generator.`
75	DATE OF LAST PREVIOUS IMPLANT	0;14	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the date of the most recent previous implantation, if any.` DESCRIPTION: `This allows documentation of previous implantations.`
90	DATE OF INCIPIENT MALFUNCTION	1;6	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the date when the unit began to show signs of failure.` DESCRIPTION: `This allows documentation of malfunction date.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
93	PACING FAILURE (EKG)	2;0	SET Multiple #698.093	698.093 DESCRIPTION: `This allows documentation of failures.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
96	EXPLANT DATE	1;1	DATE	INPUT TRANSFORM: `S %DT="ET" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `Enter the date that this apparatus was removed.` DESCRIPTION: `This allows documentation of generator removal.`
99	REASON FOR GENERATOR CHANGE	1;2	POINTER TO REASON (MEDICINE) FILE (#695.8)	REASON (MEDICINE)(#695.8) INPUT TRANSFORM: `S DIC("S")="I $D(^MCAR(695.8,""AC"",""P"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` HELP-PROMPT: `Enter the reason for this explant/implant procedure.` DESCRIPTION: `This allows documentation of change rationale.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN` SCREEN: `S DIC("S")="I $D(^MCAR(695.8,""AC"",""P"",+Y))"` EXPLANATION: `CHOOSE REASONS FOR EXPLANTING PACEMAKERS ONLY`
300	ATTENDING PHYSICIAN	3;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `APR 23, 1996` DESCRIPTION: `This field identifies the name of the Attending Physician for this Generator Implant.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` CROSS-REFERENCE: `^^TRIGGER^698^701` `1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X=DIV S X=DIV,X=X X ^DD(698,300,1,1,1.4)` `1.4)= S DIH=$S($D(^MCAR(698,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=698,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(698,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(698,300,1,1,2.1) X ^DD(698,300,1,1,2.4)` `2.1)= S X=DIV S Y(1)=$S($D(^MCAR(698,D0,3)):^(3),1:"") S X=$P(Y(1),U,1),X=X` `2.4)= S DIH=$S($D(^MCAR(698,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=698,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0` `CREATE VALUE)= INTERNAL(#300)` `DELETE VALUE)= INTERNAL(#300)` `FIELD)= #701` `This trigger sets the primary provider file.`
301	FELLOW-1st	3;2	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 25, 1994` DESCRIPTION: `This field identifies the name of a Cardiology Fellow for this Generator Implant.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"`
302	FELLOW-2nd	3;3	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 25, 1994` DESCRIPTION: `This field identifies the name of a second Cardiology Fellow for this Generator Implant.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"`
500	COMMENTS	10;0	WORD-PROCESSING #698.01	DESCRIPTION: `This allows a documentation area of free form.` LAST EDITED: `JAN 12, 1989` HELP-PROMPT: `Enter free-text remarks on this procedure.` DESCRIPTION: `This field identifies the free text documentation area.`
600	PROCEDURE SUMMARY	.2;2	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>79!($L(X)<1) X` LAST EDITED: `NOV 21, 1990` HELP-PROMPT: `Answer must be 1-79 characters in length. This will appear on the 'Summary of Patient Procedures.'` DESCRIPTION: `This field identifies a required free text summary of the Generator Implant. This summary (up to 79 characters) will appear on the Summary of Patient Procedures.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
601	SUMMARY	.2;1	SET	**********************REQUIRED FIELD********************** 'A' FOR ABNORMAL; 'B' FOR BORDERLINE; 'N' FOR NORMAL; LAST EDITED: `NOV 21, 1990` DESCRIPTION: `This field identifies a required summary of the implant (Abnormal,Borderline,Normal). This summary will appear on the Summary of Patient Procedures.`
700	ICD DIAGNOSIS	ICD;0	POINTER Multiple #698.02	698.02 DESCRIPTION: `This field contains the ICD Diagnosis(es) for the procedure.` TECHNICAL DESCR: `ORDER ENTRY TYPE: UNKNOWN`
701	PRIMARY PROVIDER	PROV;1	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) INPUT TRANSFORM: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `OCT 25, 1994` DESCRIPTION: `This contains the primary provider. It is triggered by another field in the file and is located here to provider a standard provider location for use in transferring data to the PCC.` SCREEN: `S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"` `WRITE AUTHORITY: ^` NOTES: `TRIGGERED by the ATTENDING PHYSICIAN field of the GENERATOR IMPLANT File`
900	PCC POINTER	PCC;1	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) LAST EDITED: `MAY 17, 1996` DESCRIPTION: `This field is used to link the Medicine package results with the PCC Visit File for use by Queryman.` CROSS-REFERENCE: `698^APCE` `1)= S ^MCAR(698,"APCE",$E(X,1,30),DA)=""` `2)= K ^MCAR(698,"APCE",$E(X,1,30),DA)` `Pointer to the Visit file.`
1000	ORIFN	OR;1	POINTER TO ORDER FILE (#100)	ORDER(#100) LAST EDITED: `JUL 09, 1991` HELP-PROMPT: `Enter the 'Consult Orders' internal file number.` DESCRIPTION: `This field contains a pointer to the 'Consult Orders' internal file number, stored in file 100. This field is entered when results are entered in the Medicine package.`
1001	GMRCO	OR;2	POINTER TO REQUEST/CONSULTATION FILE (#123)	REQUEST/CONSULTATION(#123) LAST EDITED: `AUG 16, 1991` HELP-PROMPT: `Enter the 'Request/Consultation' internal file number.` DESCRIPTION: `This field contains a pointer to the internal number of the consult order stored in the REQUEST/CONSULTATION file (123). This field is entered when results are entered in the Medicine package.`

Name	Field # of Occurrence
^%DT	.01+1, 30+1, 75+1, 90+1, 96+1
^DIC	2+1, 12+1, 99+1, 300+1, 301+1, 302+1, 701+1
^DICR	2(XREF 1n1.4), 2(XREF 1n2.4), 12(XREF 1n1.4), 12(XREF 1n2.4), 300(XREF 1n1.4), 300(XREF 1n2.4)
Y^DIQ	ID1+1
CHGDTE^MCARPROC	.01(XREF 2K)
CHGDTE1^MCARPROC	.01(XREF 2S)
CHGPAT^MCARPROC	1(XREF 2S)
KILL^MCARPROC	1(XREF 2K)

Name	Line Occurrences (* Changed, ! Killed)
^DD(	2(XREF 1n1.4), 2(XREF 1n2.4), 12(XREF 1n1.4), 12(XREF 1n2.4), 300(XREF 1n1.4), 300(XREF 1n2.4)
^DD(690	ID1+1
^DD(698	2(XREF 1S), 2(XREF 1K), 2(XREF 1n2.1), 12(XREF 1S), 12(XREF 1K), 12(XREF 1n2.1), 300(XREF 1S), 300(XREF 1K)
^MCAR(690 - [#690]	ID1+1
^MCAR(698 - [#698]	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1n1.4), 2(XREF 1K), 2(XREF 1n2.4), 2(XREF 1n59.2), 12(XREF 1S) , 12(XREF 1n1.4), 12(XREF 1K), 12(XREF 1n2.4), 12(XREF 1n59.2), 300(XREF 1S), 300(XREF 1n1.4), 300(XREF 1K), 300(XREF 1n2.1), 300(XREF 1n2.4), 900(XREF 1S) , 900(XREF 1K)
^MCAR(698.4 - [#698.4]	2(XREF 1n1.1), 2(XREF 1n59.2), 12(XREF 1n1.1), 12(XREF 1n59.2)

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.01+1, 30+1, 75+1, 90+1, 96+1*
%I	ID1+1*!
>> C	ID1+1*
>> D0	2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1K), 2(XREF 1n2.1), 2(XREF 1n59.2), 12(XREF 1S), 12(XREF 1n1.1), 12(XREF 1K), 12(XREF 1n2.1), 12(XREF 1n59.2) , 300(XREF 1S), 300(XREF 1K), 300(XREF 1n2.1)
>> DA	.01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2(XREF 1S), 2(XREF 1K), 12(XREF 1S), 12(XREF 1K), 300(XREF 1S), 300(XREF 1K) , 900(XREF 1S), 900(XREF 1K)
DIC	ID1+1, 2+1!, 12+1!, 99+1!, 300+1!, 301+1!, 302+1!, 701+1!*
DIC("S"	2+1, 2SCR+1, 12+1, 12SCR+1, 99+1, 99SCR+1, 300+1, 301+1, 302+1, 701+1
>> DIE	2+1, 12+1, 99+1, 300+1, 301+1, 302+1, 701+1
>> DIG	2(XREF 1n1.4), 2(XREF 1n2.4), 12(XREF 1n1.4), 12(XREF 1n2.4), 300(XREF 1n1.4), 300(XREF 1n2.4)
>> DIH	2(XREF 1n1.4), 2(XREF 1n2.4), 12(XREF 1n1.4), 12(XREF 1n2.4), 300(XREF 1n1.4), 300(XREF 1n2.4)
>> DIU	2(XREF 1S), 2(XREF 1K), 12(XREF 1S), 12(XREF 1K), 300(XREF 1S), 300(XREF 1K)
DIV	2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 2(XREF 1K), 2(XREF 1n2.1), 2(XREF 1n2.4), 12(XREF 1S), 12(XREF 1n1.1), 12(XREF 1n1.4), 12(XREF 1K) , 12(XREF 1n2.1), 12(XREF 1n2.4), 300(XREF 1S), 300(XREF 1n1.4), 300(XREF 1K), 300(XREF 1n2.1), 300(XREF 1n2.4)
DIV(0	2(XREF 1S), 2(XREF 1n1.4), 2(XREF 1K), 2(XREF 1n2.4), 12(XREF 1S), 12(XREF 1n1.4), 12(XREF 1K), 12(XREF 1n2.4), 300(XREF 1S), 300(XREF 1n1.4) , 300(XREF 1K), 300(XREF 1n2.4)
>> I(0	2(XREF 1n1.1), 2(XREF 1n2.1), 2(XREF 1n59.2), 12(XREF 1n1.1), 12(XREF 1n2.1), 12(XREF 1n59.2)
>> MCARCDIE	.01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
U	ID1+1, 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 2(XREF 1K), 2(XREF 1n2.1), 2(XREF 1n2.4), 2(XREF 1n59.2), 12(XREF 1S), 12(XREF 1n1.1) , 12(XREF 1n1.4), 12(XREF 1K), 12(XREF 1n2.1), 12(XREF 1n2.4), 12(XREF 1n59.2), 300(XREF 1S), 300(XREF 1n1.4), 300(XREF 1K), 300(XREF 1n2.1), 300(XREF 1n2.4)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 2+1!, 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 2(XREF 1K) , 2(XREF 1n2.1), 2(XREF 1n2.4), 4+1!, 6.1+1!, 12+1!, 12(XREF 1S), 12(XREF 1n1.1), 12(XREF 1n1.4), 12(XREF 1K), 12(XREF 1n2.1) , 12(XREF 1n2.4), 30+1!, 32+1!, 34+1!, 36+1!, 38+1!, 40+1!, 42+1!, 44+1!, 46+1! , 48+1!, 50+1!, 70+1!, 75+1!, 90+1!, 96+1!, 99+1!, 300+1!, 300(XREF 1S), 300(XREF 1n1.4) , 300(XREF 1K), 300(XREF 1n2.1), 300(XREF 1n2.4), 301+1!, 302+1!, 600+1!, 701+1!, 900(XREF 1S), 900(XREF 1K)
Y	ID1+1*, .01+1, 2+1, 2(XREF 1S), 2(XREF 1K), 12+1, 12(XREF 1S), 12(XREF 1K), 30+1, 75+1 , 90+1, 96+1, 99+1, 300+1, 300(XREF 1S), 300(XREF 1K), 301+1, 302+1, 701+1
Y(1	2(XREF 1S), 2(XREF 1K), 2(XREF 1n59.2), 12(XREF 1S), 12(XREF 1K), 12(XREF 1n59.2), 300(XREF 1S), 300(XREF 1K), 300(XREF 1n2.1)
Y(101	2(XREF 1n1.1), 2(XREF 1n2.1), 2(XREF 1n59.2), 12(XREF 1n1.1), 12(XREF 1n2.1), 12(XREF 1n59.2)

Customize PDF page

Package: Medicine

Global: ^MCAR(698

Information

Description

Directly Accessed By Routines, Total: 15

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 10

Fields, Total: 40

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend:

Name	Field # of Occurrence
^("PROV"	300(XREF 1S), 300(XREF 1n1.4), 300(XREF 1K), 300(XREF 1n2.4)
^(0	ID1+1, 2(XREF 1S), 2(XREF 1n1.1), 2(XREF 1n1.4), 2(XREF 1K), 2(XREF 1n2.4), 2(XREF 1n59.2), 12(XREF 1n1.1), 12(XREF 1n59.2)
^(1	12(XREF 1S), 12(XREF 1n1.4), 12(XREF 1K), 12(XREF 1n2.4), 12(XREF 1n59.2)
^(3	300(XREF 1n2.1)