STANDARD DATA DICTIONARY #699.5 -- GENERALIZED PROCEDURE/CONSULT FILE 9/29/25 PAGE 1
STORED IN ^MCAR(699.5, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file stores basic information on procedures in subspecialties for which separate files do not currently exist in the Medicine
package.
DD ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: MEDICAL PATIENT (#.02)[R], SUBSPECIALTY (#.05)[R]
"X1": W:$D(^("ES")) " ",@("$P($P($C(59)_$S($D(^DD(699.5,1506,0)):$P(^(0),U,3),1:0)_$E("_DIC_"Y,0),0),$C(59)_$P(^(""ES"")
,U,7)_"":"",2),$C(59),1)")
POINTED TO BY: ASSOCIATED RESULTS field (#.01) of the ASSOCIATED RESULTS sub-field (#123.03) of the REQUEST/CONSULTATION File
(#123)
CROSS
REFERENCED BY: DATE/TIME(AC), MEDICAL PATIENT(AD), PCC POINTER(APCE), DATE/TIME(B), MEDICAL PATIENT(C), SUBSPECIALTY(D)
699.5,.01 DATE/TIME 0;1 DATE (Required)
INPUT TRANSFORM: S %DT="ET" D ^%DT S X=Y K:Y<1 X
LAST EDITED: JAN 31, 1992
CROSS-REFERENCE: 699.5^B
1)= S ^MCAR(699.5,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699.5,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 699.5^AC^MUMPS
1)= S MCARCDIE="^MCAR(699.5," D CHGDTE1^MCARPROC
2)= S MCARCDIE="^MCAR(699.5," D CHGDTE^MCARPROC
This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to
record the most recent Generalize Procedures for this patient.
699.5,.02 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690) (Required)
LAST EDITED: JUL 29, 1992
CROSS-REFERENCE: 699.5^C
1)= S ^MCAR(699.5,"C",$E(X,1,30),DA)=""
2)= K ^MCAR(699.5,"C",$E(X,1,30),DA)
This cross-reference allow look-ups on patient.
CROSS-REFERENCE: 699.5^AD^MUMPS
1)= S MCARCDIE="^MCAR(699.5," D CHGPAT^MCARPROC
2)= S MCARCDIE="^MCAR(699.5," D KILL^MCARPROC
699.5,.05 SUBSPECIALTY 0;6 POINTER TO PROCEDURE/SUBSPECIALTY FILE (#697.2) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,9),($P($G(^(1)),U)=""S"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 05, 1997
HELP-PROMPT: Enter the Sub-specialty for which data is being entered
DESCRIPTION:
Only subspecailty in the PROCEDURE/SUBSPECIALTY file will be chosen.
SCREEN: S DIC("S")="I $P(^(0),U,9),($P($G(^(1)),U)=""S"")"
EXPLANATION: Chooses those Sub-specialties which are entered through the Generic Medicine Procedure Sub-module
CROSS-REFERENCE: 699.5^D
1)= S ^MCAR(699.5,"D",$E(X,1,30),DA)=""
2)= K ^MCAR(699.5,"D",$E(X,1,30),DA)
This cross-references the file by the various subspecialties that have data entered in the Generic
Procedure File.
699.5,.06 PROCEDURE 0;8 POINTER TO PROCEDURE/SUBSPECIALTY FILE (#697.2) (Required)
INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,9),($P($G(^(1)),U)=""P"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: MAY 23, 1997
HELP-PROMPT: Enter Procedure name
DESCRIPTION:
Only procedure in the PROCEDURE/SUBSPECIALTY file will be chosen.
SCREEN: S DIC("S")="I $P(^(0),U,9),($P($G(^(1)),U)=""P"")"
EXPLANATION: Choose those procedures which are entered through the Generic Procedure module.
699.5,1 INDICATION 1;0 WORD-PROCESSING #699.52
LAST EDITED: JAN 29, 1992
699.5,2 PROBLEM ORIENTED CONSULT? 0;3 SET
'1' FOR YES;
LAST EDITED: JAN 30, 1992
DESCRIPTION: This field is automatically stuffed if an entry is made though the various Medicine package
sub-modules' Problem-Oriented Consult Option.
699.5,2.01 OUTPUT-FORMATTED POC ; COMPUTED
MUMPS CODE: X ^DD(699.5,2.01,9.4) S X=$S(Y(699.5,2.01,3):Y(699.5,2.01,4),Y(699.5,2.01,5):X)
9.2 = S Y(699.5,2.01,2)=$C(59)_$S($D(^DD(699.5,2,0)):$P(^(0),U,3),1:""),Y(699.5,2.01,1)=$S($D(^MCAR
(699.5,D0,0)):^(0),1:"")
9.3 = X ^DD(699.5,2.01,9.2) S X=$P($P(Y(699.5,2.01,2),$C(59)_$P(Y(699.5,2.01,1),U,3)_":",2),$C(59),
1)="YES",Y(699.5,2.01,3)=X S X="THIS IS A PROBLEM-ORIENTED CONSULT"
9.4 = X ^DD(699.5,2.01,9.3) S Y(699.5,2.01,4)=X S X=1,Y(699.5,2.01,5)=X S X="NOT A PROBLEM-ORIENTED
CONSULT"
ALGORITHM: $S(PROBLEM ORIENTED CONSULT?="YES":"THIS IS A PROBLEM-ORIENTED CONSULT",1:"NOT A PROBLEM-ORIENTED C
ONSULT")
DESCRIPTION:
This field formats the PROBLEM ORIENTED CONSULT? field (#2) for the output report.
699.5,3 INDICATION COMMENT 0;7 FREE TEXT
INPUT TRANSFORM: K:$L(X)>110!($L(X)<1) X
LAST EDITED: JAN 30, 1992
HELP-PROMPT: Answer must be 1-110 characters in length.
DESCRIPTION:
This field is used in the Problem-Oriented Consult Enter/Edit and Print.
699.5,5 MEDICATIONS 4;0 POINTER Multiple #699.53
699.53,.01 MEDICATIONS 0;1 POINTER TO DRUG FILE (#50) (Multiply asked)
LAST EDITED: NOV 09, 1991
CROSS-REFERENCE: 699.53^B
1)= S ^MCAR(699.5,DA(1),4,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699.5,DA(1),4,"B",$E(X,1,30),DA)
699.5,6 PROVIDER/PHYSICIAN 0;4 POINTER TO NEW PERSON FILE (#200) (Required)
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
SCREEN: S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
CROSS-REFERENCE: ^^TRIGGER^699.5^701
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(699.5,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(699.5,6,1,1,1.4)
1.4)= S DIH=$S($D(^MCAR(699.5,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=699
.5,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(699.5,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),
U,1),X=X S DIU=X K Y X ^DD(699.5,6,1,1,2.1) X ^DD(699.5,6,1,1,2.4)
2.1)= S X=DIV S Y(1)=$S($D(^MCAR(699.5,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X
2.4)= S DIH=$S($D(^MCAR(699.5,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=699
.5,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
CREATE VALUE)= INTERNAL(#6)
DELETE VALUE)= INTERNAL(#6)
FIELD)= #701
this trigger sets the primary provider file.
699.5,7 TECHNIQUE 2;0 POINTER Multiple #699.501
SCREEN: I $P(^(0),U,4)
EXPLANATION: Provides list of techniques applicable to the Generic module
699.501,.01 TECHNIQUE 0;1 POINTER TO DIAG/THERAP INTERVENT FILE (#699.6) (Multiply asked)
LAST EDITED: MAY 19, 1993
HELP-PROMPT: Enter the procedure with which this intervention is associated
CROSS-REFERENCE: 699.501^B
1)= S ^MCAR(699.5,DA(1),2,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699.5,DA(1),2,"B",$E(X,1,30),DA)
699.5,30 COMPLICATIONS 3;0 POINTER Multiple #699.51
699.51,.01 COMPLICATIONS 0;1 POINTER TO COMPLICATION FILE (#696.9) (Multiply asked)
LAST EDITED: NOV 09, 1991
CROSS-REFERENCE: 699.51^B
1)= S ^MCAR(699.5,DA(1),3,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699.5,DA(1),3,"B",$E(X,1,30),DA)
699.5,31.5 CONSULTATION TYPE 0;5 POINTER TO CONSULTATION TYPE FILE (#699.82)
LAST EDITED: NOV 09, 1991
699.5,32 SUBJECTIVE 20;0 WORD-PROCESSING #699.532
LAST EDITED: JAN 30, 1992
LAST EDITED: JAN 30, 1992
699.5,33 OBJECTIVE 21;0 WORD-PROCESSING #699.533
LAST EDITED: JAN 30, 1992
LAST EDITED: JAN 30, 1992
699.5,34 ASSESSMENT/FINDINGS 22;0 WORD-PROCESSING #699.534
LAST EDITED: JAN 30, 1992
LAST EDITED: JAN 30, 1992
699.5,35 PLAN 35;0 WORD-PROCESSING #699.535
LAST EDITED: JAN 30, 1992
LAST EDITED: JAN 30, 1992
699.5,600 PROCEDURE SUMMARY .2;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>79!($L(X)<1) X
LAST EDITED: DEC 20, 1991
HELP-PROMPT: Answer must be 1-79 characters in length.
699.5,601 SUMMARY .2;1 SET (Required)
'A' FOR ABNORMAL;
'N' FOR NORMAL;
'I' FOR INCOMPLETE EXAMINATION;
LAST EDITED: DEC 20, 1991
699.5,700 ICD DIAGNOSIS ICD;0 POINTER Multiple #699.54
DESCRIPTION:
This field contains the ICD Diagnosis(es) for the procedure.
699.54,.01 ICD DIAGNOSIS 0;1 POINTER TO ICD DIAGNOSIS FILE (#80) (Multiply asked)
LAST EDITED: MAR 10, 1993
DESCRIPTION:
This field contains an ICD Diagnosis for the procedure.
CROSS-REFERENCE: 699.54^B
1)= S ^MCAR(699.5,DA(1),"ICD","B",$E(X,1,30),DA)=""
2)= K ^MCAR(699.5,DA(1),"ICD","B",$E(X,1,30),DA)
699.54,.02 NARRATIVE DIAGNOSIS 0;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>80!($L(X)<1) X
LAST EDITED: JAN 02, 1992
HELP-PROMPT: Answer must be 1-80 characters in length.
699.5,701 PRIMARY PROVIDER PROV;1 POINTER TO NEW PERSON FILE (#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 PROVIDER/PHYSICIAN field of the GENERALIZED PROCEDURE/CONSULT File
699.5,900 PCC POINTER PCC;1 POINTER TO VISIT FILE (#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: 699.5^APCE
1)= S ^MCAR(699.5,"APCE",$E(X,1,30),DA)=""
2)= K ^MCAR(699.5,"APCE",$E(X,1,30),DA)
Pointer to the Visit file.
699.5,1000 ORIFN OR;1 POINTER TO ORDER FILE (#100)
LAST EDITED: JAN 30, 1992
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.
699.5,1001 GMRCO OR;2 POINTER TO REQUEST/CONSULTATION FILE (#123)
LAST EDITED: JAN 30, 1992
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.
699.5,1500 ENTERING DUZ ES;1 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 12, 1993
699.5,1501 COSIGNER VALIDATION CODE ES;2 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Answer must be 1-40 characters in length.
699.5,1502 ENTERING DATE ES;3 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
699.5,1503 VERIFYING DUZ ES;4 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 12, 1993
699.5,1504 SIGNER VALIDATION CODE ES;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>40!($L(X)<1) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Answer must be 1-40 characters in length.
699.5,1505 VERIFIER DATE ES;6 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
699.5,1506 RELEASE CODE ES;7 SET
'D' FOR DRAFT;
'PD' FOR PROBLEM DRAFT;
'RV' FOR RELEASE ON-LINE VERIFIED;
'ROV' FOR RELEASE OFF-LINE VERIFIED;
'RNV' FOR RELEASE NOT VERIFIED;
'S' FOR SUPERSEDED;
'SRV' FOR SUPERSEDING RELEASE ON-LINE VERIFIED;
'SROV' FOR SUPERSEDING RELEASE OFF-LINE VERIFIED;
LAST EDITED: SEP 03, 1993
699.5,1507 DATE OF RELEASED ES;8 DATE (Required)
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
699.5,1508 DATE OF VERIFIED ES;9 DATE
INPUT TRANSFORM: S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
699.5,1509 SUPERSEDED ES;10 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: FEB 12, 1993
HELP-PROMPT: Type a Number between 0 and 999999999, 0 Decimal Digits
699.5,1510 SUPERSEDED BY ES;11 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99999999999999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: JUL 08, 1993
HELP-PROMPT: Type a Number between 0 and 99999999999999, 0 Decimal Digits
699.5,1511 MARK FOR DELETATION ES;12 SET
'1' FOR MARK FOR DELETION;
LAST EDITED: FEB 12, 1993
699.5,1512 DELETER DUZ ES;13 POINTER TO NEW PERSON FILE (#200)
LAST EDITED: FEB 12, 1993
699.5,1513 SUPERSEDED DATE ES;14 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: MAR 04, 1993
699.5,1514 CREATION DATE ES;15 DATE
INPUT TRANSFORM: S %DT="ETX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: FEB 12, 1993
699.5,1515 SUPERSEDED NUMBER ES;16 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: MAR 04, 1993
HELP-PROMPT: Type a Number between 0 and 999, 0 Decimal Digits
699.5,2005 IMAGE 2005;0 POINTER Multiple #699.52005
699.52005,.01 IMAGE 0;1 POINTER TO IMAGE FILE (#2005) (Multiply asked)
LAST EDITED: NOV 09, 1991
CROSS-REFERENCE: 699.52005^B
1)= S ^MCAR(699.5,DA(1),2005,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(699.5,DA(1),2005,"B",$E(X,1,30),DA)
FILES POINTED TO FIELDS
COMPLICATION (#696.9) COMPLICATIONS:COMPLICATIONS (#.01)
CONSULTATION TYPE (#699.82) CONSULTATION TYPE (#31.5)
DIAG/THERAP INTERVENT (#699.6) TECHNIQUE:TECHNIQUE (#.01)
DRUG (#50) MEDICATIONS:MEDICATIONS (#.01)
ICD DIAGNOSIS (#80) ICD DIAGNOSIS:ICD DIAGNOSIS (#.01)
IMAGE (#2005) IMAGE:IMAGE (#.01)
MEDICAL PATIENT (#690) MEDICAL PATIENT (#.02)
NEW PERSON (#200) PROVIDER/PHYSICIAN (#6)
PRIMARY PROVIDER (#701)
ENTERING DUZ (#1500)
VERIFYING DUZ (#1503)
DELETER DUZ (#1512)
ORDER (#100) ORIFN (#1000)
PROCEDURE/SUBSPECIALTY (#697.2) SUBSPECIALTY (#.05)
PROCEDURE (#.06)
REQUEST/CONSULTATION (#123) GMRCO (#1001)
VISIT (#9000010) PCC POINTER (#900)
INPUT TEMPLATE(S):
MCBLGEN MAY 15, 1997@11:12 USER #0
MCCONSULT MAR 09, 1993@13:13 USER #0
MCCONSULTBRIEF AUG 20, 1992@09:27 USER #0
MCFLGEN MAY 15, 1997@11:10 USER #0
MCGENERIC JAN 31, 1992@15:26 USER #0
MCGENERICBRIEF JUN 13, 1994@10:59 USER #0
PRINT TEMPLATE(S):
MCCONSULT MAY 13, 1996@11:09 USER #0 ^MCAROGC @
MCCONSULTBRPR MAY 13, 1996@11:10 USER #0 ^MCOBGC @
MCGENERICBRPR JUL 01, 1997@12:48 USER #0 ^MCOBGEN @
MCGENERICPRINT JUL 01, 1997@12:50 USER #0 ^MCAROGE @
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):