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

Package: IHS Patient

Global: ^AUPNVINP


Information

FileMan FileNo FileMan Filename Package
9000010.02 V HOSPITALIZATION IHS Patient

Description

Directly Accessed By Routines, Total: 265

Package Total Routines
IHS GPRA Information System 171 BGP0C1    BGP0C11    BGP0C12    BGP0C13    BGP0C2X    BGP0C3X    BGP0CP1    BGP0CP11
BGP0CP2    BGP0CP3    BGP0CP4    BGP0CP5    BGP0CP6    BGP0CPU    BGP0CPU3    BGP0CU
BGP0CU4    BGP0CU5    BGP0D72    BGP0D731    BGP0D75    BGP0D87    BGP1C1    BGP1C11
BGP1C12    BGP1C13    BGP1C2X    BGP1C3X    BGP1CP1    BGP1CP11    BGP1CP2    BGP1CP3
BGP1CP4    BGP1CP5    BGP1CP6    BGP1CPU    BGP1CPU3    BGP1CU    BGP1CU4    BGP1CU5
BGP1D72    BGP1D731    BGP1D75    BGP1D87    BGP2C1    BGP2C11    BGP2C12    BGP2C13
BGP2C2X    BGP2C3X    BGP2CP1    BGP2CP11    BGP2CP2    BGP2CP3    BGP2CP4    BGP2CP5
BGP2CP6    BGP2CPU    BGP2CPU3    BGP2CU    BGP2CU4    BGP2CU5    BGP2D72    BGP2D731
BGP2D75    BGP2D87    BGP3C1    BGP3C11    BGP3C12    BGP3C13    BGP3C2X    BGP3C3X
BGP3CP1    BGP3CP11    BGP3CP2    BGP3CP3    BGP3CP4    BGP3CP5    BGP3CP6    BGP3CPU
BGP3CPU3    BGP3CU    BGP3CU4    BGP3CU5    BGP3D72    BGP3D731    BGP3D75    BGP3D87
BGP4C11    BGP4C13    BGP4CU    BGP4D72    BGP4D731    BGP4D75    BGP4D87    BGP5C1
BGP5C11    BGP5C12    BGP5C13    BGP5C2    BGP5C3    BGP5CU    BGP5D72    BGP5D731
BGP5D75    BGP5D87    BGP6C1    BGP6C11    BGP6C12    BGP6C13    BGP6C2    BGP6C3
BGP6CU    BGP6D72    BGP6D731    BGP6D75    BGP6D87    BGP7C1    BGP7C11    BGP7C12
BGP7C13    BGP7C2    BGP7C3    BGP7D72    BGP7D731    BGP7D75    BGP7D87    BGP8C1
BGP8C11    BGP8C12    BGP8C13    BGP8C2X    BGP8C3X    BGP8CP1    BGP8CP11    BGP8CP2
BGP8CP3    BGP8CP4    BGP8CP5    BGP8CP6    BGP8CPU    BGP8CPU3    BGP8CU4    BGP8CU5
BGP8D72    BGP8D731    BGP8D75    BGP8D87    BGP8PC2    BGP9C1    BGP9C11    BGP9C12
BGP9C13    BGP9C2X    BGP9C3X    BGP9CP1    BGP9CP11    BGP9CP2    BGP9CP3    BGP9CP4
BGP9CP5    BGP9CP6    BGP9CPU    BGP9CPU3    BGP9CU    BGP9CU4    BGP9CU5    BGP9D72
BGP9D731    BGP9D75    BGP9D87    
Patient Care Component Table Maintiance 16 APCM11E6    APCM13E6    APCM14CI    APCM14E2    APCM14E6    APCM14E9    APCM24CI    APCM24E2
APCM24E6    APCM24E9    APCM25CI    APCM25E2    APCM25E6    APCM25E9    APCM2ACI    APCM2AE2
IHS Changes To ADT 14 ADGCRB5    ADGCRBL1    ADGEVNT    ADGGFL    ADGOASC    ADGPCAC0    ADGPCAC1    ADGVHCNV
BDGICR4    BDGICR41    BDGICS1    BDGP1004    BDGPCCEL    BDGPOST3    
Patient Care Component Reports 12 APCL1H1    APCLBV1    APCLHCT2    APCLHDD    APCLOS3    APCLSIL2    APCLTAX    APCLV07
APCLV1    APCLVLU    APCLYV11    APCLYV51    
Patient Care Component 11 APCD3MG    APCDACP1    APCDACP2    APCDCHKI    APCDCHKJ    APCDCHKP    APCDR00    APCDR02
APCDRVH    APCDVCH    APCHS2C    
Third Party Billing 10 ABMDLCK    ABMDRCO1    ABMDVCK    ABMDVCK1    ABMDVCK3    ABMDVST4    ABMMUFC1    ABMMUFC3
ABMMUFC5    ABMMUFC6    
Patient Care Component Data Transmission 7 APCPAH    APCPAPC    APCPDR2    APCPHOS2    APCPHOSP    APCPREX    APCPUTIL    
Local Area Programs 5 AZAMED15    AZAMED16    AZANED15    AZANED16    AZAXDPM1    
Quality Assurance 3 AQAOT68    AQAQPR31    AQAQPR32    
IHS Mods To Text Integration Utilities 2 BTIUPCC    BTIUVSIT    
Mental Health Social Services 2 AMHUTIL1    AMHUTIL3    
iCare 2 BQIDCHSA    BQIDCINP    
Clinical Scheduling for Windows 1 BSDX41I    
Data Warehouse Export System 1 BDWUTIL    
Health Summary Components 1 BHSHOS    
IHS Accounts Receivable 1 BARCFLD    
IHS Patient 1 AUPNMAP    
IHS Support HL7 Interfaces 1 BHLPV13M    
IHS Uniform Data System 1 BUDHRP6C    
PCC Medical Query 1 AMQQMUL4    
Phoenix Devel Center 1 AZXBV1    
Women's Health 1 BWGRVLU    

