Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^MCAR(700

Package: Medicine

Global: ^MCAR(700


Information

FileMan FileNo FileMan Filename Package
700 PULMONARY FUNCTION TESTS Medicine

Description

Directly Accessed By Routines, Total: 53

Package Total Routines
Medicine 42 INTERPRETATION BY    ^MCAR(700    BLOOD GAS    COMP. FLOW VOL. LOOP INTERP.    COMP. GEN. ABG INTERP.    COMP. GEN. DIFFUSION INTERP.    COMP. GEN. FLOWS INTERP.    COMP. GEN. VOLUME INTERP.
COMP. GENERATED INTERPRETATION    CONSULT DX    FLOWS STUDY    ICD DIAGNOSIS    IMPRESSION    MCAR7P1    MCAR7P2    MCAROPF
MCARUTL1    MCBPFTP1    MCBPFTP2    MCBPFTP3    MCBPFTP4    MCBPFTP5    MCBPFTP7    MCFLPFT
MCOBPF    MCOBPFT    MCPFTEDIT    MCPFTEDITNEW    MCPFTI    MCPFTIC    MCPFTP    MCPFTP1
MCPFTP2    MCPFTP2A    MCPFTP3    MCPFTP4    MCPFTP5    MCPFTR    MCPOS01G    REASON FOR STOPPING
SPECIAL STUDY    VOLUME STUDY    
Clinical Procedures 5 MDCVT1    MDPFTP1    MDPFTP2    MDPFTP2A    MDPFTP3    

Accessed By FileMan Db Calls, Total: 12

Package Total Routines
Medicine 10 MCAR7P1    MCAR7P2    MCARE    MCBPFTP1    MCEF    MCPFTE    MCPFTI    MCPFTP
MCPFTP1    MCPFTR    
Clinical Procedures 2 MDPFTP1    MDPFTP3    

Pointed To By FileMan Files, Total: 1

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

Pointer To FileMan Files, Total: 12

Package Total FileMan Files
Medicine 6 MEDICAL PATIENT(#690)[1]    MEDICAL DESCRIPTION(#693)[#700.029(.01)]    INTERPRETATION(#693.2)[#700.022(.01)#700.023(.01)#700.024(.01)#700.026(.01)#700.027(.01)#700.033(.01)]    REASON (MEDICINE)(#695.8)[#700.3229(.01)]    MEDICAL DIAGNOSIS/ICD CODES(#697.5)[#700.01(.01)]    PFT PREDICTED VALUES(#700.1)[28]    
Consult Request Tracking 1 REQUEST/CONSULTATION(#123)[1001]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[#700.05(.01)]    
Kernel 1 NEW PERSON(#200)[103134701150015031512#700.021(.01)]    
Order Entry Results Reporting 1 ORDER(#100)[1000]    
PCE Patient Care Encounter 1 VISIT(#9000010)[900]    
Scheduling 1 HOSPITAL LOCATION(#44)[9]    

Fields, Total: 65

Field # Name Loc Type Details
.01 DATE/TIME 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 06, 2000
  • HELP-PROMPT:  Enter the date and time of the Pulmonary Function tests.
  • DESCRIPTION:  
    This field identifies the date/time of the Pulmonary Function tests.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  IDENTIFIER
  • CROSS-REFERENCE:  700^B
    1)= S ^MCAR(700,"B",$E(X,1,30),DA)=""
    2)= K ^MCAR(700,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  700^AC^MUMPS
    1)= S MCARCDIE="^MCAR(700," D CHGDTE1^MCARPROC
    2)= S MCARCDIE="^MCAR(700," D CHGDTE^MCARPROC
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent pulmonary function test procedure for this patient.
  • FIELD INDEX:  AG (#45) MUMPS IR ACTION
    Short Descr:  Cross Reference of "AV","AF", and "AS"
    Description:  This cross-reference will check if there are entries in fields 17,18,32 and execute the cross-references for those entries.
    Set Logic:  D EN^MCARUTL1("SET",DA,X(1),X(2),"ALL")
    Set Cond:  S X=X(1)]""&(X(2)]"")
    Kill Logic:  D EN^MCARUTL1("KILL",DA,X(1),X(2),"ALL")
    Kill Cond:  S X=X(1)]""&(X(2)]"")
    Whole Kill:  K ^MCAR(700,"AV"),^MCAR(700,"AF"),^MCAR(700,"AS")
    X(1):  MEDICAL PATIENT  (700,1)  (forwards)
    X(2):  DATE/TIME  (700,.01)  (forwards)
  • RECORD INDEXES:  ADI (#44)
.03 SUMMARY .2;1 SET
************************REQUIRED FIELD************************
  • 'N' FOR NORMAL;
  • 'A' FOR ABNORMAL;
  • 'B' FOR BORDERLINE;
  • 'T' FOR TECHNICALLY UNSATISFACTORY;

  • LAST EDITED:  APR 08, 1991
  • HELP-PROMPT:  Enter the summary of this procedure (N,A,B,T). This will appear on the Summary of Patient Procedures and the Health Summary.
  • DESCRIPTION:  
    This field identifies a brief summary of the PFT for use on the Summary of Patient Procedures and the Health Summary.  The Results portion of OERR is expected to trigger off this field in the future.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
1 MEDICAL PATIENT 0;2 POINTER TO MEDICAL PATIENT FILE (#690)
************************REQUIRED FIELD************************
MEDICAL PATIENT(#690)

  • LAST EDITED:  NOV 06, 2000
  • HELP-PROMPT:  Enter the patient's name
  • DESCRIPTION:  
    This field identifies the patient's name.
  • CROSS-REFERENCE:  700^C
    1)= S ^MCAR(700,"C",$E(X,1,30),DA)=""
    2)= K ^MCAR(700,"C",$E(X,1,30),DA)
    This cross-reference allows look-ups by patient.
  • CROSS-REFERENCE:  700^AD^MUMPS
    1)= S MCARCDIE="^MCAR(700," D CHGPAT^MCARPROC
    2)= S MCARCDIE="^MCAR(700," D KILL^MCARPROC
    This cross-reference makes an entry under the 'AC' index of the MEDICAL PATIENT file (#690) to record the most recent pulmonary function test procedure for this patient.
  • CROSS-REFERENCE:  700^AE^MUMPS
    1)= S ^MCAR(700,DA,"PV")=$$MCSEX^MCEF()
    2)= K ^MCAR(700,DA,"PV")
  • FIELD INDEX:  AG (#45) MUMPS IR ACTION
    Short Descr:  Cross Reference of "AV","AF", and "AS"
    Description:  This cross-reference will check if there are entries in fields 17,18,32 and execute the cross-references for those entries.
    Set Logic:  D EN^MCARUTL1("SET",DA,X(1),X(2),"ALL")
    Set Cond:  S X=X(1)]""&(X(2)]"")
    Kill Logic:  D EN^MCARUTL1("KILL",DA,X(1),X(2),"ALL")
    Kill Cond:  S X=X(1)]""&(X(2)]"")
    Whole Kill:  K ^MCAR(700,"AV"),^MCAR(700,"AF"),^MCAR(700,"AS")
    X(1):  MEDICAL PATIENT  (700,1)  (forwards)
    X(2):  DATE/TIME  (700,.01)  (forwards)
  • RECORD INDEXES:  ADI (#44)
2 HEIGHT (CM) 0;3 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>240)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 09, 1990
  • HELP-PROMPT:  Enter the height of the patient in centimeters: 0-240
  • DESCRIPTION:  
    This field identifies the Height of the patient in Centimeters.
