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 |  Found Entries |  All
Print Page as PDF
Global: ^AUPNPREF

Package: IHS Patient

Global: ^AUPNPREF


Information

FileMan FileNo FileMan Filename Package
9000022 PATIENT REFUSALS FOR SERVICE/NMI IHS Patient

Description

Directly Accessed By Routines, Total: 470

Package Total Routines
IHS GPRA Information System 299 BGP0C11    BGP0C12    BGP0C13    BGP0C2X    BGP0C3X    BGP0CON1    BGP0CU1    BGP0CU2
BGP0CU4    BGP0D25    BGP0D33    BGP0D34    BGP0D35    BGP0D36    BGP0D6    BGP0D71
BGP0D711    BGP0D721    BGP0D722    BGP0D731    BGP0D732    BGP0D75    BGP0D85    BGP0D86
BGP0DHE1    BGP0EO11    BGP0REF1    BGP0UTL1    BGP1C11    BGP1C12    BGP1C13    BGP1C2X
BGP1C3X    BGP1CON1    BGP1CU1    BGP1CU2    BGP1CU4    BGP1D25    BGP1D33    BGP1D34
BGP1D35    BGP1D36    BGP1D37    BGP1D38    BGP1D3A    BGP1D6    BGP1D71    BGP1D711
BGP1D721    BGP1D722    BGP1D723    BGP1D724    BGP1D731    BGP1D732    BGP1D75    BGP1D85
BGP1D86    BGP1DHE1    BGP1EO11    BGP1REF1    BGP1UTL1    BGP2C11    BGP2C12    BGP2C13
BGP2C2X    BGP2C3X    BGP2CON1    BGP2CU1    BGP2CU2    BGP2CU4    BGP2D25    BGP2D33
BGP2D34    BGP2D35    BGP2D36    BGP2D37    BGP2D38    BGP2D3A    BGP2D6    BGP2D71
BGP2D711    BGP2D721    BGP2D722    BGP2D723    BGP2D724    BGP2D731    BGP2D732    BGP2D75
BGP2D811    BGP2D86    BGP2DHE1    BGP2EO11    BGP2REF1    BGP2UTL1    BGP3C11    BGP3C12
BGP3C13    BGP3C2X    BGP3C3X    BGP3CON1    BGP3CU1    BGP3CU2    BGP3CU4    BGP3D33
BGP3D34    BGP3D35    BGP3D36    BGP3D37    BGP3D38    BGP3D3A    BGP3D6    BGP3D71
BGP3D721    BGP3D722    BGP3D723    BGP3D724    BGP3D731    BGP3D732    BGP3D75    BGP3D811
BGP3D86    BGP3REF1    BGP3UTL1    BGP4C11    BGP4C13    BGP4CON1    BGP4CU1    BGP4D33
BGP4D34    BGP4D35    BGP4D36    BGP4D37    BGP4D38    BGP4D3A    BGP4D6    BGP4D71
BGP4D721    BGP4D722    BGP4D723    BGP4D724    BGP4D731    BGP4D732    BGP4D75    BGP4D811
BGP4D86    BGP4REF1    BGP4UTL1    BGP5C1    BGP5C11    BGP5C13    BGP5C3    BGP5CON1
BGP5CU1    BGP5D33    BGP5D34    BGP5D35    BGP5D36    BGP5D37    BGP5D38    BGP5D3A
BGP5D6    BGP5D71    BGP5D721    BGP5D722    BGP5D723    BGP5D724    BGP5D731    BGP5D732
BGP5D75    BGP5D811    BGP5D86    BGP5REF1    BGP5UTL1    BGP6C1    BGP6C11    BGP6C12
BGP6C13    BGP6C2    BGP6C3    BGP6CON1    BGP6CU1    BGP6D212    BGP6D33    BGP6D34
BGP6D35    BGP6D36    BGP6D37    BGP6D38    BGP6D3A    BGP6D3B    BGP6D6    BGP6D71
BGP6D721    BGP6D722    BGP6D723    BGP6D724    BGP6D731    BGP6D732    BGP6D75    BGP6D811
BGP6D86    BGP6DHE1    BGP6REF1    BGP6UTL1    BGP7C1    BGP7C12    BGP7C13    BGP7C2
BGP7C3    BGP7CON1    BGP7CU1    BGP7D212    BGP7D33    BGP7D34    BGP7D35    BGP7D36
BGP7D37    BGP7D38    BGP7D3A    BGP7D3B    BGP7D6    BGP7D71    BGP7D721    BGP7D722
BGP7D723    BGP7D724    BGP7D731    BGP7D732    BGP7D75    BGP7D811    BGP7D86    BGP7DHE1
BGP7REF1    BGP7UTL1    BGP8C12    BGP8C13    BGP8C2X    BGP8C3X    BGP8CON1    BGP8CU1
BGP8CU2    BGP8CU4    BGP8D212    BGP8D33    BGP8D34    BGP8D35    BGP8D36    BGP8D37
BGP8D38    BGP8D3A    BGP8D3B    BGP8D6    BGP8D71    BGP8D721    BGP8D722    BGP8D723
BGP8D724    BGP8D731    BGP8D732    BGP8D75    BGP8D811    BGP8D86    BGP8DHE1    BGP8EO11
BGP8PC17    BGP8REF1    BGP8UTL1    BGP9C11    BGP9C12    BGP9C13    BGP9C2X    BGP9C3X
BGP9CON1    BGP9CU1    BGP9CU2    BGP9CU4    BGP9D25    BGP9D33    BGP9D34    BGP9D35
BGP9D36    BGP9D6    BGP9D71    BGP9D711    BGP9D721    BGP9D722    BGP9D731    BGP9D732
BGP9D75    BGP9D85    BGP9D86    BGP9DHE1    BGP9EO11    BGP9REF1    BGP9UTL1    BGPD6
BGPD7    BGPMUF02    BGPMUUT2    
Diabetes Registry 72 BDMD012    BDMD016    BDMD017    BDMD112    BDMD117    BDMD207    BDMD217    BDMD317
BDMD411    BDMD412    BDMD413    BDMD417    BDMD4DU    BDMD512    BDMD517    BDMD612
BDMD617    BDMD712    BDMD717    BDMD812    BDMD817    BDMD912    BDMD917    BDMD997
BDMDA11    BDMDA13    BDMDA17    BDMDADU    BDMDB11    BDMDB13    BDMDB17    BDMDBDU
BDMDC11    BDMDC13    BDMDC16    BDMDC17    BDMDCDU    BDMDD13    BDMDD16    BDMDD17
BDMDDDU    BDMDE13    BDMDE16    BDMDE17    BDMDEDU    BDMDF13    BDMDF16    BDMDF17
BDMDFDU    BDMDG13    BDMDG16    BDMDG17    BDMDGDU    BDMP017    BDMP117    BDMP417
BDMP517    BDMP617    BDMP717    BDMP817    BDMP917    BDMPA17    BDMPB17    BDMPC17
BDMPD17    BDMPE17    BDMPF17    BDMPG17    BDMS9B2    BDMSMU    BDMSMU1    BDMSMU2
Patient Care Component Reports 33 APCLAL1    APCLAL1A    APCLAL2    APCLAL31    APCLAL4    APCLAL5    APCLD207    APCLD217
APCLD317    APCLD512    APCLD517    APCLD612    APCLD617    APCLD712    APCLD717    APCLD812
APCLD817    APCLD997    APCLDE1    APCLDE2    APCLDE31    APCLDE4    APCLDE5    APCLDV1
APCLDV2    APCLDV31    APCLDV4    APCLDV5    APCLP517    APCLP617    APCLP717    APCLP817
APCLREF1    
Mental Health Social Services 20 AMHRAS1    AMHRAS2    AMHRAS31    AMHRAS4    AMHRAS5    AMHRDE1    AMHRDE2    AMHRDE31
AMHRDE4    AMHRDE5    AMHRDV1    AMHRDV2    AMHRDV31    AMHRDV4    AMHRDV5    AMHRSR1
AMHRSR2    AMHRSR31    AMHRSR4    AMHRSR5    
Patient Care Component 12 APCDHIST    APCHPMH2    APCHPRE1    APCHPST1    APCHPWH7    APCHS3C    APCHS5    APCHS9B2
APCHSM01    APCHSMU    APCHSMU1    APCHSMU2    
IHS Uniform Data System 11 BUD0UTL1    BUD1UTL1    BUD2UTL1    BUD8UTL1    BUD9UTL1    BUDAUTL1    BUDBUTL1    BUDCUTL1
BUDDUTL1    BUDEUTL1    BUDHUTL1    
GUI Objects 5 BGOPOST    BGOUTL2    BGOVAMI1    BGOVSK    BGOVSTR1    
Health Summary Components 3 BHSDM2    BHSMU    BHSPMH2    
iCare 3 BQICMUTL    BQIRGHEP    BQIRGUT1    
IHS Electronic Health Record 2 BEHOENP1    BEHOENPC    
IHS Patient 2 AUPNMAP    AUPNVUTL    
Data Warehouse Export System 1 BDWUTIL2    
IHS HIV Management System 1 BKMSTI    
IHS Immunizations Interface 1 BYIMSEG1    
IHS Mods To Patient Care Encounter 1 BPXRMREF    
Immunization Tracking 1 BIRPC4    
Local Area Programs 1 AZAXDPM1    
PCC Medical Query 1 AMQQMULR    
PCC New Encounter Form 1 VENPCC1E    