Accessed By FileMan Db Calls, Total: 24

Package Total Routines
IHS Changes To ADT 9 ADGEVNT    ADGPCAC0    BDGCPT1    BDGICR41    BDGICS1    BDGPCCE1    BDGPCCE2    BDGPCCEL
BDGPCCL    
Third Party Billing 6 ABMM2PH2    ABMM2PVH    ABMMUFC1    ABMMUFC3    ABMMUFC5    ABMMUPVH    
Patient Care Component 4 APCDACCR    APCDACP1    APCDVCHK    APCDXPOV    
IHS Mods To Text Integration Utilities 2 BTIUPCC    BTIURPT    
Comprehensive Diabetes Management 1 BCDMFLDS    
IHS Accounts Receivable 1 BARDYSUT    
Patient Care Component Reports 1 APCLSMU2    

Pointed To By FileMan Files, Total: 1

Package Total FileMan Files
Patient Care Component 1 PCC DATA TRANS LOG(#9001005)[#9001005.05101(.02)]    

Pointer To FileMan Files, Total: 10

Package Total FileMan Files
Utility Tables 4 ADMISSION SOURCE(#9999999.53)[6102]    PATIENT STATUS CODE (NUBC)(#99999.04)[6103]    U/R DENIAL REASONS(#9999999.37)[#9000010.0254(.03)]    TRANSFER FACILITY(#9999999.91)[.09]    
IHS Patient 2 PATIENT(#9000001)[.02]    VISIT(#9000010)[.03]    
Registration 2 FACILITY MOVEMENT TYPE(#405.1)[.06, .07]    FACILITY TREATING SPECIALTY(#45.7)[.04, .05]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[.12]    
Kernel 1 NEW PERSON(#200)[.14, 1217, 1219]

Fields, Total: 32

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

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:DT_".9999"X) X
  • LAST EDITED:  APR 05, 1988
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1960 AND TODAY
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDDSCH")
  • CROSS-REFERENCE:  9000010.02^B
    1)= S ^AUPNVINP("B",$E(X,1,30),DA)=""
    2)= K ^AUPNVINP("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.02^AZ9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9000010.02^AATOO^MUMPS
    1)= I $P(^AUPNVINP(DA,0),U,2)]"" S ^AUPNVINP("AA",$P(^AUPNVINP(DA,0),U,2),(9999999-$P(X,".",1)),DA)=""
    2)= I $P(^AUPNVINP(DA,0),U,2)]"" K ^AUPNVINP("AA",$P(^AUPNVINP(DA,0),U,2),(9999999-$P(X,".",1)),DA)
