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: ^AQACIHS

Package: Quality Assurance

Global: ^AQACIHS


Information

FileMan FileNo FileMan Filename Package
9002159 QA IHS ADMISSION Quality Assurance

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
Quality Assurance 2 AQACQRI1    AQACQRI2    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
DRG Grouper 2 ICD OPERATION/PROCEDURE(#80.1)[25]    ICD DIAGNOSIS(#80)[51521]
IHS Patient 1 PATIENT(#9000001)[.02]    
Kernel 1 PROVIDER(#6)[8]    
Quality Assurance 1 QA SCREENS(#9002160.8)[#9002159.02(.01)]    
Utility Tables 1 LOCATION(#9999999.06)[1]    

Fields, Total: 26

Field # Name Loc Type Details
.01 DATE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the date this patient was (or is scheduled to be) admitted to the IHS facility.
  • CROSS-REFERENCE:  9002159^B
    1)= S ^AQACIHS("B",$E(X,1,30),DA)=""
    2)= K ^AQACIHS("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^9002159^10
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AQACIHS(D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(9002159,.01,1,2,1.4)
    1.4)= S DIH=$S($D(^AQACIHS(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"":U_%,1:""),DIH=9002159,DIG=10 D ^DICR:$N(^DD(DIH,DI
    G,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AQACIHS(D0,0)):^(0),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC X ^DD(9002159,.01,1,2,2.4)
    2.4)= S DIH=$S($D(^AQACIHS(DIV(0),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,9,99))  S DIH=DIH_U" S %=$P(DIH,U,11,999),DIU=$P(DIH,U,10),^(0)=$P(DIH,U,1,9)_U_DIV_$S(%]"":U_%,1:""),DIH=9002159,DIG=10 D ^DICR:$N(^DD(DIH,DI
    G,1,0))>0
    CREATE VALUE)= TODAY
    DELETE VALUE)= TODAY
    FIELD)= DATE ESTABLISHED
.02 NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  OCT 14, 1987
  • HELP-PROMPT:  Enter the patient's name, DOB, or health record number. The patient must be registered in the patient registration system.
  • CROSS-REFERENCE:  9002159^C
    1)= S ^AQACIHS("C",$E(X,1,30),DA)=""
    2)= K ^AQACIHS("C",$E(X,1,30),DA)
1 SU LOCATION 0;3 POINTER TO LOCATION FILE (#9999999.06)
************************REQUIRED FIELD************************
LOCATION(#9999999.06)

  • LAST EDITED:  AUG 29, 1987
  • HELP-PROMPT:  Enter the Service Unit at which this patient is admitted.
2 DISCHARGE DATE 0;4 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • HELP-PROMPT:  Enter the date this patient was discharged from the IHS facility.
  • CROSS-REFERENCE:  9002159^AC
    1)= S ^AQACIHS("AC",$E(X,1,30),DA)=""
    2)= K ^AQACIHS("AC",$E(X,1,30),DA)