Accessed By FileMan Db Calls, Total: 30

Package Total Routines
iCare 10 BQIPTCPT    BQIPTED    BQIPTEXM    BQIPTIMM    BQIPTMSR    BQIPTPRC    BQIPTSKN    BQIRLB
BQIRMD    BQIRRD    
IHS Patient 4 AUPN9918    AUPN9920    AUPN9921    AUPNMAP    
Patient Care Component 4 APCDDMU3    APCDEREF    BJPC2P22    BJPC2PMU    
Patient Care Component Table Maintiance 3 APCM14E4    APCM24E4    APCM25E4    
Health Summary Components 2 BHSHS3    BHSRAD    
Data Warehouse Export System 1 BDWUTIL2    
Diabetes Registry 1 BDMEDMU3    
GUI Objects 1 BGOUTL2    
IHS HIV Management System 1 BKMIXX2    
IHS Immunizations Interface 1 BYIMMU2    
IHS Mods To Patient Care Encounter 1 BPXRMREF    
Mental Health Social Services 1 AMHPCCL1    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
IHS Patient 1 PATIENT(#9000001)[.02]    
Kernel 1 NEW PERSON(#200)[1204, 1217, 1219]
Utility Tables 1 REFUSAL TYPE(#9999999.73)[.01]    
VA Fileman 1 FILE(#1)[.05]    

Fields, Total: 19

Field # Name Loc Type Details
.01 SERVICE TYPE 0;1 POINTER TO REFUSAL TYPE FILE (#9999999.73)
************************REQUIRED FIELD************************
REFUSAL TYPE(#9999999.73)

  • LAST EDITED:  DEC 14, 2010
  • CROSS-REFERENCE:  9000022^B
    1)= S ^AUPNPREF("B",$E(X,1,30),DA)=""
    2)= K ^AUPNPREF("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000022^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  ^^TRIGGER^9000022^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNPREF(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=9000022,DIG=.08 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNPREF(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=9000022,DIG=.08 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT
    DELETE VALUE)= S X=$$NOW^XLFDT
    FIELD)= #.08
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  JUL 24, 2018
    UNEDITABLE
  • CROSS-REFERENCE:  9000022^AC
    1)= S ^AUPNPREF("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNPREF("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000022^AA^MUMPS
    1)= I $P(^AUPNPREF(DA,0),U,3)]"",$P(^(0),U,5)]"",$P(^(0),U,6)]"" S ^AUPNPREF("AA",X,$P(^AUPNPREF(DA,0),U,5),$P(^(0),U,6),(9999999-$P($P(^(0),U,3),".",1))_$S($P($P(^(0),U,3),".",2)'="":"."_$P($P(^(0),U,3),".",2),1:""),DA)="
    "
    2)= I $P(^AUPNPREF(DA,0),U,3)]"",$P(^(0),U,5)]"",$P(^(0),U,6)]"" K ^AUPNPREF("AA",X,$P(^AUPNPREF(DA,0),U,5),$P(^(0),U,6),(9999999-$P($P(^(0),U,3),".",1))_$S($P($P(^(0),U,3),".",2)'="":"."_$P($P(^(0),U,3),".",2),1:""),DA)
.03 DATE DECLINED/NOT INDICATED 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ET" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 24, 2018
  • HELP-PROMPT:  Type a date between 1960 and DT.
  • CROSS-REFERENCE:  9000022^AD
    1)= S ^AUPNPREF("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNPREF("AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000022^AATHREE^MUMPS
    1)= I $P(^AUPNPREF(DA,0),U,2)]"",$P(^(0),U,5)]"",$P(^(0),U,6)]"" S ^AUPNPREF("AA",$P(^AUPNPREF(DA,0),U,2),$P(^(0),U,5),$P(^(0),U,6),(9999999-$P(X,".",1))_$S($P(X,".",2)'="":"."_$P(X,".",2),1:""),DA)=""
    2)= I $P(^AUPNPREF(DA,0),U,2)]"",$P(^(0),U,5)]"",$P(^(0),U,6)]"" K ^AUPNPREF("AA",$P(^AUPNPREF(DA,0),U,2),$P(^(0),U,5),$P(^(0),U,6),(9999999-$P(X,".",1))_$S($P(X,".",2)'="":"."_$P(X,".",2),1:""),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9000022^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNPREF(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=9000022,DIG=.08 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNPREF(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=9000022,DIG=.08 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT
    DELETE VALUE)= S X=$$NOW^XLFDT
    FIELD)= #.08