3 HEIGHT (INCHES.TENTHS) 0;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<40)!(X?.E1"."3N.N) X
  • LAST EDITED:  JUN 28, 1999
  • HELP-PROMPT:  Type a Number between 40 and 100, 2 Decimal Digits
  • DESCRIPTION:  
    This field identifies the height of the patient in inches and tenths of inches.  This value will be converted to Centimeters for the report.
4 WEIGHT (POUNDS.TENTHS) 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>500)!(X<50)!(X?.E1"."2N.N) X
  • LAST EDITED:  AUG 10, 1990
  • HELP-PROMPT:  Type a Number between 50 and 500, 1 Decimal Digit
  • DESCRIPTION:  
    This field identifies the weight of the patients in pounds and tenths of pounds.  This value will be converted to Kilograms for the report.
5 WEIGHT (KG) 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>228)!(X<22)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 10, 1990
  • HELP-PROMPT:  Enter the weight of the patient in kilograms: 22-228
  • DESCRIPTION:  
    This field identifies the weight of the patient in Kilograms.
6 BAROMETRIC PRESSURE 0;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<600)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 28, 1990
  • HELP-PROMPT:  Enter the Barometric Pressure in Torr units: 600-999
  • DESCRIPTION:  
    This field identifies the Barometric Pressure in Torr units at the time the PFT was done
