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 |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^AUPNVSK

Package: PCE Patient Care Encounter

Global: ^AUPNVSK


Information

FileMan FileNo FileMan Filename Package
9000010.12 V SKIN TEST PCE Patient Care Encounter

Description

Directly Accessed By Routines, Total: 10

Package Total Routines
PCE Patient Care Encounter 9 PXAISK    PXKFSK1    PXPXRM    PXPXRMI2    PXQUTL3B    PXVP210    PXVRPC8    PXVUTL
^AUPNVSK    
Scheduling 1 SCRPW25    

Accessed By FileMan Db Calls, Total: 8

Package Total Routines
PCE Patient Care Encounter 4 PXCESK    PXPXRMI2    PXVP210    PXVUTL    
Automated Information Collection System 1 IBDFRPC6    
Clinical Case Registries 1 RORHL19    
Clinical Reminders 1 PXRMSKIN    
Virtual Patient Record 1 VPRDPXSK    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
PCE Patient Care Encounter 5 PATIENT/IHS(#9000001)[.02]    VISIT(#9000010)[.03]    SKIN TEST(#9999999.28)[.01]    PCE DATA SOURCE(#839.7)[81203]    IMM ADMINISTRATION SITE (BODY)(#920.3)[1212]    
Kernel 2 PACKAGE(#9.4)[81202]    NEW PERSON(#200)[.0712021204]
DRG Grouper 1 ICD DIAGNOSIS(#80)[801802803804805806807808]    

Fields, Total: 29

Field # Name Loc Type Details
.01 SKIN TEST 0;1 POINTER TO SKIN TEST FILE (#9999999.28)
************************REQUIRED FIELD************************
SKIN TEST(#9999999.28)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 21, 2015
  • HELP-PROMPT:  Enter the Skin Test that was given to the patient.
  • DESCRIPTION:  
    This is the type of Skin Test that was given to the patient at the encounter.
  • TECHNICAL DESCR:  Only active Skin Test entries in the Skin Test File (#9999999.28) are
    selectable.
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=1"
  • EXPLANATION:  Allow only active Skin Test types to be selected.
  • AUDIT:  YES, ALWAYS
  • CROSS-REFERENCE:  9000010.12^B
    1)= S ^AUPNVSK("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVSK("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.12^AATOO^MUMPS
    1)= I $P(^AUPNVSK(DA,0),U,2)]"",$P(^(0),U,3)]"" S ^AUPNVSK("AA",$P(^AUPNVSK(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVSK(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVSK(DA,0),U,2)]"",$P(^(0),U,3)]"" K ^AUPNVSK("AA",$P(^AUPNVSK(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^AUPNVSK(DA,0),U,3),0),".",1)),DA)
    This cross reference is used for searches in sequence by patient, Skin test pointer, inverted Visit date, and internal entry number.
    "AA",PATIENT,SKIN TEST,VISIT,DA
  • RECORD INDEXES:  ACR (#473)
.02 PATIENT NAME 0;2 POINTER TO PATIENT/IHS FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT/IHS(#9000001)

  • LAST EDITED:  FEB 13, 2015
  • HELP-PROMPT:  Enter the patient who was given the skin test.
  • DESCRIPTION:  
    This is the patient who received the skin test.
  • TECHNICAL DESCR:  
    This is a pointer to the Patient/IHS file (#9000001) which is dinumed to the Patient File (#2). This field is always stuffed by the application. No editing is allowed.
  • AUDIT:  YES, ALWAYS
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.12^AATOO2^MUMPS
    1)= I $P(^AUPNVSK(DA,0),U,3)]"" S ^AUPNVSK("AA",X,+^AUPNVSK(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVSK(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVSK(DA,0),U,3)]"" K ^AUPNVSK("AA",X,+^AUPNVSK(DA,0),(9999999-$P(+^AUPNVSIT($P(^AUPNVSK(DA,0),U,3),0),".",1)),DA)
    This cross reference is used to search in sequence by patient, skin test pointer, inverted visit date, and internal entry number.
    "AA",PATIENT,SKIN TEST,VISIT,DA
  • CROSS-REFERENCE:  9000010.12^C
    1)= S ^AUPNVSK("C",$E(X,1,30),DA)=""
    2)= K ^AUPNVSK("C",$E(X,1,30),DA)
    This cross reference allows look-up by patient name.
  • RECORD INDEXES:  ACR (#473)
.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010)
************************REQUIRED FIELD************************
VISIT(#9000010)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVSK(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 13, 2015
  • HELP-PROMPT:  Enter the visit date/time for the encounter where the skin test was done.
  • DESCRIPTION:  
    This is the encounter defined in the Visit file that represents when and where the skin test was done.
  • TECHNICAL DESCR:  
    This is a pointer to the Visit File (#9000010). This field is stuffed by the applications. No editing is allowed.
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVSK(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
  • AUDIT:  YES, ALWAYS
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.12^AD
    1)= S ^AUPNVSK("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVSK("AD",$E(X,1,30),DA)
    This cross reference allows look-up of entries by patient name.
  • CROSS-REFERENCE:  9000010.12^AA^MUMPS
    1)= Q:$P(^AUPNVSK(DA,0),U,2)="" S ^AUPNVSK("AA",$P(^AUPNVSK(DA,0),U,2),+^AUPNVSK(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVSK(DA,0),U,2)="" K ^AUPNVSK("AA",$P(^AUPNVSK(DA,0),U,2),+^AUPNVSK(DA,0),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
    This cross reference is used for searches in sequence by patient, skin test pointer, inverted visit date, and internal entry number.
    "AA",PATIENT,SKIN TEST,VISIT,DA
  • CROSS-REFERENCE:  9000010.12^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
    This cross-reference is for adding and subtracting from the dependent entry count in the VISIT file.
  • RECORD INDEXES:  ACR (#473)
.04 RESULTS 0;4 SET
  • 'P' FOR POSITIVE;
  • 'N' FOR NEGATIVE;
  • 'D' FOR DOUBTFUL;
  • 'O' FOR NO TAKE;

  • INPUT TRANSFORM:  I X="N",$P(^AUPNVSK(DA,0),U,5)]"",$P(^AUPNVSK(DA,0),U,5)>10 K X
  • LAST EDITED:  FEB 13, 2015
  • HELP-PROMPT:  Enter whether the results were positive, negative, doubtful or no take, if known.
  • DESCRIPTION:  
    This is the interpretation of skin test results.
  • AUDIT:  YES, ALWAYS
    SOURCE OF DATA: 082/SKREST
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.05 READING 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>40)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 13, 2015
  • HELP-PROMPT:  Enter a whole number between 0 and 40.
  • DESCRIPTION:  
    This is the induration in millimeters (mm).
  • AUDIT:  YES, ALWAYS
    SOURCE OF DATA: 082/SKREAD
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.12^AE
    1)= S ^AUPNVSK("AE",$E(X,1,30),DA)=""
    2)= K ^AUPNVSK("AE",$E(X,1,30),DA)
    This cross-reference searches on the results of skin tests across all patients.
    "AE",READING,DA
.06 DATE READ 0;6 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1!$$TIME^PXVUTL X
  • LAST EDITED:  AUG 20, 2015
  • HELP-PROMPT:  Enter the date and (optional) time the skin test was read.
  • DESCRIPTION:  
    This is the date and time of the reading of the skin test. Time entry is optional and imprecise date is allowed for historical skin tests.
  • AUDIT:  YES, ALWAYS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.12^1220
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSK(D0,12)):^(12),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(9000010.12,.06,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVSK(DIV(0),12)),DIV=X S $P(^(12),U,20)=DIV,DIH=9000010.12,DIG=1220 D ^DICR
    2)= Q
    CREATE VALUE)= NOW
    DELETE VALUE)= NO EFFECT
    FIELD)= SKIN TEST READING RECORDED
    This trigger sets the SKIN TEST READING RECORDED field (#1220) when the DATE READ is entered.
  • RECORD INDEXES:  AH (#1323)
.07 READER 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 13, 2015
  • HELP-PROMPT:  Enter the name of the person who read the skin test.
  • DESCRIPTION:  
    This is the name of the person who read and interpreted the results of the skin test.
  • AUDIT:  YES, ALWAYS
801 PRIMARY DIAGNOSIS 80;1 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D ^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 30, 2015
  • HELP-PROMPT:  Enter the primary diagnosis code associated with this skin test.
  • DESCRIPTION:  
    This is the diagnosis from the ICD Diagnosis file associated with the skin test performed.
  • SCREEN:  S DIC("S")="D ^AUPNSICD"
  • EXPLANATION:  Diagnosis cannot be an inactive code and it must be appropriate.
  • AUDIT:  YES, ALWAYS
802 DIAGNOSIS 2 80;2 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D ^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 29, 2015
  • HELP-PROMPT:  Enter the ICD Diagnosis related to the skin test performed.
  • DESCRIPTION:  
    This is the diagnosis from the ICD Diagnosis file associated with the skin test performed.
  • SCREEN:  S DIC("S")="D ^AUPNSICD"
  • EXPLANATION:  Diagnosis cannot be an inactive code and it must be appropriate.
  • AUDIT:  YES, ALWAYS
803 DIAGNOSIS 3 80;3 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D ^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 29, 2015
  • HELP-PROMPT:  Enter the ICD Diagnosis related to the skin test performed.
  • DESCRIPTION:  
    This is the diagnosis from the ICD Diagnosis file associated with the skin test performed.
  • SCREEN:  S DIC("S")="D ^AUPNSICD"
  • EXPLANATION:  Diagnosis cannot be an inactive code and it must be appropriate.
  • AUDIT:  YES, ALWAYS
804 DIAGNOSIS 4 80;4 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D ^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 29, 2015
  • HELP-PROMPT:  Enter the ICD Diagnosis related to the skin test performed.
  • DESCRIPTION:  
    This is the diagnosis from the ICD Diagnosis file associated with the skin test performed.
  • SCREEN:  S DIC("S")="D ^AUPNSICD"
  • EXPLANATION:  Diagnosis cannot be an inactive code and it must be appropriate.
  • AUDIT:  YES, ALWAYS
805 DIAGNOSIS 5 80;5 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D ^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 29, 2015
  • HELP-PROMPT:  Enter the ICD Diagnosis related to the skin test performed.
  • DESCRIPTION:  
    This is the diagnosis from the ICD Diagnosis file associated with the skin test performed.
  • SCREEN:  S DIC("S")="D ^AUPNSICD"
  • EXPLANATION:  Diagnosis cannot be an inactive code and it must be appropriate.
  • AUDIT:  YES, ALWAYS
806 DIAGNOSIS 6 80;6 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D ^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 29, 2015
  • HELP-PROMPT:  Enter the ICD Diagnosis related to the skin test performed.
  • DESCRIPTION:  
    This is the diagnosis from the ICD Diagnosis file associated with the skin test performed.
  • SCREEN:  S DIC("S")="D ^AUPNSICD"
  • EXPLANATION:  Diagnosis cannot be an inactive code and it must be appropriate.
  • AUDIT:  YES, ALWAYS
807 DIAGNOSIS 7 80;7 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D ^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 29, 2015
  • HELP-PROMPT:  Enter the ICD Diagnosis related to the skin test performed.
  • DESCRIPTION:  
    This is the diagnosis from the ICD Diagnosis file associated with the skin test performed.
  • SCREEN:  S DIC("S")="D ^AUPNSICD"
  • EXPLANATION:  Diagnosis cannot be an inactive code and it must be appropriate.
  • AUDIT:  YES, ALWAYS
808 DIAGNOSIS 8 80;8 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D ^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 29, 2015
  • HELP-PROMPT:  Enter the ICD Diagnosis related to the skin test performed.
  • DESCRIPTION:  
    This is the diagnosis from the ICD Diagnosis file associated with the skin test performed.
  • SCREEN:  S DIC("S")="D ^AUPNSICD"
  • EXPLANATION:  Diagnosis cannot be an inactive code and it must be appropriate.
  • AUDIT:  YES, ALWAYS
1201 EVENT DATE AND TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1!$$TIME^PXVUTL X
  • LAST EDITED:  AUG 20, 2015
  • HELP-PROMPT:  Enter the date and (optional) time the skin test was placed.
  • DESCRIPTION:  This is the date and time the skin test was placed. This date and time may be different from the visit date and time. For example, for clinic appointment visits, the visit date and time is the date and time of the
    appointment, not the time the provider performed the clinical event.
    The date may be an imprecise date such as for an historical skin test.
    Date and time may be within 30 days before or after the visit date, with the restriction the date cannot be a future date.
  • TECHNICAL DESCR:  The PCE User Interface, which allows manual entry of data, will be the primary source of the event date and time. The event date prompt defaults to the visit date and the time is entered to reflect the actual time the skin
    test was done. The event date does not have to be the visit date, but it must be within 30 days before or after the visit, and not be a future date.
    If a user wants to enter an historical skin test, the user should use the Historical Encounter entry action to document the historical skin test. Historical entries will not be eligible for workload credit.
    PCE data sources for automatic (scanning) data capture will be blank unless the event date and time are passed to PCE for filing.
  • AUDIT:  YES, ALWAYS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.12^1211
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVSK(D0,12)):^(12),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(9000010.12,1201,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVSK(DIV(0),12)),DIV=X S $P(^(12),U,11)=DIV,DIH=9000010.12,DIG=1211 D ^DICR
    2)= Q
    CREATE VALUE)= NOW
    DELETE VALUE)= NO EFFECT
    FIELD)= SKIN TEST PLACEMENT RECORDED
    The SKIN TEST PLACEMENT RECORDED field (#1211) will be triggered whenever the EVENT DATE AND TIME field (#1201) is entered or updated. The triggered value will be NOW.
  • RECORD INDEXES:  AH (#1323)
1202 ORDERING PROVIDER 12;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 13, 2015
  • HELP-PROMPT:  Enter the provider who ordered this skin test.
  • DESCRIPTION:  
    This field can be used to document the provider who ordered the skin test.
  • AUDIT:  YES, ALWAYS
1204 ENCOUNTER PROVIDER 12;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 13, 2015
  • HELP-PROMPT:  Enter the provider who placed the skin test.
  • DESCRIPTION:  
    This is the provider who placed the skin test.
  • TECHNICAL DESCR:  
    This person can be any person in the new person file.
  • AUDIT:  YES, ALWAYS
1211 SKIN TEST PLACEMENT RECORDED 12;11 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 13, 2015
  • HELP-PROMPT:  Enter the date and time of documentation of the placement of the skin test.
  • DESCRIPTION:  
    This timestamp field is the date and time of documentation of placement of the skin test. This field is set automatically when the EVENT DATE AND TIME is entered.
  • AUDIT:  YES, ALWAYS
  • NOTES:  TRIGGERED by the EVENT DATE AND TIME field of the V SKIN TEST File
1212 ANATOMIC LOCATION OF PLACEMENT 12;12 POINTER TO IMM ADMINISTRATION SITE (BODY) FILE (#920.3) IMM ADMINISTRATION SITE (BODY)(#920.3)

  • INPUT TRANSFORM:  S DIC("S")="I '$$SCREEN^XTID(920.3,,Y_"","")" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  FEB 26, 2015
  • HELP-PROMPT:  Select the anatomic location of skin test placement.
  • DESCRIPTION:  
    This is the area of the patient's body where the skin test was placed.
  • TECHNICAL DESCR:  
    This is the area of the patient's body where the skin test was placed. It is selected from a list of entries in the IMM ADMINISTRATION SITE (BODY) file (#920.3).
  • SCREEN:  S DIC("S")="I '$$SCREEN^XTID(920.3,,Y_"","")"
  • EXPLANATION:  Only active IMM ADMINISTRATION SITE (BODY) entries may be selected.
  • AUDIT:  YES, ALWAYS
1214 HOURS READ POST-PLACEMENT 12;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>100)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  AUG 18, 2015
  • HELP-PROMPT:  Type a number between 0 and 100, 0 decimal digits.
  • DESCRIPTION:  
    This is the number of hours between the placement of the skin test and the reading of the skin test.
  • TECHNICAL DESCR:  
    This field is set by cross references on the EVENT DATE AND TIME field (#1201) and the DATE READ field (#.06).
  • AUDIT:  YES, ALWAYS
    UNEDITABLE
  • RECORD INDEXES:  AH (#1323)
1220 SKIN TEST READING RECORDED 12;20 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 28, 2015
  • HELP-PROMPT:  Enter the date and time of documentation of the reading of the skin test.
  • DESCRIPTION:  
    This timestamp field is the date and time of documentation of reading of the skin test. This field is set automatically when the DATE READ is entered.
  • AUDIT:  YES, ALWAYS
  • NOTES:  TRIGGERED by the DATE READ field of the V SKIN TEST File
1301 READING COMMENTS 13;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  FEB 13, 2015
  • HELP-PROMPT:  Enter a reading comment 1-245 characters in length.
  • DESCRIPTION:  
    This is a comment related to the reading of the patient's skin test. The provider may enter this manually via the PCE User Interface.
  • AUDIT:  YES, ALWAYS
80101 EDITED FLAG 801;1 SET
  • '1' FOR EDITED;

  • LAST EDITED:  FEB 13, 2015
  • HELP-PROMPT:  Answer is automatically entered by PCE filing logic.
  • DESCRIPTION:  
    This field is automatically set to 1 if PCE detects that any original skin test data is being edited.
  • TECHNICAL DESCR:  
    PCE filing logic automatically compares the before and after pictures of the record to determine if the edited flag should be set to "1".
  • AUDIT:  YES, ALWAYS
80102 AUDIT TRAIL 801;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>85!($L(X)<2) X
  • LAST EDITED:  FEB 13, 2015
  • HELP-PROMPT:  Answer must be 2 to 85 characters.
  • DESCRIPTION:  
    This field is populated automatically be the PCE filing logic. The format of the field is as follows: Pointer to PCE data source file_"-"_A for Add or E for Edit_" "_DUZ of the person who entered the data_";"...
  • TECHNICAL DESCR:  The PCE filing logic requires a pointer to the PCE data source file. If this is not passed, then PCE filing logic will not process the data.
    If the record is a new record, then an "A" is used to specify the source that added the data. If the record existed previously, PCE filing logic compares the old and new records of information. An "E" will be
    automatically used if the filing logic finds the data has been edited. If "E" is used, then the Edited Flag field is automatically set to 1.
    The DUZ is stored in its internal format to represent the user who performed the adding or editing of data for this record.
    Iterations of editing will be concatenated to the previous data source value, up to 85 characters.
  • AUDIT:  YES, ALWAYS
81101 PLACEMENT COMMENTS 811;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  FEB 13, 2015
  • HELP-PROMPT:  Enter a placement comment 1-245 characters in length.
  • DESCRIPTION:  
    This is a comment related to the placement of the patient's skin test. The provider may enter this manually via the PCE User Interface.
  • AUDIT:  YES, ALWAYS
81201 VERIFIED 812;1 SET
  • '1' FOR ELECTRONICALLY SIGNED;
  • '2' FOR VERIFIED BY PACKAGE;

  • LAST EDITED:  FEB 13, 2015
  • HELP-PROMPT:  This is automatically entered by the software and is uneditable.
  • DESCRIPTION:  
    This is used to note how the event was verified and is automatically entered by the software.
  • TECHNICAL DESCR:  
    This is automatically entered by the software and is uneditable for users.
  • AUDIT:  YES, ALWAYS
    UNEDITABLE
81202 PACKAGE 812;2 POINTER TO PACKAGE FILE (#9.4) PACKAGE(#9.4)

  • LAST EDITED:  AUG 13, 2015
  • HELP-PROMPT:  Enter the VistA package from which this record originated.
  • DESCRIPTION:  This is the VistA package from which this skin test record originated through PCE.
    This is automatically entered by the software and uneditable by users.
  • AUDIT:  YES, ALWAYS
    UNEDITABLE
81203 DATA SOURCE 812;3 POINTER TO PCE DATA SOURCE FILE (#839.7) PCE DATA SOURCE(#839.7)

  • LAST EDITED:  FEB 13, 2015
  • HELP-PROMPT:  Select the data source for this skin test entry through PCE.
  • DESCRIPTION:  
    This is the data source for this skin test, automatically entered through the PCS software and uneditable by users.
  • AUDIT:  YES, ALWAYS
    UNEDITABLE

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #2597
  • Clinical Information Resource Network
  • SKIN TEST (.01).
    Access: Read w/Fileman

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

    VISIT (.03).
    Access: Read w/Fileman

    RESULTS (.04).
    Access: Read w/Fileman

    READING (.05).
    Access: Read w/Fileman

    DATE READ (.06).
    Access: Read w/Fileman

    External References

    Name Field # of Occurrence
    ^%DT .06+1, 1201+1, 1211+1, 1220+1
    NOW^%DTC .06(XREF 1S), 1201(XREF 1S)
    ADD^AUPNVSIT .03(XREF 3S)
    SUB^AUPNVSIT .03(XREF 3K)
    ^DIC .01+1, .03+1, 801+1, 802+1, 803+1, 804+1, 805+1, 806+1, 807+1, 808+1
    , 1212+1
    ^DICR .06(XREF 1n1.4), 1201(XREF 1n1.4)
    KVFILE^PXPXRM IXACRKL+1
    SVFILE^PXPXRM IXACRSL+1
    $$TIME^PXVUTL .06+1, 1201+1
    HR^PXVUTL IXAHSL+1, IXAHKL+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNVSIT - [#9000010] ID.03+1, .01(XREF 3S), .01(XREF 3K), .02(XREF 2S), .02(XREF 2K), .03(XREF 2S), .03(XREF 2K)
    ^AUPNVSK - [#9000010.12] .01(XREF 3S), .01(XREF 3K), .02(XREF 2S), .02(XREF 2K), .03(XREF 2S), .03(XREF 2K), .06(XREF 1S), .06(XREF 1n1.4), 1201(XREF 1S), 1201(XREF 1n1.4)
    ^AUPNVSK("AA" .01(XREF 3S), .01(XREF 3K), .02(XREF 2S), .02(XREF 2K), .03(XREF 2S), .03(XREF 2K)
    ^AUPNVSK("AD" .03(XREF 1S), .03(XREF 1K)
    ^AUPNVSK("AE" .05(XREF 2S), .05(XREF 2K)
    ^AUPNVSK("B" .01(XREF 1S), .01(XREF 1K)
    ^AUPNVSK("C" .02(XREF 3S), .02(XREF 3K)
    ^DD("DD" ID.03+1
    ^DD(9000010.12 .06(XREF 1S), 1201(XREF 1S)
    ^DPT - [#2] ID.02+1
    ^PXRMINDX(9000010.12 IXACRKEIC+1!

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID.02+1, ID.03+1, .01(XREF 3S), .01(XREF 3K)
    ^(12 .06(XREF 1S), .06(XREF 1n1.4), 1201(XREF 1S), 1201(XREF 1n1.4)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % .06(XREF 1S), 1201(XREF 1S)
    >> %DT .06+1*, 1201+1*, 1211+1*, 1220+1*
    %H .06(XREF 1S), 1201(XREF 1S)
    %I .06(XREF 1S), 1201(XREF 1S)
    AIHSY ID.03+1*!
    >> D0 .06(XREF 1S), 1201(XREF 1S)
    >> DA IXACRSL+1, IXACRKL+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 3S), .01(XREF 3K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K)
    .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .05(XREF 2S), .05(XREF 2K), .06(XREF 1S), 1201(XREF 1S)
    DIC ID.02+1, ID.03+1, .01+1!*, .03+1!*, 801+1!*, 802+1!*, 803+1!*, 804+1!*, 805+1!*, 806+1!*
    , 807+1!*, 808+1!*, 1212+1!*
    DIC("S" .01+1*, .01SCR+1*, .03+1*, .03SCR+1*, 801+1*, 801SCR+1*, 802+1*, 802SCR+1*, 803+1*, 803SCR+1*
    , 804+1*, 804SCR+1*, 805+1*, 805SCR+1*, 806+1*, 806SCR+1*, 807+1*, 807SCR+1*, 808+1*, 808SCR+1*
    , 1212+1*, 1212SCR+1*
    >> DIE .01+1, .03+1, 801+1, 802+1, 803+1, 804+1, 805+1, 806+1, 807+1, 808+1
    , 1212+1
    >> DIG .06(XREF 1n1.4), 1201(XREF 1n1.4)
    >> DIH .06(XREF 1n1.4), 1201(XREF 1n1.4)
    >> DIU .06(XREF 1S), 1201(XREF 1S)
    DIV .06(XREF 1S), .06(XREF 1n1.4), 1201(XREF 1S), 1201(XREF 1n1.4)
    DIV(0 .06(XREF 1S), .06(XREF 1n1.4), 1201(XREF 1S), 1201(XREF 1n1.4)
    U ID.02+1, ID.03+1, .01(XREF 3S), .01(XREF 3K), .02(XREF 2S), .02(XREF 2K), .03(XREF 2S), .03(XREF 2K), .06(XREF 1S), .06(XREF 1n1.4)
    1201(XREF 1S), 1201(XREF 1n1.4)
    X IXACRSL+1, IXACRKL+1, IXAHSCC+1*, IXAHKCC+1*, .01+1*!, .01(XREF 1S), .01(XREF 1K), .01(XREF 3S), .01(XREF 3K), .02(XREF 2S)
    .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .03+1*!, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .05+1!, .05(XREF 2S)
    .05(XREF 2K), .06+1*!, .06(XREF 1S), .06(XREF 1n1.4), 801+1*!, 802+1*!, 803+1*!, 804+1*!, 805+1*!, 806+1*!
    , 807+1*!, 808+1*!, 1201+1*!, 1201(XREF 1S), 1201(XREF 1n1.4), 1211+1*!, 1212+1*!, 1214+1!, 1220+1*!, 1301+1!
    , 80102+1!, 81101+1!
    X(1 IXAHSCC+1, IXAHKCC+1
    Y ID.03+1*, .01+1, .03+1, .06+1, .06(XREF 1S), 801+1, 802+1, 803+1, 804+1, 805+1
    , 806+1, 807+1, 808+1, 1201+1, 1201(XREF 1S), 1211+1, 1212+1, 1220+1
    Y(1 .06(XREF 1S), 1201(XREF 1S)
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All