.04 SERVICE DESC/PREFERRED TERM 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>160!($L(X)<1) X
  • LAST EDITED:  APR 16, 2013
  • HELP-PROMPT:  Answer must be 1-160 characters in length.
  • CROSS-REFERENCE:  ^^TRIGGER^9000022^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNPREF(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=9000022,DIG=.08 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNPREF(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=9000022,DIG=.08 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT
    DELETE VALUE)= S X=$$NOW^XLFDT
    FIELD)= #.08
.05 POINTER FILE 0;5 POINTER TO FILE FILE (#1) FILE(#1)

  • LAST EDITED:  JUL 24, 2018
  • CROSS-REFERENCE:  9000022^AAONE^MUMPS
    1)= I $P(^AUPNPREF(DA,0),U,2)]"",$P(^(0),U,3)]"",$P(^(0),U,6)]"" S ^AUPNPREF("AA",$P(^AUPNPREF(DA,0),U,2),X,$P(^(0),U,6),(9999999-$P($P(^(0),U,3),".",1))_$S($P($P(^(0),U,3),".",2)'="":"."_$P($P(^(0),U,3),".",2),1:""),DA)="
    "
    2)= I $P(^AUPNPREF(DA,0),U,2)]"",$P(^(0),U,3)]"",$P(^(0),U,6)]"" K ^AUPNPREF("AA",$P(^AUPNPREF(DA,0),U,2),X,$P(^(0),U,6),(9999999-$P($P(^(0),U,3),".",1))_$S($P($P(^(0),U,3),".",2)'="":"."_$P($P(^(0),U,3),".",2),1:""),DA)
  • CROSS-REFERENCE:  9000022^AE^MUMPS
    1)= I $P(^AUPNPREF(DA,0),U,6) S ^AUPNPREF("AE",X,$P(^(0),U,6),DA)=""
    2)= I $P(^AUPNPREF(DA,0),U,6) K ^AUPNPREF("AE",X,$P(^(0),U,6),DA)
