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

Package: PCE Patient Care Encounter

Global: ^AUPNVICR


Information

FileMan FileNo FileMan Filename Package
9000010.707 V IMM CONTRA/REFUSAL EVENTS PCE Patient Care Encounter

Description

Directly Accessed By Routines, Total: 9

Package Total Routines
PCE Patient Care Encounter 7 PXPXRMI1    ^AUPNVICR    PXAIICR    PXAPIIM    PXKENCOUNTER    PXPXRM    PXRHS03    
VA FileMan 2 YEAR    ^DDE    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
PCE Patient Care Encounter 3 PXCEICR    PXP236    PXRHS03    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
PCE Patient Care Encounter 6 PATIENT/IHS(#9000001)[.02]    VISIT(#9000010)[.03]    IMMUNIZATION(#9999999.14)[.04]    PCE DATA SOURCE(#839.7)[81203]    IMM CONTRAINDICATION REASONS(#920.4)[.01]    IMM REFUSAL REASONS(#920.5)[.01]    
Kernel 2 PACKAGE(#9.4)[81202]    NEW PERSON(#200)[1204]    

Fields, Total: 15

Field # Name Loc Type Details
.01 CONTRAINDICATION/REFUSAL 0;1 VARIABLE POINTER
************************REQUIRED FIELD************************
IMM CONTRAINDICATION REASONS(#920.4)  IMM REFUSAL REASONS(#920.5)  

  • EXPLANATION:  Only active contraindication reasons may be selected.
    SCREEN ON FILE 920.5: S DIC("S")="I '$$SCREEN^XTID(920.5,,Y_"","")"
  • EXPLANATION:  Only active refusal reasons may be selected.
  • LAST EDITED:  MAR 25, 2016
  • HELP-PROMPT:  Enter the Contraindication or Refusal Reason for this event.
  • DESCRIPTION:  
    This is the contraindication or refusal reason for this non-administration event.
  • AUDIT:  YES, ALWAYS
  • CROSS-REFERENCE:  9000010.707^B
    1)= S ^AUPNVICR("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVICR("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.707^.06
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVICR(D0,0)):^(0),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y X ^DD(9000010.707,.01,1,2,1.1) S DIH=$G(^AUPNVICR(DIV(0),0)),DIV=X S $P(^(0),U,6)=DIV,DIH=9000010.707,DIG=.06 D ^D
    ICR
    1.1)= S X=DIV N %I,%H,% D NOW^%DTC S X=% S X=X,Y(1)=$G(X) S X=1,Y(2)=$G(X) S X=12,X=$E(Y(1),Y(2),X)
    2)= Q
    CREATE VALUE)= $E(NOW,1,12)
    DELETE VALUE)= NO EFFECT
    FIELD)= DATE/TIME RECORDED
    The DATE/TIME RECORDED field (#.06) will be triggered whenever the CONTRAINDICATION/REFUSAL field (#.01) is entered or updated. The triggered value will be NOW.
  • RECORD INDEXES:  AA (#1396), AC (#1397), ACR (#1398), AE (#1399)
.02 PATIENT NAME 0;2 POINTER TO PATIENT/IHS FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT/IHS(#9000001)

  • LAST EDITED:  MAR 25, 2016
  • HELP-PROMPT:  Enter the patient for whom the immunization was contraindicated or refused.
  • DESCRIPTION:  
    This is the patient for whom the immunization was contraindicated or refused.
  • 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
  • CROSS-REFERENCE:  9000010.707^C
    1)= S ^AUPNVICR("C",$E(X,1,30),DA)=""
    2)= K ^AUPNVICR("C",$E(X,1,30),DA)
    This cross reference allows look-up by patient name.
  • RECORD INDEXES:  AA (#1396), AB (#1721), ACR (#1398), AE (#1399)
.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010)
************************REQUIRED FIELD************************
VISIT(#9000010)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVICR(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 25, 2016
  • HELP-PROMPT:  Enter the visit date/time for this encounter.
  • DESCRIPTION:  
    This is the encounter defined in the Visit file that represents when and where this immunization contraindication or refusal event occurred.
  • TECHNICAL DESCR:  
    This is the 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(^AUPNVICR(DA,0),U,2)"
  • EXPLANATION:  Visit must be for current patient.
  • AUDIT:  YES, ALWAYS
  • CROSS-REFERENCE:  9000010.707^AD
    1)= S ^AUPNVICR("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVICR("AD",$E(X,1,30),DA)
    This cross reference allows look-up of entries by patient name.
  • CROSS-REFERENCE:  9000010.707^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
    This cross-reference adds and subtracts from the dependent entry count in the VISIT file.
  • RECORD INDEXES:  AA (#1396), AB (#1721), AC (#1397), ACR (#1398)
.04 IMMUNIZATION 0;4 POINTER TO IMMUNIZATION FILE (#9999999.14)
************************REQUIRED FIELD************************
IMMUNIZATION(#9999999.14)

  • LAST EDITED:  DEC 31, 2015
  • HELP-PROMPT:  Enter the immunization contraindicated or refused.
  • DESCRIPTION:  
    This is the immunization that is contraindicated or refused.
  • AUDIT:  YES, ALWAYS
  • RECORD INDEXES:  AB (#1721), AC (#1397), ACR (#1398), AE (#1399)
.05 WARN UNTIL DATE 0;5 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 19, 2015
  • HELP-PROMPT:  Enter a date until which a warning should be given for this contraindication/refusal.
  • DESCRIPTION:  
    This is the date until which a warning of this contraindication/refusal should be presented.
  • AUDIT:  YES, ALWAYS
  • RECORD INDEXES:  ACR (#1398)
.06 DATE/TIME RECORDED 0;6 DATE

  • INPUT TRANSFORM:  S %DT="ETXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 10, 2016
  • HELP-PROMPT:  Enter the date and time this event was documented.
  • AUDIT:  YES, ALWAYS
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the CONTRAINDICATION/REFUSAL field of the V IMM CONTRA/REFUSAL EVENTS File
1201 EVENT DATE AND TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 12, 2015
  • HELP-PROMPT:  Enter the date and (optional) time if this contraindication/refusal event.
  • AUDIT:  YES, ALWAYS
  • RECORD INDEXES:  ACR (#1398)
1204 ENCOUNTER PROVIDER 12;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 12, 2015
  • HELP-PROMPT:  Enter the provider associated with this contraindication/refusal event.
  • DESCRIPTION:  
    This is the provider associated with this contraindication/refusal event.
  • TECHNICAL DESCR:  
    This person can be any person in the new person file.
  • AUDIT:  YES, ALWAYS
1205 REFUSED VACCINE GROUP 12;5 SET (BOOLEAN Data Type)
  • Yes - Refusal of all immunizations in this group. No - Refusal of only this specific formulation of vaccine.

  • LAST EDITED:  MAY 26, 2021
  • HELP-PROMPT:  Answer "Yes", if refused all immunizations in this group. Answer "No", if refused only this specific formulation of vaccine.
  • DESCRIPTION:  
    Yes - Refusal of all immunizations in this group. No - Refusal of only this specific formulation of vaccine.
80101 EDITED FLAG 801;1 SET
  • '1' FOR EDITED;

  • LAST EDITED:  MAR 10, 2016
  • HELP-PROMPT:  Enter 1 if this event data is being edited.
  • DESCRIPTION:  
    This field is automatically set to 1 if PCE detects that any original contraindication/refusal event 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:  NOV 12, 2015
  • HELP-PROMPT:  Answer must be 2-85 characters in length.
  • 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 COMMENTS 811;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  NOV 12, 2015
  • HELP-PROMPT:  Answer must be 1-245 characters in length.
  • DESCRIPTION:  
    This is a comment related to this contraindication/refusal event. 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:  MAR 10, 2016
  • HELP-PROMPT:  Enter 1 if verified by electronic signature or 2 if verified by package.
  • 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 by users.
  • AUDIT:  YES, ALWAYS
81202 PACKAGE 812;2 POINTER TO PACKAGE FILE (#9.4) PACKAGE(#9.4)

  • LAST EDITED:  MAR 10, 2016
  • HELP-PROMPT:  Enter the VistA package from which this record originated.
  • DESCRIPTION:  
    This is the VistA package from which this immunization record originated through PCE.
  • TECHNICAL DESCR:  
    This is automatically entered by the software and is uneditable by users.
  • AUDIT:  YES, ALWAYS
81203 DATA SOURCE 812;3 POINTER TO PCE DATA SOURCE FILE (#839.7) PCE DATA SOURCE(#839.7)

  • LAST EDITED:  NOV 12, 2015
  • HELP-PROMPT:  Select the data source for this contraindication/refusal event.
  • DESCRIPTION:  
    This is the data source for this event, automatically entered through the PCE software and uneditable by users.
  • AUDIT:  YES, ALWAYS

External References

Name Field # of Occurrence
^%DT .05+1, .06+1, 1201+1
NOW^%DTC .01(XREF 2n1.1)
ADD^AUPNVSIT .03(XREF 2S)
SUB^AUPNVSIT .03(XREF 2K)
^DIC .03+1
^DICR .01(XREF 2S)
Y^DIQ ID.02+1, ID.03+1, ID.04+1
VICRFILE^PXPXRM IXACRSL+1, IXACRKL+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^AUPNPAT - [#9000001] ID.02+1
^AUPNVICR - [#9000010.707] .01(XREF 2S)
^AUPNVICR("AA" IXAASL+1*, IXAAKL+1!, IXAAKEIC+1!
^AUPNVICR("AB" IXABSL+1*, IXABKL+1!, IXABKEIC+1!
^AUPNVICR("AC" IXACSL+1*, IXACKL+1!, IXACKEIC+1!
^AUPNVICR("AD" .03(XREF 1S), .03(XREF 1K)
^AUPNVICR("AE" IXAESL+1*, IXAEKL+1!, IXAEKEIC+1!
^AUPNVICR("B" .01(XREF 1S), .01(XREF 1K)
^AUPNVICR("C" .02(XREF 1S), .02(XREF 1K)
^AUPNVSIT - [#9000010] ID.03+1, IXAASL+1, IXAAKL+1, IXABP3TS+1
^AUTTIMM - [#9999999.14] ID.04+1
^DD(9000001 ID.02+1
^DD(9000010 ID.03+1
^DD(9000010.707 .01(XREF 2S)
^DD(9999999.14 ID.04+1
^PXRMINDX(9000010.70 7, IXACRKEIC+1!

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1, ID.03+1, ID.04+1, .01(XREF 2S)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% .01(XREF 2n1.1)
>> %DT .05+1*, .06+1*, 1201+1*
%H .01(XREF 2n1.1)
%I ID.02+1*!, ID.03+1*!, ID.04+1*!, .01(XREF 2n1.1)
>> C ID.02+1*, ID.03+1*, ID.04+1*
>> D0 .01(XREF 2S)
>> DA IXAASL+1, IXAAKL+1, IXABSL+1, IXABKL+1, IXACSL+1, IXACKL+1, IXACRSL+1, IXACRKL+1, IXAESL+1, IXAEKL+1
, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
DIC ID.02+1, ID.03+1, ID.04+1, .03+1!*
DIC("S" .01VPSCR1+1*, .01VPSCR2+1*, .03+1*, .03SCR+1*
>> DIE .03+1
>> DIG .01(XREF 2S)
>> DIH .01(XREF 2S)
>> DIU .01(XREF 2S)
DIV .01(XREF 2S), .01(XREF 2n1.1)
DIV(0 .01(XREF 2S)
U ID.02+1, ID.03+1, ID.04+1, .01(XREF 2S)
X IXAASCC+1*, IXAAKCC+1*, IXABP3TS+1*, IXACRSL+1, IXACRKL+1, .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2n1.1), .02(XREF 1S)
, .02(XREF 1K), .03+1*!, .03(XREF 1S), .03(XREF 1K), .05+1*!, .06+1*!, 1201+1*!, 80102+1!, 81101+1!
X(1 IXAASL+1, IXAASCC+1, IXAAKL+1, IXAAKCC+1, IXABSL+1, IXABKL+1, IXACSL+1, IXACKL+1, IXAESL+1, IXAEKL+1
X(2 IXAASL+1, IXAASCC+1, IXAAKL+1, IXAAKCC+1, IXABSL+1, IXABKL+1, IXACSL+1, IXACKL+1, IXAESL+1, IXAEKL+1
X(3 IXAASL+1, IXAASCC+1, IXAAKL+1, IXAAKCC+1, IXABSL+1, IXABKL+1, IXACSL+1, IXACKL+1, IXAESL+1, IXAEKL+1
Y ID.02+1*, ID.03+1*, ID.04+1*, .01(XREF 2S), .03+1, .05+1, .06+1, 1201+1
Y(1 .01(XREF 2S), .01(XREF 2n1.1)
Y(2 .01(XREF 2n1.1)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All