6.5 ROOM TEMPERATURE (CENTIGRADE) 0;12 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>35)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 12, 1991
  • HELP-PROMPT:  Enter the room temperature between 0 and 35 in degrees centigrade, 0 Decimal Digits
  • DESCRIPTION:  
    This field identifies the room temperature in degrees centigrade at the time the PFT was done
7 SMOKER 0;8 SET
************************REQUIRED FIELD************************
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  AUG 10, 1990
  • HELP-PROMPT:  Enter 'Y' if the patient is a smoker, 'N' is the patient is a nonsmoker.
  • DESCRIPTION:  
    This field tells whether the patient is a smoker or a non-smoker.
8 CURRENT BRONCHODILATOR 0;9 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  SEP 18, 1991
  • HELP-PROMPT:  Enter 'Y' if the patient has used a bronchodilator within 3 hours of the test, 'N' if the patient has not used a bronchodilator within 3 hours of the test.
  • DESCRIPTION:  
    This field tells whether the patient had used a Bronchodilator within 4 hours of the test.
9 WARD/CLINIC 0;10 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  FEB 28, 1990
  • HELP-PROMPT:  Enter the ward if the patient is an inpatient, or the clinic if the patient is an outpatient.
  • DESCRIPTION:  
    This field will be a ward if the patient is an inpatient, a clinic if the patient is an outpatient.
10 REFERRING PHYSICIAN 0;11 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
  • HELP-PROMPT:  Enter the name of the referring physician.
  • DESCRIPTION:  
    This field refers to the Physician who ordered the PFT.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
11 CONSULT DX 1;0 POINTER Multiple #700.01 700.01

  • DESCRIPTION:  
    This field identifies the diagnosis sent to the PFT lab by the Referring Physician.
17 VOLUME STUDY 3;0 SET Multiple #700.017 700.017

  • LAST EDITED:  MAR 01, 1991
  • DESCRIPTION:  
    The subfields of this field hold the Volume Study Data for the PFT.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
18 FLOWS STUDY 4;0 SET Multiple #700.018 700.018

  • LAST EDITED:  MAR 01, 1991
  • DESCRIPTION:  
    This field identifies stores data of the Flow Study done on the patient.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