.06 POINTER VALUE 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUL 24, 2018
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • CROSS-REFERENCE:  9000022^AATWO^MUMPS
    1)= I $P(^AUPNPREF(DA,0),U,2)]"",$P(^(0),U,3)]"",$P(^(0),U,5)]"" S ^AUPNPREF("AA",$P(^AUPNPREF(DA,0),U,2),$P(^(0),U,5),X,(9999999-$P($P(^(0),U,3),".",1))_$S($P($P(^(0),U,3),".",2)'="":"."_$P($P(^(0),U,3),".",2),1:""),DA)="
    "
    2)= I $P(^AUPNPREF(DA,0),U,2)]"",$P(^(0),U,3)]"",$P(^(0),U,5)]"" K ^AUPNPREF("AA",$P(^AUPNPREF(DA,0),U,2),$P(^(0),U,5),X,(9999999-$P($P(^(0),U,3),".",1))_$S($P($P(^(0),U,3),".",2)'="":"."_$P($P(^(0),U,3),".",2),1:""),DA)
  • CROSS-REFERENCE:  9000022^AETOO^MUMPS
    1)= I $P(^AUPNPREF(DA,0),U,5) S ^AUPNPREF("AE",$P(^(0),U,5),X,DA)=""
    2)= I $P(^AUPNPREF(DA,0),U,5) K ^AUPNPREF("AE",$P(^(0),U,5),X,DA)