3 LOS ACT COMPUTED

  • MUMPS CODE:  X ^DD(9002159,3,9.6) S X=$S(Y(9002159,3,3):Y(9002159,3,4),Y(9002159,3,5):Y(9002159,3,6),Y(9002159,3,7):Y(9002159,3,8),Y(9002159,3,9):Y(9002159,3,11),Y(9002159,3,12):X) S X=$J(X,0,0)
    9.2 = S Y(9002159,3,1)=$S($D(^AQACIHS(D0,0)):^(0),1:"") S X=$P(Y(9002159,3,1),U,1),Y(9002159,3,2)=X,X=DT S Y=X,X=Y(9002159,3,2),X=X S X=X=Y,Y(9002159,3,3)=X S X=1
    9.3 = X ^DD(9002159,3,9.2) S Y(9002159,3,4)=X S X=$P(Y(9002159,3,1),U,4)=$P(Y(9002159,3,1),U,1),Y(9002159,3,5)=X S X=1,Y(9002159,3,6)=X S X=$P(Y(9002159,3,1),U,4)'=""
    9.4 = X ^DD(9002159,3,9.3) S Y(9002159,3,7)=X S X=$P(Y(9002159,3,1),U,4),X1=X,X2=$P(Y(9002159,3,1),U,1),X="" D:X2 ^%DTC:X1 S X=X,Y(9002159,3,8)=X S X=$P(Y(9002159,3,1),U,4)
    9.5 = X ^DD(9002159,3,9.4) S X=X="",Y(9002159,3,9)=X,Y(9002159,3,10)=X,X=DT S X=X,X1=X,X2=$P(Y(9002159,3,1),U,1),X="" D:X2 ^%DTC:X1 S X=X,Y(9002159,3,11)=X S X=1
    9.6 = X ^DD(9002159,3,9.5) S Y(9002159,3,12)=X S X=0
    9.7 = X ^DD(9002159,3,9.6) S Y(9002159,3,15)=X S X=0
  • ALGORITHM:  $S(DATE=TODAY:1,DISCHARGE DATE=DATE:1,DISCHARGE DATE'="":DISCHARGE DATE-DATE,DISCHARGE DATE="":TODAY-DATE,1:0) (ALWAYS 0 DECIMAL DIGITS)
  • LAST EDITED:  NOV 07, 1987
4 DIAGNOSIS OR TREATMENT 0;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 29, 1987
  • HELP-PROMPT:  Enter a free text description of this patient's principal diagnosis (3-30 chars).
5 ICD-9CM 0;6 POINTER TO ICD DIAGNOSIS FILE (#80)
************************REQUIRED FIELD************************
ICD DIAGNOSIS(#80)

  • LAST EDITED:  NOV 13, 1987
7 SERVICE 0;7 SET
************************REQUIRED FIELD************************
  • 'G' FOR GEN MED;
  • 'S' FOR SURGERY;
  • 'O' FOR OB;
  • 'N' FOR NEWBORN;
  • 'GY' FOR GYN;
  • 'UN' FOR UNKNOWN;
  • 'OR' FOR ORTHOPEDICS;
  • 'P' FOR PEDIATRICS;
  • 'PS' FOR PSYCHIATRY;

  • LAST EDITED:  JUN 27, 1988
8 ATTENDING PHYSICIAN 0;8 POINTER TO PROVIDER FILE (#6)
************************REQUIRED FIELD************************
PROVIDER(#6)

  • LAST EDITED:  AUG 29, 1987
  • HELP-PROMPT:  Enter the name of the Attending Physician. This physician must already be in the Provider file.
9 DATE LAST EDIT 0;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
10 DATE ESTABLISHED 0;10 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
    WRITE AUTHORITY:  ^
  • NOTES:  TRIGGERED by the DATE field of the QA IHS ADMISSION File
11 CODE COMPUTED

  • MUMPS CODE:  S Y(9002159,11,1)=$S($D(^AQACIHS(D0,0)):^(0),1:"") S X=$S('$D(^ICD9(+$P(Y(9002159,11,1),U,6),0)):"",1:$P(^(0),U,1))\1 S X=$J(X,0,0)
  • ALGORITHM:  ICD\1 (ALWAYS 0 DECIMAL DIGITS)
  • LAST EDITED:  NOV 13, 1987
12 DISCHARGE STATUS 0;11 SET
************************REQUIRED FIELD************************
  • 'A' FOR ACUTE TRANS;
  • 'AM' FOR AMA;
  • 'H' FOR HOME;
  • 'S' FOR SNF;
  • 'U' FOR UNSPEC TRANS;
  • 'UNK' FOR UNKNOWN;
  • 'DA>48' FOR DIED W/ AUTOPSY AFTER 48 HRS;
  • 'DA<48' FOR DIED W/ AUTOPSY BEFORE 48 HRS;
  • 'DN>48' FOR DIED W/O AUTOPSY AFTER 48 HRS;
  • 'DN<48' FOR DIED W/O AUTOPSY BEFORE 48 HRS;
  • 'I' FOR ICF;

  • LAST EDITED:  JAN 27, 1988
  • HELP-PROMPT:  Enter this patient's discharge status.
13 AGE AT ADMISSION COMPUTED

  • MUMPS CODE:  X ^DD(9002159,13,9.4) S Y=X,X=Y(9002159,13,2),X=X,X1=X,X2=Y,X="" D:X2 ^%DTC:X1 S X=X\365.25 S D0=Y(9002159,13,80) S X=$J(X,0,0)
    9.2 = S Y(9002159,13,80)=$S($D(D0):D0,1:""),Y(9002159,13,1)=$S($D(^AQACIHS(D0,0)):^(0),1:"") S X=$P(Y(9002159,13,1),U,1),Y(9002159,13,2)=X
    9.3 = X ^DD(9002159,13,9.2) S D0=$P(Y(9002159,13,1),U,2) S:'$D(^AUPNPAT(+D0,0)) D0=-1 S Y(9002159,13,180)=$S($D(D0):D0,1:""),Y(9002159,13,101)=$S($D(^AUPNPAT(D0,0)):^(0),1:"")
    9.4 = X ^DD(9002159,13,9.3) S D0=$P(Y(9002159,13,101),U,1) S:'$D(^DPT(+D0,0)) D0=-1 S Y(9002159,13,201)=$S($D(^DPT(D0,0)):^(0),1:"") S X=$P(Y(9002159,13,201),U,3)
  • ALGORITHM:  DATE-(NAME:NAME:DOB)\365.25 (ALWAYS 0 DECIMAL DIGITS)
  • LAST EDITED:  OCT 14, 1987
14 COMPLICATION 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • HELP-PROMPT:  If this patient had a complication during this hospitilization, enter a free text description (3-30 chars).
15 COMP. ICD-9CM 0;13 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  NOV 13, 1987
17 NBN BIRTHWEIGHT 2;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • HELP-PROMPT:  Enter the Newborn Infant's Birthweight in grams.
18 SCREENING CODE 3;0 POINTER Multiple #9002159.02 9002159.02
19 AGE RANGE COMPUTED

  • MUMPS CODE:  X $P(^DD(9002159,13,0),U,5,99) S Y(9002159,19,1)=X S X=Y(9002159,19,1)\10
  • ALGORITHM:  AGE AT ADMISSION\10
20 AGE RANGE2 COMPUTED

  • MUMPS CODE:  X ^DD(9002159,20,9.3) S X=$S(Y(9002159,20,2):Y(9002159,20,3),Y(9002159,20,4):Y(9002159,20,5),Y(9002159,20,6):X)
    9.2 = X $P(^DD(9002159,13,0),U,5,99) S Y(9002159,20,1)=X S X=Y(9002159,20,1)<18,Y(9002159,20,2)=X S X=17,Y(9002159,20,3)=X S X=Y(9002159,20,1)<35
    9.3 = X ^DD(9002159,20,9.2) S Y(9002159,20,4)=X S X=18,Y(9002159,20,5)=X S X=1,Y(9002159,20,6)=X S X=35
  • ALGORITHM:  $S(#13<18:17,#13<35:18,1:35)
21 NBN ICD-9 0;14 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  NOV 13, 1987
22 NBN CODE COMPUTED

  • MUMPS CODE:  S Y(9002159,22,1)=$S($D(^AQACIHS(D0,0)):^(0),1:"") S X=$S('$D(^ICD9(+$P(Y(9002159,22,1),U,14),0)):"",1:$P(^(0),U,1))\1 S X=$J(X,0,0)
  • ALGORITHM:  NBN ICD\1 (ALWAYS 0 DECIMAL DIGITS)
  • LAST EDITED:  NOV 13, 1987
23 HR NUMBER COMPUTED

  • MUMPS CODE:  S X=$S('($D(DUZ(2))#2):"",'DUZ(2):"",'$D(^AUPNPAT($P(^AQACIHS(D0,0),"^",2),41,DUZ(2),0)):"",1:$P(^AUPNPAT($P(^AQACIHS(D0,0),"^",2),41,DUZ(2),0),"^",2))
  • ALGORITHM:  S X=$S('($D(DUZ(2))#2):"",'DUZ(2):"",'$D(^AUPNPAT($P(^AQACIHS(D0,0),"^",2),41,DUZ(2),0)):"",1:$P(^AUPNPAT($P(^AQACIHS(D0,0),"^",2),41,DUZ(2),0),"^",2))
  • LAST EDITED:  OCT 14, 1987
24 PROCEDURE 0;15 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAY 27, 1988
  • HELP-PROMPT:  Enter a description of this patient's principal operation/procedure (3-30 characters in length).
25 PROCEDURE ICD-9CM 0;16 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • LAST EDITED:  MAY 27, 1988
26 PCODE COMPUTED

  • MUMPS CODE:  S Y(9002159,26,1)=$S($D(^AQACIHS(D0,0)):^(0),1:"") S X=$S('$D(^ICD0(+$P(Y(9002159,26,1),U,16),0)):"",1:$P(^(0),U,1))\1 S X=$J(X,0,0)
  • ALGORITHM:  PROCEDURE ICD\1 (ALWAYS 0 DECIMAL DIGITS)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All