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 |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^AUPNVSIT

Package: PCE Patient Care Encounter

Global: ^AUPNVSIT


Information

FileMan FileNo FileMan Filename Package
9000010 VISIT PCE Patient Care Encounter

Description

Directly Accessed By Routines, Total: 205

Package Total Routines
PCE Patient Care Encounter 112 PXAICPTV    PXAIMOD    PXAIPL    PXAIPRV    PXAIVSTV    PXAPIDEL    PXAPIOE    PXBAPI1
PXBAPI21    PXBGVST    PXBMCPT2    PXBMPRV    PXBPCPT    PXBPL    PXBSTOR    PXBSTOR1
PXCAVST1    PXCE    PXCEC800    PXCECPT1    PXCEHLOC    PXCEVFI5    PXCPTAPI    PXDXUTL
PXICLN1    PXICLN27    PXICLN9B    PXKCO    PXKENC    PXKMAIN    PXKVST    PXPXRM
PXPXRMI1    PXPXRMI2    PXQGVST    PXQMAIN4    PXQUTL    PXRRECSE    PXRRFDSE    PXRRMDR
PXRRPCE1    PXRRWLS2    PXVDIS    PXVUTIL    ^AUPDVIMM    ^AUPNVPED    ^AUPNVSK    PXVRESP
VSIT    VSITOE    VSITVAR    ^AUPNVCPT    ^AUPNVPOV    ^AUPNVSIT    ^AUPNVXAM    AUPNVSIT
PXAI    PXAICPT    PXAIPOV    PXAIPRVV    PXAIVST    PXAPI    PXBAPI    PXBDPRV
PXBGPRV    PXBGPRV2    PXBGPRV3    PXBGPRV4    PXBGSTP    PXBMCPT    PXBMPOV    PXBMSTP
PXBPSTP    PXCE ADD/EDIT KNOWN ENCOUNTER    PXCE ENCOUNTER EDIT    PXCEAE    PXCEAE1    PXCECPT    PXCECSTP    PXCED800
PXCEEXP    PXCEINTR    PXCEPAT    PXCEPRV    PXCESDAM    PXCEVFI1    PXCEVFI2    PXCEVFIL
PXICLN17    PXKMAIN2    PXKMASC    PXQMAIN1    PXQUTL3A    PXRRPCE3    PXRRPRDP    PXRRWLSE
PXUTL1    PXUTLSTP    PXVRPC7A    PXVRPC8    PXVXR    VSITDEF    VSITGET    VSITKIL
VSITPUT1    VSITSTAT    VSITVID    ^AUPNVHF    ^AUPNVICR    ^AUPNVIMM    ^AUPNVPRV    ^AUPNVTRT
Scheduling 26 SCCVPCE    SCENIA2    SCRPW1    SCRPW18    SCRPW24    SD53103A    SD5396PT    SD53P491
SDAMEVT3    SDAMOL1    SDAMVSC    SDCED    SDCO22    SDEC25B    SDECALV    SDECALV1
SDECALVR    SDECAPI4    SDECUTL    SDECV    SDOEOE    SDSCAPI    SDSCEDT    SDSCUTL
SDVSIT    SDVSIT2    
Text Integration Utility 16 TIUEDS    TIUENV    TIUEPN    TIULV    TIUP134    TIUP146    TIUPNCVX    TIUPXAP3
TIUPXPM    TIUSRVLC    TIUSRVLV    TIUSRVP    TIUVISIT    TIUXRC1    TIUXRC2    TIUXRC3
Clinical Reminders 11 PXRMDATE    PXRMETXR    PXRMFNFT    PXRMG2E1    PXRMGECV    PXRMLOCF    PXRMLOCL    PXRMMST
PXRMNTFY    PXRMVSIT    PXRMXX    
Virtual Patient Record 8 VPRDJ04    VPRDJ04A    VPRDJ09    VPRDPXAM    VPRDPXED    VPRDPXHF    VPRDPXSK    VPRSDAQ
Enterprise Health Management Platform 5 HMPDJ02    HMPDJ02A    HMPDJ04    HMPDJ04E    HMPWB5    
Clinical Case Registries 3 RORHL18    RORHL19    RORUTL21    
Integrated Billing 3 IB20P565    IBCNEDE3    IBEFUNC3    
Oncology 3 ONC DISEASE INDEX    ONC DISEASE INDEX CASEFINDING    ONCFUNC    
Order Entry Results Reporting 2 ORWGAPI6    ORWGAPI8    
Prosthetics 2 RMPR145P    RMPRPCED    
Accounts Receivable 1 RCXVDC5    
Automated Medical Information Exchange 1 DVBABTIU    
Barcode Medication Administration 1 PSBVITFL    
Clinical Information Resource Network 1 RGHOUT    
DSS Extracts 1 ECXSURG    
Enrollment Application System 1 EASUER    
Kernel 1 ^ORD(101    
Lab Service 1 LREPI3    
Medicine 1 MCPOS04    
Pharmacy Benefits Management 1 PSUDEM2    
Registration 1 DGPMVBUR    

Accessed By FileMan Db Calls, Total: 55

Package Total Routines
Scheduling 18 SCENIA2    SCMCENCT    SCRPW1    SD53P491    SDAMVSC    SDCO0    SDEC25    SDEC25B
SDECAPI4    SDECUTL    SDECV    SDRPA08    SDSCAPI    SDSCEDT    SDSCLM    SDSCNSCP
SDSCOMP    SDVSIT    
PCE Patient Care Encounter 13 PXCAVST    PXCEPAT    PXCESIT    PXQMAIN4    PXRRECSC    PXRRGPRT    PXRRMDR    PXRRMDR1
VSIT    VSITKIL    VSITOE    VSITPUT1    VSITVID    
Text Integration Utility 5 TIUHL7P2    TIUP134P    TIUP146P    TIUP149P    TIUVISIT    
Clinical Reminders 4 PXRMLOCF    PXRMXGPR    PXRMXSC    PXRMXTD    
Integrated Billing 4 IBCD    IBCD2    IBCSC10B    IBCU41    
Enterprise Health Management Platform 3 HMPDJ04    HMPDJ09    HMPEQLM    
Clinical Case Registries 2 RORHL18    RORHL19    
Accounts Receivable 1 RCXVUTIL    
Automated Information Collection System 1 IBDFRPC6    
Clinical Information Resource Network 1 RGHOUT    
Master Patient Index VistA 1 MPIFDODC    
Oncology 1 ONCOPRT    
Prosthetics 1 RMPR145P    

Pointed To By FileMan Files, Total: 41

Package Total FileMan Files
Medicine 15 ECHO(#691)[900]    CARDIAC CATHETERIZATION(#691.1)[900]    ELECTROCARDIOGRAM (EKG)(#691.5)[900]    HOLTER(#691.6)[900]    EXERCISE TOLERANCE TEST(#691.7)[900]    ELECTROPHYSIOLOGY (EP)(#691.8)[900]    HEMATOLOGY(#694)[900]    GENERATOR IMPLANT(#698)[900]    V LEAD IMPLANT(#698.1)[900]    A LEAD IMPLANT(#698.2)[900]    PACEMAKER SURVEILLANCE(#698.3)[900]    ENDOSCOPY/CONSULT(#699)[900]    GENERALIZED PROCEDURE/CONSULT(#699.5)[900]    PULMONARY FUNCTION TESTS(#700)[900]    RHEUMATOLOGY(#701)[900]    
PCE Patient Care Encounter 13 V IMMUNIZATION DELETED(#9000080.11)[.03]    V CPT(#9000010.18)[.03]    V HEALTH FACTORS(#9000010.23)[.03]    V IMM CONTRA/REFUSAL EVENTS(#9000010.707)[.03]    V IMMUNIZATION(#9000010.11)[.03]    V PATIENT ED(#9000010.16)[.03]    V POV(#9000010.07)[.03]    V PROVIDER(#9000010.06)[.03]    VISIT(#9000010)[.12]    V SKIN TEST(#9000010.12)[.03]    V TREATMENT(#9000010.15)[.03]    V EXAM(#9000010.13)[.03]    PCE DEVICE INTERFACE MODULE ERRORS(#839.01)[.03]    
Registration 2 PATIENT MOVEMENT(#405)[.27]    PTF(#45)[#45.06(.06)]    
Text Integration Utility 2 TIU DOCUMENT(#8925)[.031207]    TIU AUDIT TRAIL(#8925.5)[1.111.12]    
Clinical Procedures 1 CP TRANSACTION(#702)[.13]    
Clinical Reminders 1 REMINDER EXTRACT SUMMARY(#810.3)[#810.31(.07)]    
Emergency Department Integration Software 1 ED LOG(#230)[.12]    
Event Capture 1 EVENT CAPTURE PATIENT(#721)[28]    
Integrated Billing 1 CLAIMS TRACKING(#356)[.03]    
Prosthetics 1 RECORD OF PROS APPLIANCE/REPAIR(#660)[8.12]    
Radiology Nuclear Medicine 1 RAD/NUC MED PATIENT(#70)[#70.03(27)]    
Scheduling 1 OUTPATIENT ENCOUNTER(#409.68)[.05]    
Surgery 1 SURGERY(#130)[.015]    

Pointer To FileMan Files, Total: 12

Package Total FileMan Files
Kernel 4 OPTION(#19)[.24]    PACKAGE(#9.4)[81202]    PROTOCOL(#101)[.25]    NEW PERSON(#200)[.23]    
PCE Patient Care Encounter 4 PATIENT/IHS(#9000001)[.05]    VISIT(#9000010)[.12]    LOCATION(#9999999.06)[.06]    PCE DATA SOURCE(#839.7)[81203]    
Scheduling 2 CLINIC STOP(#40.7)[.08]    HOSPITAL LOCATION(#44)[.22]    
Integrated Billing 1 PFSS ACCOUNT(#375)[.26]    
Registration 1 ELIGIBILITY CODE(#8)[.21]    

Fields, Total: 41

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

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 21, 1996
  • DESCRIPTION:  
    Type date of visit. Must be between DOB and today. In the VA this reflects the visit appointment and or event date time.
  • DELETE TEST:  .01,0)= I 1
  • GROUP:  VA/IHS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010^B
    1)= S ^AUPNVSIT("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVSIT("B",$E(X,1,30),DA)
    Regular B cross reference on .01 Visit/Admit Date&Time ^AUPNVSIT("B",Visit/Admit Date&Time,ien)=""
  • CROSS-REFERENCE:  9000010^AAHTOO^MUMPS
    1)= I $P(^AUPNVSIT(DA,0),U,5),$P(^(0),U,7)]"",$P(^(0),U,7)="H" S ^AUPNVSIT("AAH",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(X,".",1))_$S($P(X,".",2)'="":"."_$P(X,".",2),1:"")),DA)=""
    2)= I $P(^AUPNVSIT(DA,0),U,5),$P(^(0),U,7)]"",$P(^(0),U,7)="H" K ^AUPNVSIT("AAH",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(X,".",1))_$S($P(X,".",2)'="":"."_$P(X,".",2),1:"")),DA)
    This cross reference indexes Hospitalization visits (#.07=H) by patient and inverse visit date. Used to get at the last n Hospitalizations.
  • CROSS-REFERENCE:  9000010^AA-TOO^MUMPS
    1)= I $P(^AUPNVSIT(DA,0),U,5) S ^AUPNVSIT("AA",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(X,".",1))_$S($P(X,".",2)'="":"."_$P(X,".",2),1:"")),DA)=$S(+$P(^AUPNVSIT(DA,0),U,21):+$P(^(0),U,21),1:"")
    2)= I $P(^AUPNVSIT(DA,0),U,5) K ^AUPNVSIT("AA",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(X,".",1))_$S($P(X,".",2)'="":"."_$P(X,".",2),1:"")),DA)
    This cross reference indexes the visits by patient and inverse date. It is used to find the last n visits by a particular patient. Used by PCC Q-Man, PCC Health Summary, PCC Management Reports, etc. The name AA-TOO
    signifies that the cross reference used several field values and therefore the index AA is set on all of the fields.
  • CROSS-REFERENCE:  9000010^AET1^MUMPS
    1)= I $P($G(^AUPNVSIT(DA,150)),U,3)]"",$P($G(^AUPNVSIT(DA,0)),U,22)]"",$P($G(^AUPNVSIT(DA,0)),U,5)]"" S ^AUPNVSIT("AET",$P(^AUPNVSIT(DA,0),U,5),X,$P(^AUPNVSIT(DA,0),U,22),$P(^AUPNVSIT(DA,150),U,3),DA)=""
    2)= I $P($G(^AUPNVSIT(DA,150)),U,3)]"",$P($G(^AUPNVSIT(DA,0)),U,22)]"",$P($G(^AUPNVSIT(DA,0)),U,5)]"" K ^AUPNVSIT("AET",$P(^AUPNVSIT(DA,0),U,5),X,$P(^AUPNVSIT(DA,0),U,22),$P(^AUPNVSIT(DA,150),U,3),DA)
    Cross reference for OE 3 and CPRS this gives the patient, visit date/time, hospital location, encounter type, visit IEN. It is set to Service Category.
  • CROSS-REFERENCE:  9000010^ADEL2^MUMPS
    1)= I $G(DUZ("AG"))'?1"I"0.1"HS",+$P(^AUPNVSIT(DA,0),"^",9)'>0 S ^AUPNVSIT("ADEL",+X,DA)=""
    2)= K ^AUPNVSIT("ADEL",+X,DA)
    This sets the "delete" flag based upon the Dependent Entry Count.
  • CROSS-REFERENCE:  9000010^AHL2^MUMPS
    1)= I $P(^AUPNVSIT(DA,0),U,22) S ^AUPNVSIT("AHL",$P(^AUPNVSIT(DA,0),U,22),((9999999-$P(X,".",1))_$S($P(X,".",2)'="":"."_$P(X,".",2),1:"")),DA)=""
    2)= I $P(^AUPNVSIT(DA,0),U,22) K ^AUPNVSIT("AHL",$P(^AUPNVSIT(DA,0),U,22),((9999999-$P(X,".",1))_$S($P(X,".",2)'="":"."_$P(X,".",2),1:"")),DA)
    This cross reference indexes the visits by hospital location and inverse date. It is used to find a date/time range of visits by a particular hospital location. The name AHL2 signifies that the cross reference used
    several field values and therefore the index AHL is set on all of the fields.
.02 DATE VISIT CREATED 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EXRS" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  JUN 10, 1996
  • HELP-PROMPT:  SYSTEM GENERATED
  • DESCRIPTION:  Generated when new visit added to subfile. Date visit added to file. Usually stuffed with DT.
    A date between 1960 and today.
  • GROUP:  IHS/VA
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.03 TYPE 0;3 SET
************************REQUIRED FIELD************************
  • 'I' FOR IHS;
  • 'C' FOR CONTRACT;
  • 'T' FOR TRIBAL;
  • 'O' FOR OTHER;
  • '6' FOR 638 PROGRAM;
  • 'V' FOR VA;

  • LAST EDITED:  MAY 12, 1988
  • DESCRIPTION:  
    IHS- The type of visit. Differentiates between various categories of visit types. E.g. A visit provided by contract care funds versus a visit directing provided by IHS. I-IHS, C-Contract, V-VA, O-Other, 6-638 Program.
  • GROUP:  IHS
.05 PATIENT NAME 0;5 POINTER TO PATIENT/IHS FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT/IHS(#9000001)

  • LAST EDITED:  MAY 21, 1996
  • DESCRIPTION:  
    Pointer to the Patient file.
  • GROUP:  IHS
    UNEDITABLE
  • CROSS-REFERENCE:  9000010^C
    1)= S ^AUPNVSIT("C",$E(X,1,30),DA)=""
    2)= K ^AUPNVSIT("C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010^AA^MUMPS
    1)= S ^AUPNVSIT("AA",X,((9999999-$P(+^AUPNVSIT(DA,0),".",1))_$S($P(+^AUPNVSIT(DA,0),".",2)'="":"."_$P(+^(0),".",2),1:"")),DA)=$S(+$P(^AUPNVSIT(DA,0),U,21):+$P(^(0),U,21),1:"")
    2)= K ^AUPNVSIT("AA",X,((9999999-$P(+^AUPNVSIT(DA,0),".",1))_$S($P(+^AUPNVSIT(DA,0),".",2)'="":"."_$P(+^(0),".",2),1:"")),DA)
    Indexes visits by patient and inverse visit date. Used to find the last n visits made by a patient.
  • CROSS-REFERENCE:  9000010^AAHTOO2^MUMPS
    1)= I $P(^AUPNVSIT(DA,0),U,7)]"",$P(^(0),U,7)="H" S ^AUPNVSIT("AAH",X,((9999999-$P(+^AUPNVSIT(DA,0),".",1))_$S($P(+^AUPNVSIT(DA,0),".",2)'="":"."_$P(+^(0),".",2),1:"")),DA)=""
    2)= I $P(^AUPNVSIT(DA,0),U,7)]"",$P(^(0),U,7)="H" K ^AUPNVSIT("AAH",X,((9999999-$P(+^AUPNVSIT(DA,0),".",1))_$S($P(+^AUPNVSIT(DA,0),".",2)'="":"."_$P(+^(0),".",2),1:"")),DA)
    Indexes HOSPITALIZATION visits by patient, inverse visit date. Used to find the last n Hospitaliations for a given patient.
  • CROSS-REFERENCE:  9000010^AET2^MUMPS
    1)= I $P($G(^AUPNVSIT(DA,150)),U,3)]"",$P($G(^AUPNVSIT(DA,0)),U,22)]"" S ^AUPNVSIT("AET",X,$P(^AUPNVSIT(DA,0),U,1),$P(^AUPNVSIT(DA,0),U,22),$P(^AUPNVSIT(DA,150),U,3),DA)=""
    2)= I $P($G(^AUPNVSIT(DA,150)),U,3)]"",$P($G(^AUPNVSIT(DA,0)),U,22)]"" K ^AUPNVSIT("AET",X,$P(^AUPNVSIT(DA,0),U,1),$P(^AUPNVSIT(DA,0),U,22),$P(^AUPNVSIT(DA,150),U,3),DA)
    Cross reference for OE 3 and CPRS this gives the patient, visit date/time, hospital location, encounter type, visit IEN. It is set to Service Category.
.06 LOC. OF ENCOUNTER 0;6 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • LAST EDITED:  AUG 16, 1995
  • DESCRIPTION:  
    Pointer to the location file. Location where the visit took place. In the VA, the Location file entries will be based on the current entries in the institution file, so this field represents the institution.
  • GROUP:  IHS
.07 SERVICE CATEGORY 0;7 SET
  • 'A' FOR AMBULATORY;
  • 'H' FOR HOSPITALIZATION;
  • 'I' FOR IN HOSPITAL;
  • 'C' FOR CHART REVIEW;
  • 'T' FOR TELECOMMUNICATIONS;
  • 'N' FOR NOT FOUND;
  • 'S' FOR DAY SURGERY;
  • 'O' FOR OBSERVATION;
  • 'E' FOR EVENT (HISTORICAL);
  • 'R' FOR NURSING HOME;
  • 'D' FOR DAILY HOSPITALIZATION DATA;
  • 'X' FOR ANCILLARY PACKAGE DAILY DATA;

  • LAST EDITED:  MAY 21, 1996
  • DESCRIPTION:  This service category field represents what kind of service was provided. The IHS definition is represented by a set of codes. This field can be used by IHS to screen on service categories.
    The VA continues to populate this field to be backward compatible with IHS utilities depending on this field.
    The VA uses the Service Provided file (#150.1) to define a more detailed file of services provided. When a VA user identifies the Service Provided (field 15001), a trigger will automatically populate this service
    category based on relationships between entries in File 150.1 and the set of codes for this field.
  • GROUP:  IHS
  • CROSS-REFERENCE:  9000010^AAH^MUMPS
    1)= I X="H",$P(^AUPNVSIT(DA,0),U,5)]"" S ^AUPNVSIT("AAH",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(+^(0),".",1))_$S($P(+^(0),".",2):"."_$P(+^(0),".",2),1:"")),DA)=""
    2)= I X="H",$P(^AUPNVSIT(DA,0),U,5)]"" K ^AUPNVSIT("AAH",$P(^AUPNVSIT(DA,0),U,5),((9999999-$P(+^(0),".",1))_$S($P(+^(0),".",2):"."_$P(+^(0),".",2),1:"")),DA)
    Indexes Hospitalization visits by patient and inverse visit date. Used to find the last n Hospitalizations for a given patient.
.08 DSS ID 0;8 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#40.7)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)=""""!($P(^(0),U,3)'<$P(^AUPNVSIT(DA,0),U))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 15, 1996
  • DESCRIPTION:  
    Pointer to the Clinic Stop file. Organized clinic in which this visit took place. E.g. Pediatrics, General
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)=""""!($P(^(0),U,3)'<$P(^AUPNVSIT(DA,0),U))"
  • EXPLANATION:  ALLOW PAST VISITS
  • GROUP:  IHS/VA
.09 DEPENDENT ENTRY COUNT 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 19, 1992
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999
  • DESCRIPTION:  IHS- a count of how many "V" file entries are pointing to this visit. If the count is zero, the visit should be deleted. Field is updated by a cross reference in each "V" file that calls routine ADD^AUPNVSIT or
    SUB^AUPNVSIT.
    WRITE AUTHORITY: ^
  • GROUP:  IHS/VA
    UNEDITABLE
  • CROSS-REFERENCE:  9000010^ADEL^MUMPS
    1)= I $G(DUZ("AG"))'?1"I"0.1"HS" S:X'>0 ^AUPNVSIT("ADEL",+^AUPNVSIT(DA,0),DA)="" K:X>0 ^AUPNVSIT("ADEL",+^AUPNVSIT(DA,0),DA)
    2)= Q
.11 DELETE FLAG 0;11 SET
  • '0' FOR ACTIVE;
  • '1' FOR DELETED;

  • LAST EDITED:  NOV 11, 1986
  • DESCRIPTION:  
    Flag set to signify that the visit has been deleted.
    WRITE AUTHORITY: ^
  • GROUP:  IHS/VA
    UNEDITABLE
.12 PARENT VISIT LINK 0;12 POINTER TO VISIT FILE (#9000010) VISIT(#9000010)

  • LAST EDITED:  APR 15, 1996
  • DESCRIPTION:  
    The PARENT VISIT LINK field points back to the VISIT file.
  • GROUP:  IHS/VA
  • CROSS-REFERENCE:  9000010^AD
    1)= S ^AUPNVSIT("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVSIT("AD",$E(X,1,30),DA)
    PARENT VISIT LINK
  • CROSS-REFERENCE:  9000010^APV^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
    This updates the dependent entry count when a child visit is created.
.13 DATE LAST MODIFIED 0;13 DATE

  • INPUT TRANSFORM:  S %DT="EXRS" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  APR 15, 1996
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1960 AND TODAY
  • DESCRIPTION:  
    Date on which the visit was last modified. Any time a field in the visit file or a V File is added or deleted, this field is automatically updated with the current date.
  • GROUP:  IHS/VA
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.18 CHECK OUT DATE&TIME 0;18 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 17, 1994
  • HELP-PROMPT:  Enter the date and time the patient checked out.
  • DESCRIPTION:  
    This field is the date and time the patient checked out for this visit. This field will only store the information temporarily and will be empty.
  • TECHNICAL DESCR:  
    This data is passed from the MCCR event data capture and then passed from PCE to PIMS 5.3 for automated check-out.
.21 ELIGIBILITY 0;21 POINTER TO ELIGIBILITY CODE FILE (#8) ELIGIBILITY CODE(#8)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^DPT($S($D(DFN):DFN,1:$P(^AUPNVSIT(DA,0),""^"",5)),""E"",+Y,0))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 04, 1995
  • HELP-PROMPT:  Select the eligibility which best describes the patient's entitlement to care for this visit.
  • DESCRIPTION:  
    Defines the patient's eligibility for this visit.
  • SCREEN:  S DIC("S")="I $D(^DPT($S($D(DFN):DFN,1:$P(^AUPNVSIT(DA,0),""^"",5)),""E"",+Y,0))"
  • EXPLANATION:  only valid eligibilities for this pt.
  • GROUP:  VA
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010^AVAA2^MUMPS
    1)= I +$P(^AUPNVSIT(DA,0),"^",5) S ^AUPNVSIT("AA",$P(^AUPNVSIT(DA,0),"^",5),((9999999-$P(+^AUPNVSIT(DA,0),"."))_$S($P(+^AUPNVSIT(DA,0),".",2)'="":"."_$P(+^(0),".",2),1:"")),DA)=$S(+X:+X,1:"")
    2)= I +$P(^AUPNVSIT(DA,0),"^",5),$D(^AUPNVSIT("AA",$P(^AUPNVSIT(DA,0),"^",5),((9999999-$P(+^AUPNVSIT(DA,0),"."))_$S($P(+^AUPNVSIT(DA,0),".",2)'="":"."_$P(+^(0),".",2),1:"")),DA)) S ^(DA)=""
    3)= This is a required field.
    Set the "AA" cross reference equal to the pt's eligibility (pointer).
.22 HOSPITAL LOCATION 0;22 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  MAY 21, 1996
  • HELP-PROMPT:  Answer with the name of the hospital location where this visit occurred.
  • DESCRIPTION:  
    The hospital location where this visit occurred.
  • GROUP:  VA
  • CROSS-REFERENCE:  9000010^AHL^MUMPS
    1)= S ^AUPNVSIT("AHL",X,(9999999-$P($P(^AUPNVSIT(DA,0),U,1),".",1))_$S($P($P(^(0),U,1),".",2)'="":"."_$P($P(^(0),U,1),".",2),1:""),DA)=""
    2)= K ^AUPNVSIT("AHL",X,(9999999-$P($P(^AUPNVSIT(DA,0),U,1),".",1))_$S($P($P(^(0),U,1),".",2)'="":"."_$P($P(^(0),U,1),".",2),1:""),DA)
    This cross reference indexes the visits by hospital location and inverse date. It is used to find a date/time range of visits by a particular hospital location. The cross reference used several field values and therefore
    the index AHL is set on all of the fields.
  • CROSS-REFERENCE:  9000010^AET3^MUMPS
    1)= I $P($G(^AUPNVSIT(DA,150)),U,3)]"",$P($G(^AUPNVSIT(DA,0)),U,5)]"" S ^AUPNVSIT("AET",$P(^AUPNVSIT(DA,0),U,5),$P(^AUPNVSIT(DA,0),U,1),X,$P(^AUPNVSIT(DA,150),U,3),DA)=""
    2)= I $P($G(^AUPNVSIT(DA,150)),U,3)]"",$P($G(^AUPNVSIT(DA,0)),U,5)]"" K ^AUPNVSIT("AET",$P(^AUPNVSIT(DA,0),U,5),$P(^AUPNVSIT(DA,0),U,1),X,$P(^AUPNVSIT(DA,150),U,3),DA)
    Cross reference for OE 3 and CPRS this gives the patient, visit date/time, hospital location, encounter type, visit IEN. It is set to Service Category.
.23 CREATED BY USER 0;23 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 07, 2009
  • HELP-PROMPT:  SYSTEM GENERATED
  • DESCRIPTION:  This field contains either the DUZ passed in by the application calling the PCE API ($$DATA2PCE^PXAPI) to create or update the visit, or defaults to the DUZ at the time the entry was created or updated if no DUZ is passed
    in, or if something other than the API is used to create or update the entry.
  • GROUP:  VA
.24 OPTION USED TO CREATE 0;24 POINTER TO OPTION FILE (#19) OPTION(#19)

  • LAST EDITED:  JUL 15, 1992
  • HELP-PROMPT:  SYSTEM GENERATED
  • DESCRIPTION:  
    If known, the option under which this visit was created.
  • GROUP:  VA
.25 PROTOCOL 0;25 POINTER TO PROTOCOL FILE (#101) PROTOCOL(#101)

  • LAST EDITED:  OCT 25, 1994
  • DESCRIPTION:  
    This is the protocol which was used to create this visit.
.26 PFSS ACCOUNT REFERENCE 0;26 POINTER TO PFSS ACCOUNT FILE (#375) PFSS ACCOUNT(#375)

  • LAST EDITED:  JUN 02, 2005
  • DESCRIPTION:  
    The number by which all VistA applications will reference an external medical billing system account number for purposes of attaching charges for 1st or 3rd party billing.
  • TECHNICAL DESCR:  
    A pointer to the PFSS ACCOUNT FILE (#375)
2101 OUTSIDE LOCATION 21;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>50!($L(X)<2) X
  • LAST EDITED:  JUN 03, 1992
  • HELP-PROMPT:  Answer must be 2-50 characters in length.
  • DESCRIPTION:  
    Free text location of service.
15001 VISIT ID 150;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<8)!'(X?4.10NU1"-"3.4U) X
  • LAST EDITED:  APR 25, 1996
  • HELP-PROMPT:  This is the unique visit id and is set by Visit Tracking and cannot be changed.
    UNEDITABLE
  • CROSS-REFERENCE:  9000010^VID
    1)= S ^AUPNVSIT("VID",$E(X,1,30),DA)=""
    2)= K ^AUPNVSIT("VID",$E(X,1,30),DA)
15002 PATIENT STATUS IN/OUT 150;2 SET
  • '1' FOR IN;
  • '0' FOR OUT;

  • LAST EDITED:  MAY 17, 1995
  • DESCRIPTION:  
    This is an indicator of the patient's status at the time of the visit.
15003 ENCOUNTER TYPE 150;3 SET
  • 'P' FOR PRIMARY;
  • 'O' FOR OCCASION OF SERVICE;
  • 'S' FOR STOP CODE;
  • 'A' FOR ANCILLARY;
  • 'C' FOR CREDIT STOP;

  • LAST EDITED:  JUL 01, 1996
  • DESCRIPTION:  
    This field notes the primary type of visits, the stop code visit and the occasion of service visit that were manual entered.
  • CROSS-REFERENCE:  9000010^AET^MUMPS
    1)= I $P($G(^AUPNVSIT(DA,0)),U,5)]"",$P($G(^AUPNVSIT(DA,0)),U,22)]"" S ^AUPNVSIT("AET",$P(^AUPNVSIT(DA,0),U,5),$P(^AUPNVSIT(DA,0),U,1),$P(^AUPNVSIT(DA,0),U,22),X,DA)=""
    2)= I $P($G(^AUPNVSIT(DA,0)),U,5)]"",$P($G(^AUPNVSIT(DA,0)),U,22)]"" K ^AUPNVSIT("AET",$P(^AUPNVSIT(DA,0),U,5),$P(^AUPNVSIT(DA,0),U,1),$P(^AUPNVSIT(DA,0),U,22),X,DA)
    Cross reference for OE 3 and CPRS this gives the patient, visit date/time, hospital location, encounter type, visit IEN. It is set to Service Category.
80001 SERVICE CONNECTED 800;1 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  FEB 17, 1994
  • HELP-PROMPT:  If this visit is treating a service connected problem, enter "YES" here.
  • DESCRIPTION:  
    This field will be used to indicate if this visit was for treating a VA patient based on a service connected problem.
  • TECHNICAL DESCR:  
    This field may be passed to the Visit based on the MCCR event data capture.
80002 AGENT ORANGE EXPOSURE 800;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  FEB 17, 1994
  • HELP-PROMPT:  If this visit is treating an agent orange exposure problem, enter "YES" here.
  • DESCRIPTION:  
    This field is used to indicate that this visit represents treatment of a VA patient for a problem that is related to Agent Orange Exposure.
  • TECHNICAL DESCR:  
    This data may be passed to the Visit from MCCR event data capture.
80003 IONIZING RADIATION EXPOSURE 800;3 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  FEB 17, 1994
  • HELP-PROMPT:  If this visit is treating an Ionizing Radiation Exposure problem, enter "YES".
  • DESCRIPTION:  
    This field is used to indicate that this visit represents treatment of a VA patient for a problem that is related to Ionizing Radiation Exposure.
  • TECHNICAL DESCR:  
    This data may be passed to the Visit from MCCR event data capture.
80004 SW ASIA CONDITIONS 800;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 27, 2006
  • HELP-PROMPT:  If this visit is treating a problem related to SW Asia Conditions Exposure, enter "YES"
  • DESCRIPTION:  
    This field is used to indicate that this visit represents treatment of a VA patient for a problem that is related to Southwest Asia Conditions Exposure.
  • TECHNICAL DESCR:  
    This data may be passed to the Visit from the MCCR event data capture.
80005 MILITARY SEXUAL TRAUMA 800;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 25, 1998
  • DESCRIPTION:  
    Indicates whether the patient visit was related to their Military Sexual Trauma.
80006 HEAD AND/OR NECK CANCER 800;6 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  SEP 25, 2001
  • HELP-PROMPT:  If this visit is treating a problem related to Head/Neck Cancer, enter "YES"
  • DESCRIPTION:  
    This field is used to indicate that the visit represents treatment of a VA patient for a problem that is related to Head and/or Neck Cancer.
80007 COMBAT VETERAN 800;7 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  NOV 18, 2003
  • HELP-PROMPT:  If this visit is treating a problem possibly related to combat.
  • DESCRIPTION:  
    This field is used to indicate that the visit represents treatment of a VA patient for a problem that is possibly related to combat.
80008 PROJ 112/SHAD 800;8 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  JUN 02, 2005
  • HELP-PROMPT:  If this visit is treating a problem related to PROJ 112/SHAD, enter 'YES'.
  • DESCRIPTION:  Project 112/SHAD was the name of the overall program for both shipboard and land-based biological and chemical testing that was conducted by the United States (U.S.) military between 1962 and 1973. Project SHAD (Shipboard
    Hazard and Defense) was the shipboard portion of these tests.
80011 SERVICE CONNECTION EDIT FLAG 800;11 SET
  • '0' FOR EDITABLE;
  • '1' FOR NOT EDITABLE;

  • LAST EDITED:  FEB 05, 2004
  • HELP-PROMPT:  Enter 1 to prevent user editing of the Service Connection classification.
  • DESCRIPTION:  
    This field is used to determine if the Service Connection Classification for the Visit can be edited by the user.
  • TECHNICAL DESCR:  
    The Service Connected classification is not editable if either any of the diagnosis Service Connection classifications are "Yes" or all of the diagnosis Service Connection classifications are "No".
80012 AGENT ORANGE EDIT FLAG 800;12 SET
  • '0' FOR EDITABLE;
  • '1' FOR NOT EDITABLE;

  • LAST EDITED:  NOV 04, 2015
  • HELP-PROMPT:  Enter 1 to prevent user editing of the Agent Orange classification
  • DESCRIPTION:  
    This field is used to determine if the Agent Orange Classification for the Visit can be edited by the user.
  • TECHNICAL DESCR:  
    The Agent Orange classification is not editable if either any of the diagnosis Agent Orange classifications are "Yes" or all of the diagnosis Agent Orange classifications are "No".
80013 IONIZING RADIATION EDIT FLAG 800;13 SET
  • '0' FOR EDITABLE;
  • '1' FOR NOT EDITABLE;

  • LAST EDITED:  NOV 04, 2015
  • HELP-PROMPT:  Enter 1 to prevent user editing of the Ionizing Radiation classification
  • DESCRIPTION:  
    This field is used to determine if the Ionizing Radiation classification for the Visit can be edited by the user.
  • TECHNICAL DESCR:  
    The Ionizing Radiation classification is not editable if either any of the diagnosis Ionizing Radiation classifications are "Yes" or all of the diagnosis Ionizing Radiation classifications are "No".
80014 SW ASIA CONDITIONS EDIT FLAG 800;14 SET
  • '0' FOR EDITABLE;
  • '1' FOR NOT EDITABLE;

  • LAST EDITED:  MAY 10, 2006
  • HELP-PROMPT:  Enter 1 to prevent user editing of the SW Asia Conditions classification.
  • DESCRIPTION:  
    This field is used to determine if the Southwest Asia Conditions classification for the Visit can be edited by the user.
  • TECHNICAL DESCR:  
    The Southwest Asia Conditions classification is not editable if either any of the diagnosis Southwest Asia Conditions classifications are "Yes", or all of the diagnosis Southwest Asia Conditions classifications are "No".
80015 MST EDIT FLAG 800;15 SET
  • '0' FOR EDITABLE;
  • '1' FOR NOT EDITABLE;

  • LAST EDITED:  FEB 05, 2004
  • HELP-PROMPT:  Enter 1 to prevent user editing of the Military Sexual Trauma classification
  • DESCRIPTION:  
    This field is used to determine if the Military Sexual Trauma classification for the Visit can be edited by the user.
  • TECHNICAL DESCR:  
    The Military Sexual Trauma classification is not editable if either any of the diagnosis Miliary Sexual Trauma classifications are "Yes", or all of the diagnosis Miliary Sexual Trauma classifications are "No".
80016 HEAD AND NECK CANCER EDIT FLAG 800;16 SET
  • '0' FOR EDITABLE;
  • '1' FOR NOT EDITABLE;

  • LAST EDITED:  FEB 05, 2004
  • HELP-PROMPT:  Enter 1 to prevent user editing of the Head and Neck Cancer classification
  • DESCRIPTION:  
    This field is used to determine if the Head and/or Neck Cancer classification can be edited by the user.
  • TECHNICAL DESCR:  
    The Head and/or Neck Cancer classification is not editable if either any of the diagnosis Head and/or Neck Cancer classifications are "Yes", or all of the diagnosis Head and/or Neck Cancer classifications are "No".
80017 COMBAT VETERAN EDIT FLAG 800;17 SET
  • '0' FOR EDITABLE;
  • '1' FOR NOT EDITABLE;

  • LAST EDITED:  FEB 17, 2004
  • HELP-PROMPT:  Enter 1 to prevent user editing of the combat Veteran classification.
  • DESCRIPTION:  
    This field is used to determine if the Combat Veteran classification can be edited by the user.
  • TECHNICAL DESCR:  
    The combat Veteran classification is not editable if either any of the diagnosis Combat Veteran classifications are "Yes", or all of the diagnosis Combat Veteran classifications are "No".
80018 PROJ 112/SHAD EDIT FLAG 800;18 SET
  • '0' FOR EDITABLE;
  • '1' FOR NOT EDITABLE;

  • LAST EDITED:  OCT 17, 2005
  • HELP-PROMPT:  Enter 1 to prevent user editing of the Proj 112/SHAD classification.
  • DESCRIPTION:  
    This field is used to determine if the PROJ 112/SHAD classification can be edited by the user.
  • TECHNICAL DESCR:  
    The PROJ 112/SHAD classification is not editable if either any of the diagnosis PROJ 112/SHAD classifications are "Yes", or all of the diagnosis PROJ 112/SHAD classifications are "No".
81101 COMMENTS 811;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  JUL 11, 1995
  • HELP-PROMPT:  Answer must be 1-245 characters in length.
  • DESCRIPTION:  
    A FIELD TO ADD COMMENTS AS THEY PERTAIN TO A VISIT
81202 PACKAGE 812;2 POINTER TO PACKAGE FILE (#9.4) PACKAGE(#9.4)

  • LAST EDITED:  MAY 08, 1996
  • DESCRIPTION:  
    This is a pointer to the package that wanted the visit created.
    UNEDITABLE
81203 DATA SOURCE 812;3 POINTER TO PCE DATA SOURCE FILE (#839.7) PCE DATA SOURCE(#839.7)

  • LAST EDITED:  MAY 09, 1996
  • DESCRIPTION:  
    This is a pointer to the PCE DATA SOURCE file and is the source that wanted the visit created.
    UNEDITABLE

ICR, Total: 5

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #907
  • Clinical Reminders
  • Emergency Department Integration Software
  • Womens Health
  • ICR #7033
  • Scheduling
  • ICR #2598
  • Clinical Information Resource Network
  • VISIT/ADMIT DATE&TIME (.01).
    Access: Read w/Fileman

    ICR #2617
  • Clinical Information Resource Network
  • VISIT/ADMIT DATE&TIME (.01).
    Access: Read w/Fileman

    PATIENT NAME (.05).
    Access: Read w/Fileman

    LOC. OF ENCOUNTER (.06).
    Access: Read w/Fileman

    PARENT VISIT LINK (.12).
    Access: Read w/Fileman

    CHECK OUT DAT&TIME (.18).
    Access: Read w/Fileman

    HOSPITAL LOCATION (.22).
    Access: Read w/Fileman

    ENCOUNTER TYPE (15003).
    Access: Read w/Fileman

    VISIT ID (15001).
    Access: Read w/Fileman

    PATIENT STATUS IN/OUT (15002).
    Access: Read w/Fileman

    ICR #6264
  • VA Point of Service
  • TYPE (.03).
    Access: Write w/Fileman

    PATIENT NAME (.05).
    Access: Write w/Fileman

    SERVICE CATEGORY (.07).
    Access: Write w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT .01+1, .02+1, .13+1, .18+1
    ADD^AUPNVSIT .12(XREF 3S)
    POSTSLCT^AUPNVSIT ACT+1
    SUB^AUPNVSIT .12(XREF 3K)
    ^DIC .08+1, .21+1
    Y^DIQ ID.22+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" ACT+1
    ^AUPNVSIT - [#9000010] .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 6S), .01(XREF 6K), .05(XREF 2S)
    .05(XREF 2K), .05(XREF 3S), .05(XREF 3K), .05(XREF 4S), .05(XREF 4K), .07(XREF 1S), .07(XREF 1K), .09(XREF 1S), .21(XREF 1S), .21(XREF 1K)
    .22(XREF 1S), .22(XREF 1K), .22(XREF 2S), .22(XREF 2K), 15003(XREF 1S), 15003(XREF 1K)
    ^AUPNVSIT("AA" .01(XREF 3S), .01(XREF 3K), .05(XREF 2S), .05(XREF 2K), .21(XREF 1S), .21(XREF 1K)
    ^AUPNVSIT("AAH" .01(XREF 2S), .01(XREF 2K), .05(XREF 3S), .05(XREF 3K), .07(XREF 1S), .07(XREF 1K)
    ^AUPNVSIT("AD" .12(XREF 1S), .12(XREF 1K)
    ^AUPNVSIT("ADEL" .01(XREF 5S), .01(XREF 5K), .09(XREF 1S)
    ^AUPNVSIT("AET" .01(XREF 4S), .01(XREF 4K), .05(XREF 4S), .05(XREF 4K), .22(XREF 2S), .22(XREF 2K), 15003(XREF 1S), 15003(XREF 1K)
    ^AUPNVSIT("AHL" .01(XREF 6S), .01(XREF 6K), .22(XREF 1S), .22(XREF 1K)
    ^AUPNVSIT("B" .01(XREF 1S), .01(XREF 1K)
    ^AUPNVSIT("C" .05(XREF 1S), .05(XREF 1K)
    ^AUPNVSIT("VID" 15001(XREF 1S), 15001(XREF 1K)
    ^DD(44 ID.22+1
    ^DPT - [#2] ID.05+1
    ^SC - [#44] ID.22+1

    Naked Globals

    Name Field # of Occurrence
    ^( .21(XREF 1K)
    ^(0 ID.05+1, ID.22+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .05(XREF 2S), .05(XREF 2K), .05(XREF 3S), .05(XREF 3K), .07(XREF 1S)
    .07(XREF 1K), .21(XREF 1S), .21(XREF 1K), .22(XREF 1S), .22(XREF 1K)
    ^(150 ID15001+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .01+1*, .02+1*, .13+1*, .18+1*
    %I ID.22+1*!
    >> C ID.22+1*
    >> DA .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 5S), .01(XREF 5K)
    .01(XREF 6S), .01(XREF 6K), .05(XREF 1S), .05(XREF 1K), .05(XREF 2S), .05(XREF 2K), .05(XREF 3S), .05(XREF 3K), .05(XREF 4S), .05(XREF 4K)
    .07(XREF 1S), .07(XREF 1K), .09(XREF 1S), .12(XREF 1S), .12(XREF 1K), .21(XREF 1S), .21(XREF 1K), .22(XREF 1S), .22(XREF 1K), .22(XREF 2S)
    .22(XREF 2K), 15001(XREF 1S), 15001(XREF 1K), 15003(XREF 1S), 15003(XREF 1K)
    DIC ID.05+1, ID.22+1, .08+1!*, .21+1!*
    DIC("S" .08+1*, .08SCR+1*, .21+1*, .21SCR+1*
    >> DIE .08+1, .21+1
    DT .02+1, .13+1
    DUZ("AG" ACT+1, .01(XREF 5S), .09(XREF 1S)
    U ID.05+1, ID.22+1, ID15001+1, .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K), .01(XREF 6S)
    .01(XREF 6K), .05(XREF 2S), .05(XREF 3S), .05(XREF 3K), .05(XREF 4S), .05(XREF 4K), .07(XREF 1S), .07(XREF 1K), .22(XREF 1S), .22(XREF 1K)
    .22(XREF 2S), .22(XREF 2K), 15003(XREF 1S), 15003(XREF 1K)
    X ACT+1*, .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .01(XREF 3S), .01(XREF 3K), .01(XREF 4S), .01(XREF 4K)
    .01(XREF 5S), .01(XREF 5K), .01(XREF 6S), .01(XREF 6K), .02+1*!, .05(XREF 1S), .05(XREF 1K), .05(XREF 2S), .05(XREF 2K), .05(XREF 3S)
    .05(XREF 3K), .05(XREF 4S), .05(XREF 4K), .07(XREF 1S), .07(XREF 1K), .08+1*!, .09+1!, .09(XREF 1S), .12(XREF 1S), .12(XREF 1K)
    , .13+1*!, .18+1*!, .21+1*!, .21(XREF 1S), .22(XREF 1S), .22(XREF 1K), .22(XREF 2S), .22(XREF 2K), 2101+1!, 15001+1!
    15001(XREF 1S), 15001(XREF 1K), 15003(XREF 1S), 15003(XREF 1K), 81101+1!
    >> Y ID.22+1*, .01+1, .02+1, .08+1, .13+1, .18+1, .21+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All