.019 LENGTH OF STAY COMPUTED

  • MUMPS CODE:  X ^DD(9000010.02,.019,9.2) S X1=Y(9000010.02,.019,1) S:X1>X X=X1
    9.2 = S Y(9000010.02,.019,3)=$S($D(^AUPNVINP(D0,0)):^(0),1:"") S X=1,Y(9000010.02,.019,1)=X,Y(9000010.02,.019,2)=X S X=$P(Y(9000010.02,.019,3),U,1),X1=X,X2=$S('$D(^AUPNVSIT(+$P(Y(9000010.02,.019,3),U,3),0)):"",1:$P(^(0),U,
    1)),X="" D:X2 ^%DTC:X1 S X=X
  • ALGORITHM:  MAX(1,(#.01-#.03))
  • LAST EDITED:  OCT 18, 1995
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  DEC 08, 1994
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDPAT")
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.02^AC
    1)= S ^AUPNVINP("AC",$E(X,1,30),DA)=""
    2)= K ^AUPNVINP("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.02^AA^MUMPS
    1)= S ^AUPNVINP("AA",X,(9999999-$P(+^AUPNVINP(DA,0),".",1)),DA)=""
    2)= K ^AUPNVINP("AA",X,(9999999-$P(+^AUPNVINP(DA,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(^AUPNVINP(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 12, 1988
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDVSIT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^AUPNVINP(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT"
    UNEDITABLE
  • CROSS-REFERENCE:  9000010.02^AD
    1)= S ^AUPNVINP("AD",$E(X,1,30),DA)=""
    2)= K ^AUPNVINP("AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9000010.02^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
.04 ADMITTING SERVICE 0;4 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)
************************REQUIRED FIELD************************
FACILITY TREATING SPECIALTY(#45.7)

  • LAST EDITED:  FEB 02, 1987
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTADS")
    SOURCE OF DATA:   021/IETYAD,025/CMIDOA
.05 DISCHARGE SERVICE 0;5 POINTER TO FACILITY TREATING SPECIALTY FILE (#45.7)
************************REQUIRED FIELD************************
FACILITY TREATING SPECIALTY(#45.7)

  • LAST EDITED:  FEB 02, 1987
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTDCS")
    SOURCE OF DATA:   021/IEDSER
.06 DISCHARGE TYPE 0;6 POINTER TO FACILITY MOVEMENT TYPE FILE (#405.1)
************************REQUIRED FIELD************************
FACILITY MOVEMENT TYPE(#405.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=3,+$G(^(""IHS""))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 11, 2001
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTDT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=3,+$G(^(""IHS""))"
  • EXPLANATION:  Enter Discharge Movement
    SOURCE OF DATA:   021/IEDISP,025/CMIDIS,026/CMODIS
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.02^.09
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X I "DISCHARGE TYPE"'="TRANSFERRED" I X S X=DIV S Y(1)=$S($D(^AUPNVINP(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" X ^DD(9000010.02,.06,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVINP(DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=9000010.02,DIG=.09 D ^DICR
    2)= Q
    CREATE CONDITION)= I "DISCHARGE TYPE"'="TRANSFERRED"
    CREATE VALUE)= @
    DELETE VALUE)= NO EFFECT
    FIELD)= TRANSFERRED TO
.07 ADMISSION TYPE 0;7 POINTER TO FACILITY MOVEMENT TYPE FILE (#405.1)
************************REQUIRED FIELD************************
FACILITY MOVEMENT TYPE(#405.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=1,+$G(^(""IHS""))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 07, 1994
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTAT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=1,+$G(^(""IHS""))"
  • EXPLANATION:  Enter Admission Movement
    SOURCE OF DATA:   021/IETYPE
.08 NUMBER OF CONSULTS 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 15, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 99
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTNC")
    SOURCE OF DATA:   021/IECONS
.09 TRANSFERRED TO 0;9 POINTER TO TRANSFER FACILITY FILE (#9999999.91) TRANSFER FACILITY(#9999999.91)

  • LAST EDITED:  JUL 11, 2001
  • HELP-PROMPT:  Enter the facility to which the patient was transferred.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTTT")
    SOURCE OF DATA:   021/IETRAN
  • NOTES:  TRIGGERED by the DISCHARGE TYPE field of the V HOSPITALIZATION File
.11 MEDICARE RELEASE 0;11 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUL 15, 1986
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTMCR")
.12 ADMITTING DX 0;12 POINTER TO ICD DIAGNOSIS FILE (#80)
************************REQUIRED FIELD************************
ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  S DIC("S")="D ^AUPNSICA" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 29, 2012
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTADX")
  • SCREEN:  S DIC("S")="D ^AUPNSICA"
  • EXPLANATION:  Must be an active ICD Diagnosis code.
  • EXECUTABLE HELP:  D HELPADX^AUPNSICA
.13 ASSIGNMENT OF BENEFITS 0;13 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  SEP 03, 1986
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTAOB")
.14 OVERRIDE/ACCEPT IHS INPT EDIT 0;14 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 07, 1992
.15 CODING COMPLETE 0;15 SET
  • '1' FOR NO;

  • LAST EDITED:  SEP 22, 2002
  • CROSS-REFERENCE:  9000010.02^AQAJ1^MUMPS
    1)= Q
    2)= I '$D(DIU(0)) S AQAJSAV=$G(X),X="AQAJUPD" X ^%ZOSF("TEST") S X=AQAJSAV K AQAJSAV I $T D UPDATE^AQAJUPD($P(^AUPNVINP(DA,0),U,3)) D KILLNM^AQAJUTIL
    3)= UPDATES QI JCAHO IMS FILE
    If a facility is running the QI LINKAGES-JCAHO package, this xref will update the QI JCAHO IMS file for this hospitalization as it is completed.  This update may include additional clarification questions needed by JCAHO
    software.
  • CROSS-REFERENCE:  9000010.02^ABAM^MUMPS
    1)= Q
    2)= I '$D(DIU(0)) I $T(UPDATE^BAMUPD)]"" D UPDATE^BAMUPD($P(^AUPNVINP(DA,0),U,3))
    3)= Used to Trigger Oryx Data
    IHS/ANMC/LJF 9/19/02:  Added cross-reference to trigger ORYX update when inpatient visit has been coded.
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.02^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVINP(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.02,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVINP(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.02,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.02^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVINP(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.02,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVINP(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.02,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 HOSPITALIZATION 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 HOSPITALIZATION File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.02^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVINP(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.02,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVINP(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.02,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 HOSPITALIZATION File
2101 PRELIMINARY CAUSE OF DEATH 21;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
  • LAST EDITED:  SEP 10, 2013
  • HELP-PROMPT:  Answer must be 1-240 characters in length.
5101 CERTIFIED PERIOD 51;0 DATE Multiple #9000010.0251 9000010.0251
5301 U/R ACUTE CARE PERIOD(S) 53;0 DATE Multiple #9000010.0253 9000010.0253
5401 U/R NON-ACUTE CARE PERIOD(S) 54;0 DATE Multiple #9000010.0254 9000010.0254
5501 DISCHARGE PLAN INITIATION DATE 55;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 03, 1986
6101 ADMISSION TYPE-UB92 61;1 SET
  • '1' FOR EMERGENCY;
  • '2' FOR URGENT;
  • '3' FOR ELECTIVE;
  • '4' FOR NEWBORN;
  • '9' FOR INFO NOT AVAILABLE;

  • LAST EDITED:  SEP 22, 2002
6102 ADMISSION SOURCE-UB92 61;2 POINTER TO ADMISSION SOURCE FILE (#9999999.53) ADMISSION SOURCE(#9999999.53)

  • LAST EDITED:  JUL 28, 1999
6103 DISCHARGE STATUS-UB92 61;3 POINTER TO PATIENT STATUS CODE (NUBC) FILE (#99999.04) PATIENT STATUS CODE (NUBC)(#99999.04)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^AUTTPSC(+Y,0),U,3)'=1" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  MAR 27, 2013
  • SCREEN:  S DIC("S")="I $P(^AUTTPSC(+Y,0),U,3)'=1"
  • EXPLANATION:  Choose active, non-reserved codes only.
  • RECORD INDEXES:  AMAP (#487)
6104 BILLING RELEASE FLAG 61;4 SET
  • 'Y' FOR YES;

  • LAST EDITED:  JUL 07, 1986
6105 PRO APPROVAL CODE 61;5 SET
  • '1' FOR ALL DAYS/SERVICES APPROVED;
  • '3' FOR PARTIAL APPROVAL/DENIAL PRIOR TO PAYMENT;
  • '4' FOR ADMISSION DENIED;
  • '5' FOR REVIEW ON POST-PAYMENT BASIS;
  • '6' FOR PRE-ADMISSION APPROVAL/MEDICAL RECORD NOT REVIEWED;

  • LAST EDITED:  AUG 06, 1986
6106 PRO AUTHORIZATION NUMBER 61;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<6) X
  • LAST EDITED:  AUG 06, 1986
  • HELP-PROMPT:  ANSWER MUST BE 6-15 CHARACTERS IN LENGTH
6107 DISCHARGE SNOMED CT 61;7 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  MAR 13, 2013
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
6107.019 DISCH SNOMED PREFERRED TERM COMPUTED

  • MUMPS CODE:  S Y(9000010.02,6107.019,1)=$S($D(^AUPNVINP(D0,61)):^(61),1:"") S X=$P(Y(9000010.02,6107.019,1),U,7),X=$$CONCPT^AUPNVUTL(X)
  • ALGORITHM:  AUPNPT(#6107)
  • LAST EDITED:  JUL 24, 2013
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All