.07 REASON NOT DONE 0;7 SET
  • 'R' FOR DECLINED SERVICE;
  • 'N' FOR NOT MEDICALLY INDICATED;
  • 'F' FOR NO RESPONSE TO FOLLOWUP;
  • 'P' FOR PROVIDER DISCONTINUED;
  • 'U' FOR CONSIDERED AND NOT DONE;
  • 'S' FOR SYSTEM REASON;

  • LAST EDITED:  APR 16, 2013
  • CROSS-REFERENCE:  ^^TRIGGER^9000022^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNPREF(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=9000022,DIG=.08 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNPREF(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=9000022,DIG=.08 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT
    DELETE VALUE)= S X=$$NOW^XLFDT
    FIELD)= #.08
  • CROSS-REFERENCE:  9000022^ASNMMAP^MUMPS
    1)= D REFMAP^AUPNMAP
    2)= Q
.08 DATE LAST MODIFIED 0;8 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 07, 2010
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the SERVICE TYPE field of the PATIENT REFUSALS FOR SERVICE/NMI File
    TRIGGERED by the DATE DECLINED/NOT INDICATED field of the PATIENT REFUSALS FOR SERVICE/NMI File
    TRIGGERED by the SERVICE DESC/PREFERRED TERM field of the PATIENT REFUSALS FOR SERVICE/NMI File
    TRIGGERED by the REASON NOT DONE field of the PATIENT REFUSALS FOR SERVICE/NMI File
    TRIGGERED by the COMMENT field of the PATIENT REFUSALS FOR SERVICE/NMI File
    TRIGGERED by the PROVIDER WHO DOCUMENTED field of the PATIENT REFUSALS FOR SERVICE/NMI File
  • CROSS-REFERENCE:  9000022^ADLM
    1)= S ^AUPNPREF("ADLM",$E(X,1,30),DA)=""
    2)= K ^AUPNPREF("ADLM",$E(X,1,30),DA)
1.01 CONCEPT ID REASON NOT DONE 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  APR 16, 2013
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
1.019 CONCEPT ID RND FSN COMPUTED

  • MUMPS CODE:  S Y(9000022,1.019,1)=$S($D(^AUPNPREF(D0,1)):^(1),1:"") S X=$P(Y(9000022,1.019,1),U,1),X=$$CONFSN^AUPNVUTL(X)
  • ALGORITHM:  AUPNCIDFSN(#1.01)
  • LAST EDITED:  MAY 28, 2013
1.02 DESC ID REASON NOT DONE 1;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  APR 11, 2013
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
1101 COMMENT 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  JUL 06, 2010
  • HELP-PROMPT:  Answer must be 1-245 characters in length.
  • CROSS-REFERENCE:  ^^TRIGGER^9000022^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNPREF(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=9000022,DIG=.08 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNPREF(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=9000022,DIG=.08 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT
    DELETE VALUE)= S X=$$NOW^XLFDT
    FIELD)= #.08
1204 PROVIDER WHO DOCUMENTED 12;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 06, 2010
  • CROSS-REFERENCE:  ^^TRIGGER^9000022^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNPREF(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=9000022,DIG=.08 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPREF(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$NOW^XLFDT S DIH=$G(^AUPNPREF(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=9000022,DIG=.08 D ^DICR
    CREATE VALUE)= S X=$$NOW^XLFDT
    DELETE VALUE)= S X=$$NOW^XLFDT
    FIELD)= #.08
1216 DATE/TIME ENTERED 12;16 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 2012
  • CROSS-REFERENCE:  ^^TRIGGER^9000022^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPREF(D0,12)):^(12),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000022,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNPREF(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000022,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000022^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPREF(D0,12)):^(12),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=$$NOW^XLFDT X ^DD(9000022,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNPREF(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000022,DIG=1218 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=$$NOW^XLFDT
    DELETE VALUE)= NO EFFECT
    FIELD)= #1218
1217 ENTERED BY 12;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 2012
  • NOTES:  TRIGGERED by the DATE/TIME ENTERED field of the PATIENT REFUSALS FOR SERVICE/NMI File
1218 DATE/TIME LAST MODIFIED 12;18 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 2012
  • NOTES:  TRIGGERED by the DATE/TIME ENTERED field of the PATIENT REFUSALS FOR SERVICE/NMI File
  • CROSS-REFERENCE:  ^^TRIGGER^9000022^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNPREF(D0,12)):^(12),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000022,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNPREF(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000022,DIG=1219 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1219
1219 LAST MODIFIED BY 12;19 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 2012
  • NOTES:  TRIGGERED by the DATE/TIME LAST MODIFIED field of the PATIENT REFUSALS FOR SERVICE/NMI File
1301 CONCEPT ID FOR REFUSED SERVICE 13;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  APR 16, 2013
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
1302 DESC ID FOR REFUSED SERVICE 13;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  APR 16, 2013
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All