Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^AUPNVCHS

Package: IHS Patient

Global: ^AUPNVCHS


Information

FileMan FileNo FileMan Filename Package
9000010.03 V CHS IHS Patient

Description

Directly Accessed By Routines, Total: 17

Package Total Routines
Patient Care Component 5 APCDCHKI    APCDCHKJ    APCDCHKP    APCDPAUT    APCHS2C    
Data Warehouse Export System 2 BDWUTIL    BDWUTIL1    
Patient Care Component Data Transmission 2 APCPDR2    APCPUTIL    
Patient Care Component Reports 2 APCLSIL2    APCLVLU    
Clinical Scheduling for Windows 1 BSDX41I    
Health Summary Components 1 BHSHOS    
Local Area Programs 1 AZAXDPM1    
PCC Medical Query 1 AMQQMUL1    
Quality Assurance 1 AQAOEDTV    
Women's Health 1 BWGRVLU    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Comprehensive Diabetes Management 1 BCDMFLDS    
Patient Care Component 1 APCDPAUT    

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Contract Health Management Information System 1 CHS FACILITY(#9002080)[#9002080.01(61)]    
Patient Care Component 1 PCC DATA TRANS LOG(#9001005)[#9001005.05101(.02)]    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
IHS Patient 2 PATIENT(#9000001)[.02]    VISIT(#9000010)[.03]    
Utility Tables 2 LOCATION(#9999999.06)[.01]    VENDOR(#9999999.11)[.14]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[.09]    
Kernel 1 NEW PERSON(#200)[1217, 1219]    

Fields, Total: 19

Field # Name Loc Type Details
.01 AUTHORIZING FACILITY 0;1 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)

  • LAST EDITED:  MAR 18, 1991
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTFAC")
  • CROSS-REFERENCE:  9000010.03^B
    1)= S ^AUPNVCHS("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVCHS("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.03^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  APR 17, 1986
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDPAT")
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.03^AC
    1)= S ^AUPNVCHS("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVCHS("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.03^AATOO^MUMPS
    1)= I $P(^AUPNVCHS(DA,0),U,3)]"" S ^AUPNVCHS("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVCHS(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^AUPNVCHS(DA,0),U,3)]"" K ^AUPNVCHS("AA",X,(9999999-$P(+^AUPNVSIT($P(^AUPNVCHS(DA,0),U,3),0),".",1)),DA)
.03 VISIT 0;3 POINTER TO VISIT FILE (#9000010)
************************REQUIRED FIELD************************
VISIT(#9000010)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVCHS(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 11, 1986
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDVSIT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVCHS(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.03^AD
    1)= S ^AUPNVCHS("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVCHS("AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.03^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
  • CROSS-REFERENCE:  9000010.03^AA^MUMPS
    1)= Q:$P(^AUPNVCHS(DA,0),U,2)=""  S ^AUPNVCHS("AA",$P(^AUPNVCHS(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^AUPNVCHS(DA,0),U,2)=""  K ^AUPNVCHS("AA",$P(^AUPNVCHS(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
.04 AUTHORIZATION NO. 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<10)!'(X?2N3AN5N) X I $D(X),$D(^AUPNVCHS("AUTHNO",X)),'$D(^(X,DA)) W:'$D(ZTQUEUED) " Duplicate ",$C(7) K X
  • LAST EDITED:  DEC 23, 1991
  • HELP-PROMPT:  Enter a two digit fiscal year followed by three digit location code followed by five digit number. Entry must be 10 characters. No hyphens required.
  • DESCRIPTION:  
    Enter two digit fiscal year followed by three digit location code followed by five digit number.  Entry must be 10 characters in length.  No hyphens required..
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTAUT")
    SOURCE OF DATA:   025/CMIANO,026/CMOANO
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9000010.03^AUTHNO
    1)= S ^AUPNVCHS("AUTHNO",$E(X,1,30),DA)=""
    2)= K ^AUPNVCHS("AUTHNO",$E(X,1,30),DA)
.05 PAY STATUS 0;5 SET
************************REQUIRED FIELD************************
  • 'F' FOR FULL PAY;
  • 'P' FOR PARTIAL PAY;

  • LAST EDITED:  SEP 28, 1987
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPAY")
    SOURCE OF DATA:   025/CMIANO??CMIPAY,026/COMANO
.06 TOTAL CHARGES 0;6 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>999999.99)!(X<0) X
  • LAST EDITED:  SEP 28, 1987
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 999999.99, 2 Decimal Digits
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTTC")
    SOURCE OF DATA:   025/CMICHG
.07 DATE OF DISCHARGE 0;7 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:DTX) X
  • LAST EDITED:  JAN 21, 1987
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1960 AND DT
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTDD")
    SOURCE OF DATA:   025/CMIDOD
.0791 COMP LOS COMPUTED

  • MUMPS CODE:  S Y(9000010.03,.0791,1)=$S($D(^AUPNVCHS(D0,0)):^(0),1:"") S X=$P(Y(9000010.03,.0791,1),U,7),X1=X,X2=$S('$D(^AUPNVSIT(+$P(Y(9000010.03,.0791,1),U,3),0)):"",1:$P(^(0),U,1)),X="" D:X2 ^%DTC:X1 S X=$J(X,0,0)
  • ALGORITHM:  DATE OF DISCHARGE-VISIT (ALWAYS 0 DECIMAL DIGITS)
.0792 LENGTH OF STAY COMPUTED

  • MUMPS CODE:  X ^DD(9000010.03,.0792,9.3) S X=$S(Y(9000010.03,.0792,2):Y(9000010.03,.0792,3),Y(9000010.03,.0792,4):X) S X=$J(X,0,0)
    9.2 = X $P(^DD(9000010.03,.0791,0),U,5,99) S Y(9000010.03,.0792,1)=X S X=Y(9000010.03,.0792,1)=0,Y(9000010.03,.0792,2)=X S X=Y(9000010.03,.0792,1)+1
    9.3 = X ^DD(9000010.03,.0792,9.2) S Y(9000010.03,.0792,3)=X S X=1,Y(9000010.03,.0792,4)=X S X=Y(9000010.03,.0792,1)
  • ALGORITHM:  $S(COMP LOS=0:COMP LOS+1,1:COMP LOS) (ALWAYS 0 DECIMAL DIGITS)
.08 DISCHARGE TYPE 0;8 SET
************************REQUIRED FIELD************************
  • '1' FOR DISCHARGED;
  • '2' FOR IRREGULAR DISCHARGE;
  • '3' FOR DIED WITHIN 48 HOURS;
  • '4' FOR DIED AFTER 48 HOURS;
  • '5' FOR TRANSFERRED;

  • LAST EDITED:  SEP 28, 1987
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTDT")
    SOURCE OF DATA:   025/CMIDIS
.09 NEWBORN DX 0;9 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:  APR 11, 2014
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTND")
  • SCREEN:  S DIC("S")="D ^AUPNSICD"
  • EXPLANATION:  Newborn DX must be an active code.
  • EXECUTABLE HELP:  D HELP^AUPNSICD
    SOURCE OF DATA:   025/CMINBX
.11 STILLBORN 0;11 SET
  • '1' FOR NB DEATH;
  • '2' FOR STILLBORN;

  • LAST EDITED:  JUL 15, 1986
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTSB")
    SOURCE OF DATA:   025/CMISTL
.12 NO OF VISITS 0;12 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAY 01, 1997
  • HELP-PROMPT:  Type a Number between 1 and 999999, 0 Decimal Digits
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTNV")
    SOURCE OF DATA:   026/CMOVSTS
.13 HOSPITAL VOUCHER NO. 0;13 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<10) X
  • LAST EDITED:  JUL 15, 1986
  • HELP-PROMPT:  ANSWER MUST BE 10-15 CHARACTERS IN LENGTH
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTHV")
    SOURCE OF DATA:   026/CMOHNB
.14 VENDOR 0;14 POINTER TO VENDOR FILE (#9999999.11)
************************REQUIRED FIELD************************
VENDOR(#9999999.11)

  • LAST EDITED:  MAR 10, 1988
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTVDR")
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^9000010.03^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVCHS(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(9000010.03,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVCHS(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.03,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.03^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVCHS(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(9000010.03,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVCHS(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.03,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 V CHS 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 V CHS File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.03^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVCHS(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(9000010.03,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVCHS(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.03,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 V CHS File
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All