19 DLCO-SB 5;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99.99)!(X<1)!(X?.E1"."3N.N) X
  • LAST EDITED:  NOV 06, 2000
  • HELP-PROMPT:  Type a Number between 1 and 99.99, 2 Decimal Digits
  • DESCRIPTION:  
    This field identifies the measured Diffusing Capacity.
  • RECORD INDEXES:  ADI (#44)
20 BLOOD GAS 6;0 SET Multiple #700.02 700.02

  • LAST EDITED:  SEP 12, 1991
  • DESCRIPTION:  
    This field is a multiple field which stores the data for the Arterial Blood Gas (ABG) Study.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
21 INTERPRETATION BY 7;0 POINTER Multiple #700.021 700.021

  • DESCRIPTION:  
    This field identifies the provider who interpreted the PFT
22 COMP. GEN. VOLUME INTERP. 8;0 POINTER Multiple #700.022 700.022
22.5 VOLUME INTERPRETATION 20;0 WORD-PROCESSING #700.06
23 COMP. GEN. FLOWS INTERP. 9;0 POINTER Multiple #700.023 700.023
23.5 FLOWS INTERPRETATION 21;0 WORD-PROCESSING #700.07
24 COMP. FLOW VOL. LOOP INTERP. 10;0 POINTER Multiple #700.024 700.024
24.5 FLOW VOLUME LOOP INTERP. 22;0 WORD-PROCESSING #700.08
26 COMP. GEN. DIFFUSION INTERP. 12;0 POINTER Multiple #700.026 700.026
26.5 DIFFUSION INTERPRETATION 23;0 WORD-PROCESSING #700.09
27 COMP. GEN. ABG INTERP. 13;0 POINTER Multiple #700.027 700.027
28 PREDICTED VALUE FORMULAS USED PV;1 POINTER TO PFT PREDICTED VALUES FILE (#700.1)
************************REQUIRED FIELD************************
PFT PREDICTED VALUES(#700.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^MCAR(700.1,+Y,1),U)=$G(MCSEX,U)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  DEC 21, 1990
  • HELP-PROMPT:  Enter the set of Formulas used for calculating the predicted values for Volumes and Flows.
  • DESCRIPTION:  
    This field identifies a pointer to the set of formulas used to calculate predicted values.
  • TECHNICAL DESCR:  
    ^^S ACT=ACT-(.132*PRED)
  • SCREEN:  S DIC("S")="I $P(^MCAR(700.1,+Y,1),U)=$G(MCSEX,U)"
  • EXPLANATION:  Chooses Predicted Value Formulas For the Sex of Patient
29 IMPRESSION 15;0 POINTER Multiple #700.029 700.029
30 COMMENTS AND RECOMMENDATIONS 16;0 WORD-PROCESSING #700.03

  • LAST EDITED:  JUN 04, 1990
  • DESCRIPTION:  
    This field identifies a word processing field which allows comments and recommendations to be entered by the interpreter.
31 REVIEWED BY 17;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
  • HELP-PROMPT:  Enter the provider's name who reviewed this test.
  • DESCRIPTION:  
    This field identifies the provider who reviewed the PFT.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
  • CROSS-REFERENCE:  ^^TRIGGER^700^701
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^MCAR(700,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(700,31,1,1,1.4)
    1.4)= S DIH=$S($D(^MCAR(700,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=700,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(700,D0,"PROV")):^("PROV"),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y X ^DD(700,31,1,1,2.1) X ^DD(700,31,1,1,2.4)
    2.1)= S X=DIV S Y(1)=$S($D(^MCAR(700,D0,17)):^(17),1:"") S X=$P(Y(1),U,1),X=X
    2.4)= S DIH=$S($D(^MCAR(700,DIV(0),"PROV")):^("PROV"),1:""),DIV=X S $P(^("PROV"),U,1)=DIV,DIH=700,DIG=701 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    CREATE VALUE)= INTERNAL(#31)
    DELETE VALUE)= INTERNAL(#31)
    FIELD)= #701
    This trigger sets the primary provider file.
32 SPECIAL STUDY S;0 SET Multiple #700.032 700.032

  • LAST EDITED:  AUG 21, 1992
  • DESCRIPTION:  
    This field identifies allows special study data to be entered for this PFT
33 COMP. GENERATED INTERPRETATION 24;0 POINTER Multiple #700.033 700.033

  • DESCRIPTION:  
    This field identifies stores the Computer Generated Interpretation(s) for the PFT and whether or not the Interpreter accepted the Interpretation.
33.5 FREE TEXT INTERPRETATION 25;0 WORD-PROCESSING #700.04

  • DESCRIPTION:  
    This field identifies a word processing field which allows the Interpreter to enter Interpretation(s) in addition to, or instead of, the Computer Generated Interpretations.
34 TECHNICIAN 0;13 POINTER TO NEW PERSON FILE (#200)
************************REQUIRED FIELD************************
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
  • HELP-PROMPT:  Enter the name of the technician who performed the test.
  • DESCRIPTION:  
    This field identifies the Technician who performed the PFT.
  • SCREEN:  S DIC("S")="I $D(^XUSEC(""PROVIDER"",+Y))"
35 FLOW STUDY MACHINE 17;2 SET
  • 'F' FOR FLOW TURBINE;
  • 'P' FOR PNEUMOTACH;
  • 'A' FOR ANEMOMETER;
  • 'DS' FOR DRY WATER SEAL;
  • 'WS' FOR WATER SEAL;
  • 'W' FOR WEDGE;

  • LAST EDITED:  JUN 04, 1990
  • HELP-PROMPT:  Enter the type of machine that the Flow Study(ies) were performed on
  • DESCRIPTION:  
    This field identifies the type of machine used for the Flow Study.
37 DIFFUSING CAPACITY METHOD 17;4 SET
  • '1' FOR SINGLE BREATH;
  • '2' FOR STEADY STATE;

  • LAST EDITED:  JUN 04, 1990
  • HELP-PROMPT:  Enter the method by which the Diffusing Capacity (DLCO) test was performed
  • DESCRIPTION:  
    This field identifies the Method used for the Diffusing Capacity (DLCO) Test.
38 USE RACE CORRECTIONS 17;5 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  DEC 21, 1990
  • HELP-PROMPT:  Answer 'Yes' or 'No'. The system has built in corrections for the predicted value formulas for 'Black' or 'Asian' patients. 'Yes' will include these corrections in the Predicted Value Formulas.
  • DESCRIPTION:  
    This field allows the user to decide whether certain data should be race corrected.  Used for Black or Oriental patients.
38.5 RACE CORRECTIONS FOR RACE TYPE 17;7 SET
  • 'B' FOR BLACK;
  • 'A' FOR ASIAN;

  • LAST EDITED:  JAN 24, 2003
  • HELP-PROMPT:  Enter B for BLACK or A for ASIAN.
  • DESCRIPTION:  
    If the 'USE RACE CORRECTIONS' is set to YES and the race value is both BLACK and ASIAN, this field will store which race type the race correction will be for.
  • TECHNICAL DESCR:  
    This field will store either a 'B' for BLACK or 'A' for ASIAN.
39 PATIENT EFFORT 17;6 SET
  • 'E' FOR EXCELLENT;
  • 'G' FOR GOOD;
  • 'P' FOR POOR;

  • LAST EDITED:  JUN 04, 1990
  • HELP-PROMPT:  Enter the Code for the correct patient effort.
  • DESCRIPTION:  
    This field indicates the patient effort:  GOOD, EXCELLENT, or POOR.
40 RELEASE REPORT 2;1 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  AUG 24, 1992
41 OTHER REASON FOR STOPPING 19;0 WORD-PROCESSING #700.041
600 PROCEDURE SUMMARY .2;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>79!($L(X)<1) X
  • LAST EDITED:  NOV 28, 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 79 character summary of the PFT.  Will appear on the Summary of Patient Procedures.
  • TECHNICAL DESCR:  
    ORDER ENTRY TYPE:  UNKNOWN
700 ICD DIAGNOSIS ICD;0 POINTER Multiple #700.05 700.05

  • 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 REVIEWED BY field of the PULMONARY FUNCTION TESTS 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:  700^APCE
    1)= S ^MCAR(700,"APCE",$E(X,1,30),DA)=""
    2)= K ^MCAR(700,"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. Pointer to (#100).
  • 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:  JUL 16, 1992
  • HELP-PROMPT:  Enter the 'Request/Consultation' internal file number. Pointer to (#123).
  • 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.
1500 ENTERING DUZ ES;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 28, 1993
1501 COSIGNER VALIDATION CODE ES;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JAN 28, 1993
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
1502 ENTERING DATE ES;3 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 28, 1993
1503 VERIFYING DUZ ES;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 28, 1993
1504 SIGNER VALIDATION CODE ES;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JAN 28, 1993
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
1505 VERIFIER DATE ES;6 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 28, 1993
1506 RELEASE STATUS ES;7 SET
  • 'D' FOR DRAFT;
  • 'PD' FOR PROBLEM DRAFT;
  • 'RV' FOR RELEASED ON-LINE VERIFIED;
  • 'ROV' FOR RELEASED OFF-LINE VERIFIED;
  • 'RNV' FOR RELEASED NOT VERIFIED;
  • 'S' FOR SUPERSEDED;
  • 'SRV' FOR RELEASED ON-LINE VERIFIED OF SUPERSEDED;
  • 'SROV' FOR RELEASED OFF-LINE VERIFIED OF SUPERSEDED;

  • LAST EDITED:  DEC 14, 1993
1507 DATE OF RELEASED ES;8 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 28, 1993
1508 DATE OF VERIFIED ES;9 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 28, 1993
1509 SUPERSEDED ES;10 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 28, 1993
  • HELP-PROMPT:  Type a Number between 0 and 9999999999, 0 Decimal Digits
1510 SUPERSEDED BY ES;11 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 28, 1993
  • HELP-PROMPT:  Type a Number between 0 and 9999999999, 0 Decimal Digits
1511 MARK FOR DELETION ES;12 SET
  • '1' FOR MARK FOR DELETION;

  • LAST EDITED:  JAN 28, 1993
1512 DELETER DUZ ES;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 28, 1993
1513 SUPERSEDED DATE ES;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  JAN 28, 1993
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
1514 CREATION DATE ES;15 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 03, 1993
  • HELP-PROMPT:  Enter the date that this record was created.
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

External References

Name Field # of Occurrence
^%DT .01+1, 1502+1, 1505+1, 1507+1, 1508+1, 1514+1
^DIC 10+1, 28+1, 31+1, 34+1, 701+1
^DICR 31(XREF 1n1.4), 31(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)
EN^MCARUTL1 IXAGSL+1, IXAGKL+1
$$MCSEX^MCEF 1(XREF 3S)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( 31(XREF 1n1.4), 31(XREF 1n2.4)
^DD(690 ID1+1
^DD(700 31(XREF 1S), 31(XREF 1K)
^MCAR(690 - [#690] ID1+1
^MCAR(700 - [#700] IXADISL+1*, IXADIKL+1!, IXADIKEIC+1!, IXAGKEIC+1!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 3S), 1(XREF 3K)
31(XREF 1S), 31(XREF 1n1.4), 31(XREF 1K), 31(XREF 1n2.1), 31(XREF 1n2.4), 900(XREF 1S), 900(XREF 1K)

Naked Globals

Name Field # of Occurrence
^("ES" IDX1+1
^("PROV" 31(XREF 1S), 31(XREF 1n1.4), 31(XREF 1K), 31(XREF 1n2.4)
^(0 ID1+1
^(17 31(XREF 1n2.1)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .01+1*, 1502+1*, 1505+1*, 1507+1*, 1508+1*, 1514+1*
%I ID1+1*!
>> C ID1+1*
>> D0 31(XREF 1S), 31(XREF 1K), 31(XREF 1n2.1)
>> DA IXADISL+1, IXADIKL+1, IXAGSL+1, IXAGKL+1, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K), 1(XREF 3S), 1(XREF 3K)
31(XREF 1S), 31(XREF 1K), 900(XREF 1S), 900(XREF 1K)
DIC ID1+1, IDX1+1, 10+1!*, 28+1!*, 31+1!*, 34+1!*, 701+1!*
DIC("S" 10+1*, 28+1*, 28SCR+1*, 31+1*, 34+1*, 701+1*
>> DIE 10+1, 28+1, 31+1, 34+1, 701+1
>> DIG 31(XREF 1n1.4), 31(XREF 1n2.4)
>> DIH 31(XREF 1n1.4), 31(XREF 1n2.4)
>> DIU 31(XREF 1S), 31(XREF 1K)
DIV 31(XREF 1S), 31(XREF 1n1.4), 31(XREF 1K), 31(XREF 1n2.1), 31(XREF 1n2.4)
DIV(0 31(XREF 1S), 31(XREF 1n1.4), 31(XREF 1K), 31(XREF 1n2.4)
>> MCARCDIE .01(XREF 2S), .01(XREF 2K), 1(XREF 2S), 1(XREF 2K)
U ID1+1, 31(XREF 1S), 31(XREF 1n1.4), 31(XREF 1K), 31(XREF 1n2.1), 31(XREF 1n2.4)
X IXADISCC+1*, IXADIKCC+1*, IXADIP2TS+1*, IXAGSCC+1*, IXAGKCC+1*, .01+1*!, .01(XREF 1S), .01(XREF 1K), 1(XREF 1S), 1(XREF 1K)
, 2+1!, 3+1!, 4+1!, 5+1!, 6+1!, 6.5+1!, 10+1*!, 19+1!, 28+1*!, 31+1*!
31(XREF 1S), 31(XREF 1n1.4), 31(XREF 1K), 31(XREF 1n2.1), 31(XREF 1n2.4), 34+1*!, 600+1!, 701+1*!, 900(XREF 1S), 900(XREF 1K)
, 1501+1!, 1502+1*!, 1504+1!, 1505+1*!, 1507+1*!, 1508+1*!, 1509+1!, 1510+1!, 1513+1!, 1514+1*!
, 1515+1!
X(1 IXADISL+1, IXADIKL+1, IXAGSL+1, IXAGSCC+1, IXAGKL+1, IXAGKCC+1
X(2 IXADISL+1, IXADIKL+1, IXAGSL+1, IXAGSCC+1, IXAGKL+1, IXAGKCC+1
X(3 IXADISCC+1, IXADIKCC+1
Y ID1+1*, .01+1, 10+1, 28+1, 31+1, 31(XREF 1S), 31(XREF 1K), 34+1, 701+1, 1502+1
, 1505+1, 1507+1, 1508+1, 1514+1
Y(1 31(XREF 1S), 31(XREF 1K), 31(XREF 1n2.1)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All