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

Package: Registration

Global: ^DGPT


Information

FileMan FileNo FileMan Filename Package
45 PTF Registration

Description

Directly Accessed By Routines, Total: 416

Package Total Routines
Registration 221 401    501    535    601    CPT RECORD DATE/TIME    DG PTF COMPREHENSIVE REPORT    DG PTF OPEN RECORD LIST    DG PTF OPEN RECORD OUTPUT
DG PTF POST CREATE    DG101    DG101F    DG3PR2    DG401    DG401-10P    DG501    DG501 SAVE 5.2
DG501-10D    DG501F    DG501F-10D    DG501Q    DG53P423    DG53P796    DG53P844    DG601
DG601-10P    DG687PST    DG701    DG701-10D    DGAPI    DGODMT    DGOTHFSM    DGPMV31
DGPMV321    DGPMV331    DGPT CENSUS INQUIRY    DGPTAE02    DGPTAE04    DGPTAEE    DGPTAPA1    DGPTAPP1
DGPTAPSL    DGPTC    DGPTCO1    DGPTDD    DGPTF099    DGPTF1    DGPTF41    DGPTFAPI
DGPTFM0    DGPTFM1    DGPTFM7    DGPTFMO    DGPTFMO1    DGPTFREL    DGPTFTR    DGPTFUT
DGPTFUT1    DGPTFVC1    DGPTIC10    DGPTLMU1    DGPTLMU4    DGPTLMU6    DGPTOD1    DGPTODI2
DGPTOLC2    DGPTOM2    DGPTR0    DGPTR3    DGPTR4    DGPTSPQ    DGPTSUDO    DGPTTS
DGPTUTL    DGPTX1    DGPTX4    DGPTX42    DGPTX5    DGPTX51    DGPTX52    DGPTX53
DGPTX7    DGPTX71    DGPTX75    DGPTXA    DGPTXC1    DGPTXC2    DGPTXC3    DGPTXCA
DGPTXX10    DGPTXX12    DGPTXX3    DGPTXX5    DGPTXX6    DGPTXX9    DGQWK    DGRPDD1
DGX4    DGX43    DGX44    DGX45    DGX5    DGX51    DGX52    DGX53
DGX54    DGX55    DGX57    DGX58    DGX59    DGX5F1    DGX5F2    DGX5FD
DGX5FD1    DGX5FD10    DGX5FD3    DGX5FD4    DGX5FD6    DGX5FD7    DGX5FD9    DGX63
DGX64    ^DGPM    DGPTC2    DGPTCR    DGPTDDCR    DGPTF    DGPTF4    DGPTFD
DGPTFDEL    DGPTFFB    DGPTFJ    DGPTFJC    DGPTFM3    DGPTFM71    DGPTFM8    DGPTFTR3
DGPTFVC    DGPTOTRL    DGPTRI0    DGPTRI1    DGPTRI2    DGPTRI3    DGPTRI4    DGPTSC01
DGPTTS0    DGPTTS3    DGPTX41    DGPTX74    DGPTXB    DGPTXC    DGPTXX13    DGPTXX14
DGPTXX2    DGPTXX7    DGPTXX8    DGQWKF    DGX56    DGX5F    DGX5F3    DGX5FD2
DGX5FD5    DGX5FD8    DGX6    DGX61    DGX71    DGX73    DGX74    ^DGP(45.84
DGICDGT    DGMSTR3    DGODNP1    DGPMV21    DGPT CENSUS UNRELEASED    DGPT FEE BASIS    DGPT50MS    DGPTAPA2
DGPTAPA3    DGPTC1    DGPTF2    DGPTF5    DGPTFIC    DGPTFM    DGPTFM2    DGPTFM4
DGPTFM5    DGPTFM6    DGPTFQWK    DGPTFRU1    DGPTFTR0    DGPTFTR1    DGPTFTR2    DGPTFUP
DGPTFVC2    DGPTFVC3    DGPTLMU5    DGPTOD2    DGPTOLC1    DGPTPXRM    DGPTR1    DGPTR2
DGPTSCAN    DGPTSUD1    DGPTTS1    DGPTTS2    DGPTUTL1    DGPTXX1    DGPTXX4    ^DGPT
DGPTX72    DGPTX73    DGPTXX11    DGX41    DGX5F4    DGX62    DGX7    DGX72
DGX75    DGX76    DGX77    DGYWPOST    PTF RECORD    
Integrated Billing 38 IB20PT82    IB20PT83    IB20PT84    IB20PT85    IB20PT86    IB20PT8A    IBATEI    IBATEI1
IBAUTL5    IBCA    IBCA0    IBCB2    IBCBB1    IBCD5    IBCEF21    IBCEP9A
IBCF3    IBCIUT5    IBCONS2    IBCRBC    IBCRBG    IBCSC4    IBCSC4A    IBCSC4F
IBCSC6    IBCU    IBCU4    IBCU6    IBCU71    IBCU74    IBECEA31    IBECEA34
IBECECX1    IBEFUR    IBJDB11    IBJDI6    IBRFN1    IBTUBOU    
Health Summary 6 GMTSDCB    GMTSDGA    GMTSDGA1    GMTSDGC1    GMTSDGC2    GMTSDGP    
Lab Service 5 LRBLJPP1    LRBLPC1    LREPI3    LREPI4    LREPI5    
ODS 4 A1B2MAIN    A1B2MSP    A1B2MUT    A1B2MUT1    
Incomplete Records Tracking 3 DGJOTPUL    DGJTUTL    DGJTVW    
Kernel 3 ^DIC(19    ARRAY SUBSCRIPTS    COMPUTABLE FILE REFERENCES    
Pharmacy Benefits Management 3 PSUDEM7    PSUDEM8    PSUDEM9    
Accounts Receivable 2 RCXVDC5    RCXVUTIL    
Clinical Reminders 2 PXRMISE    PXRMPDEM    
DSS Extracts 2 ECXADM    ECXSETUP    
Order Entry Results Reporting 2 ORWGAPI3    ORWGAPI4    
Clinical Case Registries 1 RORX013A    
Clinical Information Resource Network 1 RGVCCMR2    
Clinical Monitoring System 1 QAMC22    
DRG Grouper 1 ICDEXD5    
Lexicon Utility 1 LEXQDRG4    
Oncology 1 ONCOCFP    
PCE Patient Care Encounter 1 PXRRPAPI    
Surgery 1 SROMORT    

Accessed By FileMan Db Calls, Total: 115

Package Total Routines
Registration 95 DG53478I    DG53862I    DG53P796    DG53P844    DG884P    DGFSMOUT    DGOTHFSM    DGPMV31
DGPMV321    DGPMV322    DGPMV33    DGPMV331    DGPMVDL    DGPMVDL1    DGPTAPP1    DGPTC
DGPTC1    DGPTDDCR    DGPTF    DGPTF099    DGPTF1    DGPTF2    DGPTF4    DGPTF41
DGPTFCR    DGPTFDEL    DGPTFEE    DGPTFIC    DGPTFM    DGPTFM1    DGPTFM2    DGPTFM4
DGPTFM5    DGPTFM6    DGPTFM71    DGPTFMO    DGPTFMO1    DGPTFOU    DGPTFQWK    DGPTFRU1
DGPTFTR    DGPTFUT    DGPTFVC    DGPTOLC1    DGPTOPCE    DGPTRI2    DGPTRI4    DGPTRNU
DGPTRNU1    DGPTSCAN    DGPTSPQ    DGPTTS1    DGPTTS2    DGPTUTL    DGPTUTL1    DGPTX1
DGPTX4    DGPTX41    DGPTX5    DGPTX51    DGPTX52    DGPTX7    DGPTX73    DGPTX74
DGPTXA    DGPTXC    DGPTXC1    DGPTXCA    DGX4    DGX41    DGX43    DGX44
DGX5    DGX51    DGX54    DGX55    DGX57    DGX58    DGX5F    DGX5F1
DGX5F3    DGX5FD    DGX5FD1    DGX5FD3    DGX5FD6    DGX5FD8    DGX5FD9    DGX6
DGX61    DGX63    DGX7    DGX73    DGX74    DGX75    VAFHLDG1    
Integrated Billing 8 IB20PT82    IB20PT84    IB20PT86    IBATEI    IBCSC4F    IBCU64    IBOHLS1    IBRFN4
Clinical Case Registries 6 RORHL08    RORHL081    RORUTL20    RORX013A    RORX015A    RORXU001    
Lexicon Utility 2 LEXQDRG3    LEXQDRG4    
Enterprise Health Management Platform 1 HMPDJ04A    
Health Summary 1 GMTSDCB    
Lab Service 1 LREPI3    
Master Patient Index VistA 1 MPIFDODC    

Pointed To By FileMan Files, Total: 10

Package Total FileMan Files
Registration 7 CENSUS WORKFILE(#45.85)[.12]    INPATIENT CPT CODE(#46)[.16]    INPATIENT POV(#46.1)[1]    PTF RELEASE(#45.83)[#45.831(.01)]    PTF CLOSE OUT(#45.84)[.01]    PATIENT MOVEMENT(#405)[.16]    PTF(#45)[12]    
Integrated Billing 2 BILL/CLAIMS(#399)[.08]    TRANSFER PRICING TRANSACTIONS(#351.61)[1.07]    
Lab Service 1 LAB SEARCH/EXTRACT(#69.5)[#69.514(.01)]    

Pointer To FileMan Files, Total: 21

Package Total FileMan Files
Registration 14 PTF DIALYSIS TYPE(#45.4)[#45.05(2)]    PTF CENSUS DATE(#45.86)[13]    PTF CLOSE OUT(#45.84)[7.1]    PTF(#45)[12]    PTF TRANSFERRING FACILITY(#45.2)[21, 76]    WARD LOCATION(#42)[#45.0535(6)]    SPECIALTY(#42.4)[71, #45.02(2), #45.05(1), #45.0535(2)]    SOURCE OF ADMISSION(#45.1)[20]    SURGICAL SPECIALTY(#45.3)[#45.01(3)]    PLACE OF DISPOSITION(#45.6)[75]    PTF ABUSED SUBSTANCE(#45.61)[300.04, #45.02(300.04)]    CATEGORY OF BENEFICIARY(#45.82)[23]    ELIGIBILITY CODE(#8)[20.1]    PATIENT(#2)[.01]    
DRG Grouper 3 DRG(#80.2)[#45.02(20)]    ICD OPERATION/PROCEDURE(#80.1)[45.01, 45.02, 45.03, 45.04, 45.05, #45.01(8), #45.01(9), #45.01(10), #45.01(11), #45.01(12), #45.01(13), #45.01(14), #45.01(15), #45.01(16), #45.01(17), #45.01(18), #45.01(19), #45.01(20), #45.01(21), #45.01(22), #45.01(23), #45.01(24), #45.01(25), #45.01(26), #45.01(27), #45.01(28), #45.01(29), #45.01(30), #45.01(31), #45.01(32), #45.05(4), #45.05(5), #45.05(6), #45.05(7), #45.05(8), #45.05(9), #45.05(10), #45.05(11), #45.05(12), #45.05(13), #45.05(14), #45.05(15), #45.05(16), #45.05(17), #45.05(18), #45.05(19), #45.05(20), #45.05(21), #45.05(22), #45.05(23), #45.05(24), #45.05(25), #45.05(26), #45.05(27), #45.05(28)]
ICD DIAGNOSIS(#80)[79, 79.16, 79.17, 79.18, 79.19, 79.201, 79.21, 79.22, 79.23, 79.24, 79.241, 79.242, 79.243, 79.244, 79.245, 79.246, 79.247, 79.248, 79.249, 79.2491, 79.24911, 79.24912, 79.24913, 79.24914, 79.24915, 80, #45.02(5), #45.02(6), #45.02(7), #45.02(8), #45.02(9), #45.02(11), #45.02(12), #45.02(13), #45.02(14), #45.02(15), #45.02(81.01), #45.02(81.02), #45.02(81.03), #45.02(81.04), #45.02(81.05), #45.02(81.06), #45.02(81.07), #45.02(81.08), #45.02(81.09), #45.02(81.1), #45.02(81.11), #45.02(81.12), #45.02(81.13), #45.02(81.14), #45.02(81.15), #45.06(.04)]    
Kernel 1 NEW PERSON(#200)[7, 79.1, #45.02(24), #45.03(.01), #45.06(.02), #45.06(.03)]    
MailMan 1 MESSAGE(#3.9)[#45.04(3)]    
PCE Patient Care Encounter 1 VISIT(#9000010)[#45.06(.06)]    
Scheduling 1 HOSPITAL LOCATION(#44)[#45.06(.05)]    

Fields, Total: 122

Field # Name Loc Type Details
.001 NUMBER NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 15, 1985
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 1 AND 9999999999
  • DESCRIPTION:  
    This field contains the IFN of the PTF record.
.01 PATIENT 0;1 POINTER TO PATIENT FILE (#2)
************************REQUIRED FIELD************************
PATIENT(#2)

  • INPUT TRANSFORM:  S DGNEWP=X
  • LAST EDITED:  OCT 01, 1990
  • HELP-PROMPT:  Enter the patient to enter PTF data for.
  • DESCRIPTION:  
    This field contains a pointer to the patient file (#2). This is the patient that the PTF data has been entered for.
  • DELETE TEST:  1,0)= I $D(^DGP(45.84,DA)) W *7,!,"CANNOT DELETE - CLOSED OUT"
    UNEDITABLE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^B
    1)= S ^DGPT("B",$E(X,1,30),DA)=""
    2)= K ^DGPT("B",$E(X,1,30),DA)
  • RECORD INDEXES:  ACRDDXLS (#1176), ACRDPDX (#401), ACRDSD1 (#1187), ACRDSD10 (#1188), ACRDSD11 (#1189), ACRDSD12 (#1190), ACRDSD13 (#1191), ACRDSD14 (#1239), ACRDSD15 (#1240), ACRDSD16 (#1241), ACRDSD17 (#1242), ACRDSD18 (#1243),
    ACRDSD19 (#1244), ACRDSD2 (#1192), ACRDSD20 (#1245), ACRDSD21 (#1246), ACRDSD22 (#1247), ACRDSD23 (#1248), ACRDSD24 (#1249), ACRDSD3 (#1193), ACRDSD4 (#1194), ACRDSD5 (#1195), ACRDSD6 (#1196), ACRDSD7 (#1197),
    ACRDSD8 (#1198), ACRDSD9 (#1199), AICN (#833), AICP (#1691)
2 ADMISSION DATE 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="ETXP" D ^%DT S X=Y K:Y<1 X I $D(X) D ADM^DGPTF K %
  • LAST EDITED:  FEB 03, 1998
  • HELP-PROMPT:  Enter the Admission Date. If this is not fee basis admission must match patient Admission Date.
  • DESCRIPTION:  
    This is the date of admission described by the PTF record.
  • EXECUTABLE HELP:  Q
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^AAD^MUMPS
    1)= S L=+^DGPT(DA,0) I L>0 S ^DGPT("AAD",L,X,DA)=""
    2)= S L=+^DGPT(DA,0) I L>0 K ^DGPT("AAD",L,X,DA)
  • CROSS-REFERENCE:  45^AF
    1)= S ^DGPT("AF",$E(X,1,30),DA)=""
    2)= K ^DGPT("AF",$E(X,1,30),DA)
  • CROSS-REFERENCE:  45^AADA^MUMPS
    1)= S L=$S($D(^DGPT(DA,70)):+^(70),1:0) I L'?7N.E S ^DGPT("AADA",X,DA)=""
    2)= K ^DGPT("AADA",X,DA)
  • CROSS-REFERENCE:  45^AFEE1^MUMPS
    1)= I $P(^DGPT(DA,0),U,4),$P(^(0),U) S ^DGPT("AFEE",$P(^DGPT(DA,0),U),$E(X,1,30),DA)=""
    2)= I $P(^DGPT(DA,0),U,4),$P(^(0),U) K ^DGPT("AFEE",$P(^DGPT(DA,0),U),$E(X,1,30),DA)
  • RECORD INDEXES:  ACRDDXLS (#1176), ACRDPDX (#401), ACRDSD1 (#1187), ACRDSD10 (#1188), ACRDSD11 (#1189), ACRDSD12 (#1190), ACRDSD13 (#1191), ACRDSD14 (#1239), ACRDSD15 (#1240), ACRDSD16 (#1241), ACRDSD17 (#1242), ACRDSD18 (#1243),
    ACRDSD19 (#1244), ACRDSD2 (#1192), ACRDSD20 (#1245), ACRDSD21 (#1246), ACRDSD22 (#1247), ACRDSD23 (#1248), ACRDSD24 (#1249), ACRDSD3 (#1193), ACRDSD4 (#1194), ACRDSD5 (#1195), ACRDSD6 (#1196), ACRDSD7 (#1197),
    ACRDSD8 (#1198), ACRDSD9 (#1199)
2.1 INTERNAL ADMISSION # COMPUTED

  • MUMPS CODE:  S X=$O(^DGPM("APTF",D0,0))
  • ALGORITHM:  S X=$O(^DGPM("APTF",D0,0))
  • LAST EDITED:  MAR 02, 1990
  • DESCRIPTION:  
    IFN assigned to the admission date/time for this particular record.
2.2 WARD AT DISCHARGE COMPUTED

  • MUMPS CODE:  D PTF^DGPMUTL(D0)
    9.2 = X $P(^DD(45,2.1,0),U,5,99) S Y(45,2.2,1)=X S X=Y(45,2.2,1)
  • ALGORITHM:  D PTF^DGPMUTL(D0)
  • LAST EDITED:  MAY 21, 1991
  • DESCRIPTION:  
    This field contains the ward at the time of discharge.
3 FACILITY 0;3 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S DIC="^DIC(4,",DIC(0)="M" D ^DIC S X=$S($D(^DIC(4,+Y,99)):+^(99),1:"") K:Y'>0 X
  • LAST EDITED:  APR 26, 1989
  • HELP-PROMPT:  ENTER FACILITY NUMBER
  • DESCRIPTION:  
    Facility from which this veteran was discharged.
  • EXECUTABLE HELP:  S DIC(0)="M",DIC="^DIC(4," D ^DIC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
4 FEE BASIS 0;4 SET
  • '1' FOR FEE BASIS;

  • LAST EDITED:  JAN 04, 1990
  • HELP-PROMPT:  Enter 'F' if this is a fee basis entry.
  • DESCRIPTION:  
    This field indicated if the PTF record is a FEE basis record. A '1' in this field indicates a FEE basis record.
  • CROSS-REFERENCE:  45^AFEE^MUMPS
    1)= I $P(^DGPT(DA,0),U),$P(^(0),U,2) S ^DGPT("AFEE",$P(^DGPT(DA,0),U),$P(^DGPT(DA,0),U,2),DA)=""
    2)= I $P(^DGPT(DA,0),U),$P(^(0),U,2) K ^DGPT("AFEE",$P(^DGPT(DA,0),U),$P(^DGPT(DA,0),U,2),DA)
5 SUFFIX 0;5 FREE TEXT

  • INPUT TRANSFORM:  D UP^DGHELP S DIC="^DIC(45.81,",DIC(0)="EFC",D="D1" D IX^DIC S DIC=$S($D(DIE):DIE,1:DIC) I Y'>0!(X=" ")!('$$ACTIVE^DGPTDD($G(X),+Y,+$G(PTF))) K X
  • LAST EDITED:  JUL 18, 1995
  • HELP-PROMPT:  Enter the active suffix of this medical center if not included in the facility number.
  • DESCRIPTION:  
    This field contains the suffix of the medical center if not indicated in the facility number.
  • EXECUTABLE HELP:  D ACTLST^DGPTDD(+$G(PTF))
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^45^20
    1)= Q
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,101)):^(101),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" S DIH=$S($D(^DGPT(DIV(0),101)):^(101),1:""),DIV=X S $P(^(101),U,1)=DIV,DIH=45,DIG=20 D ^DICR:$O(^DD(DIH,DIG
    ,1,0))>0
    CREATE VALUE)= NO EFFECT
    DELETE VALUE)= @
    FIELD)= SOURCE OF ADMISSION
6 STATUS 0;6 SET
  • '0' FOR Open;
  • '1' FOR Closed;
  • '2' FOR Released;
  • '3' FOR Transmitted;

  • LAST EDITED:  MAY 10, 1985
  • HELP-PROMPT:  Enter the current status of this patient's record.
  • DESCRIPTION:  
    This field indicates the current status of the PTF record.
  • NOTES:  TRIGGERED by the RECORD field of the PTF RECORD sub-field of the PTF RELEASE File
    TRIGGERED by the PTF RECORD field of the PTF CLOSE OUT File
  • CROSS-REFERENCE:  45^AS
    1)= S ^DGPT("AS",$E(X,1,30),DA)=""
    2)= K ^DGPT("AS",$E(X,1,30),DA)
7 CLOSED OUT BY 0;7 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 10, 1990
  • HELP-PROMPT:  Enter the person who closed out this PTF record.
  • DESCRIPTION:  
    This field contains a pointer to the New Person File. The field indicates who closed out the PTF record.
7.1 CLOSE OUT FILE 0;9 POINTER TO PTF CLOSE OUT FILE (#45.84) PTF CLOSE OUT(#45.84)

  • LAST EDITED:  FEB 08, 1985
  • DESCRIPTION:  
    File reference containing all PTF records that have been closed out.
    WRITE AUTHORITY: ^
7.2 CLOSE OUT DATE COMPUTED DATE

  • MUMPS CODE:  X ^DD(45,7.2,9.2) S X=$P(Y(45,7.2,101),U,2) S D0=Y(45,7.2,2)
    9.2 = S Y(45,7.2,2)=$S($D(D0):D0,1:""),Y(45,7.2,1)=$S($D(^DGPT(D0,0)):^(0),1:""),D0=$P(Y(45,7.2,1),U,9) S:'$D(^DGP(45.84,+D0,0)) D0=-1 S Y(45,7.2,101)=$S($D(^DGP(45.84,D0,0)):^(0),1:"")
  • ALGORITHM:  CLOSE OUT FILE:CLOSE OUT DATE
  • DESCRIPTION:  
    This field contains the date the PTF record was closed out.
7.3 RELEASE DATE COMPUTED DATE

  • MUMPS CODE:  X ^DD(45,7.3,9.2) S X=$P(Y(45,7.3,101),U,4) S D0=Y(45,7.3,2)
    9.2 = S Y(45,7.3,2)=$S($D(D0):D0,1:""),Y(45,7.3,1)=$S($D(^DGPT(D0,0)):^(0),1:""),D0=$P(Y(45,7.3,1),U,9) S:'$D(^DGP(45.84,+D0,0)) D0=-1 S Y(45,7.3,101)=$S($D(^DGP(45.84,D0,0)):^(0),1:"")
  • ALGORITHM:  CLOSE OUT FILE:RELEASE DATE
  • DESCRIPTION:  
    This field contains the date the PTF record was released.
7.4 TRANSMISSION DATE COMPUTED DATE

  • MUMPS CODE:  S X=$S($D(^DGP(45.83,"C",D0)):$O(^DGP(45.83,"C",D0,0)),1:""),X=$S($D(^DGP(45.83,+X,"P",D0,0)):$P(^(0),U,2),1:"")
  • ALGORITHM:  S X=$S($D(^DGP(45.83,"C",D0)):$O(^DGP(45.83,"C",D0,0)),1:""),X=$S($D(^DGP(45.83,+X,"P",D0,0)):$P(^(0),U,2),1:"")
  • LAST EDITED:  MAY 19, 2006
  • DESCRIPTION:  
    This field contains the date the PTF record was transmitted.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
8 FIRST CLOSED OUT AT 0;8 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 19, 1984
  • HELP-PROMPT:  Enter the date PTF record was first closed.
  • DESCRIPTION:  
    This field contains the date the PTF record was first closed out.
9 DRG COMPUTED

  • MUMPS CODE:  Q:'$D(^DGPT(D0,0)) S %PTF=1,DRG=$S($D(^DGP(45.84,D0,0)):$P(^(0),U,6),1:""),(ICDCAL,DGCPT)="",DFN=+^DGPT(D0,0),PTF=D0,ZTA=D0 D EN1^DGPTFD:'DRG S X=DRG,DRGCAL=$S($D(^ICD(+X,0)):^(0),1:"") K ZTA,DZ,DGCPT
  • ALGORITHM:  S DZ=$S($D(DA):DA,$D(D0):D0,1:"") Q:DZ="" S %PTF=1,DRG="",ICDCAL="",DFN=+^DGPT(DZ,0),PTF=D0,ZTA=D0 D EN1^DGPTFD S DA=ZTA,X=DRG K ZTA,DZ
  • LAST EDITED:  JUL 21, 1989
  • DESCRIPTION:  
    This field contains the DRG for the episode of care described by the PTF record.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
10 MEANS TEST INDICATOR 0;10 SET
************************REQUIRED FIELD************************
  • 'AS' FOR SERVICE CONNECTED;
  • 'AN' FOR NSC MT COPAY EXEMPT;
  • 'B' FOR CAT B;
  • 'C' FOR MT COPAY REQUIRED;
  • 'N' FOR NON VET;
  • 'X' FOR NOT APPLICABLE;
  • 'U' FOR NOT DONE/COMPLETED;
  • 'G' FOR GMT COPAY REQUIRED;

  • LAST EDITED:  AUG 12, 2002
  • HELP-PROMPT:  Enter Means Test indicator
  • DESCRIPTION:  
    This field contains the Means Test Indicator.
  • CROSS-REFERENCE:  45^AMT
    1)= S ^DGPT("AMT",$E(X,1,30),DA)=""
    2)= K ^DGPT("AMT",$E(X,1,30),DA)
11 TYPE OF RECORD 0;11 SET
************************REQUIRED FIELD************************
  • '1' FOR PTF;
  • '2' FOR CENSUS;

  • LAST EDITED:  APR 18, 1990
  • DESCRIPTION:  This field indicates what type of record this is represents. As of 8/90 there are only two types, PTF and census.
    It is important to note that before MAS v4.7 this field did not exist and all records were PTF records. If sites have developed reports, they will need to screen on this field for the PTF record. (A PTF record has an
    internal value of 1 and a census record has a value of 2.)
  • NOTES:  TRIGGERED by the CENSUS DATE field of the PTF File
  • RECORD INDEXES:  ACRDDXLS (#1176), ACRDPDX (#401), ACRDSD1 (#1187), ACRDSD10 (#1188), ACRDSD11 (#1189), ACRDSD12 (#1190), ACRDSD13 (#1191), ACRDSD14 (#1239), ACRDSD15 (#1240), ACRDSD16 (#1241), ACRDSD17 (#1242), ACRDSD18 (#1243),
    ACRDSD19 (#1244), ACRDSD2 (#1192), ACRDSD20 (#1245), ACRDSD21 (#1246), ACRDSD22 (#1247), ACRDSD23 (#1248), ACRDSD24 (#1249), ACRDSD3 (#1193), ACRDSD4 (#1194), ACRDSD5 (#1195), ACRDSD6 (#1196), ACRDSD7 (#1197),
    ACRDSD8 (#1198), ACRDSD9 (#1199), AICN (#833), AICP (#1691)
12 CORRESPONDING PTF RECORD 0;12 POINTER TO PTF FILE (#45) PTF(#45)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,11)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 11, 1990
  • DESCRIPTION:  This field is only filled in for census type of records. It points to the PTF record that was used to create the census record.
    A census record is an extract of information from the parent PTF record for activities that occurred during the census time period.
  • SCREEN:  S DIC("S")="I $P(^(0),U,11)=1"
  • EXPLANATION:  Allows only PTF record.
  • CROSS-REFERENCE:  45^ACENSUS
    1)= S ^DGPT("ACENSUS",$E(X,1,30),DA)=""
    2)= K ^DGPT("ACENSUS",$E(X,1,30),DA)
13 CENSUS DATE 0;13 POINTER TO PTF CENSUS DATE FILE (#45.86) PTF CENSUS DATE(#45.86)

  • LAST EDITED:  APR 18, 1990
  • DESCRIPTION:  
    This field is only filled in for census records and it points back to a PTF CENSUS DATE file entry.
  • CROSS-REFERENCE:  ^^TRIGGER^45^11
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=2 S DIH=$S($D(^DGPT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=45,DIG=11 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X=DIV S X=1 S DIH=$S($D(^DGPT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,11)=DIV,DIH=45,DIG=11 D ^DICR
    CREATE VALUE)= S X=2
    DELETE VALUE)= S X=1
    FIELD)= TYPE OF RECORD
14 INITIAL DATE OF SERVICE 0;14 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X I $D(X) D DTIDS^DGPTUTL1
  • LAST EDITED:  NOV 01, 2021
  • HELP-PROMPT:  Enter initial date / time (optional) of service.
  • DESCRIPTION:  
    This field contains the initial date of service. Time can be entered, but it is optional.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
20 SOURCE OF ADMISSION 101;1 POINTER TO SOURCE OF ADMISSION FILE (#45.1) SOURCE OF ADMISSION(#45.1)

  • INPUT TRANSFORM:  S DIC("S")="S DGER=0 D SA^DGPTFJ K DGSU0,DGSU1 I 'DGER" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 28, 1990
  • HELP-PROMPT:  Enter the source of admission from the available entries.
  • DESCRIPTION:  
    This field contains the source of admission of the veteran, or where he was admitted to the hospital from, i.e. community, other facility, etc.
  • SCREEN:  S DIC("S")="S DGER=0 D SA^DGPTFJ K DGSU0,DGSU1 I 'DGER"
  • EXPLANATION:  Note: 3E only valid with active Psych Med Center suffix, 4E only valid with active VA Domiciliary suffix, 5D only valid with active VA Nursing Home suffix. (4E and 5D require Transferring Suffix entry also)
  • NOTES:  TRIGGERED by the SUFFIX field of the PTF File
20.1 ADMITTING ELIGIBILITY 101;8 POINTER TO ELIGIBILITY CODE FILE (#8) ELIGIBILITY CODE(#8)

  • LAST EDITED:  JAN 31, 1997
  • HELP-PROMPT:  Please enter the Admitting Eligibility.
  • DESCRIPTION:  
    This field contains the Admitting Eligibility associated with this inpatient stay.
21 *TRANSFERING FACILITY 101;2 POINTER TO PTF TRANSFERRING FACILITY FILE (#45.2) PTF TRANSFERRING FACILITY(#45.2)

  • LAST EDITED:  FEB 26, 1984
  • HELP-PROMPT:  Enter the from which this patient was transfered.
  • DESCRIPTION:  
    Old version no longer used
21.1 TRANSFERRING FACILITY 101;5 NUMBER

  • INPUT TRANSFORM:  S DIC="^DIC(4,",DIC(0)="ME" D ^DIC S X=$S($D(^DIC(4,+Y,99)):$E(^(99),1,3),1:"") K:Y'>0 X
  • LAST EDITED:  JAN 21, 2000
  • HELP-PROMPT:  ENTER FACILITY NUMBER
  • DESCRIPTION:  
    Facility number of the facility that the veteran was transferred to the hospital from.
  • EXECUTABLE HELP:  S DIC(0)="ME",DIC="^DIC(4," D ^DIC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
21.2 TRANSFERRING SUFFIX 101;6 FREE TEXT

  • INPUT TRANSFORM:  D UP^DGHELP S DIC(0)="ECF",DIC="^DIC(45.81,",D="D1" D IX^DIC S DIC=$S($D(DIE):DIE,1:DIC) I +Y'>0!(X=" ") K X
  • LAST EDITED:  JUN 07, 1995
  • HELP-PROMPT:  Enter the suffix (if applicable) assigned to the facility the patient was transferred from.
  • DESCRIPTION:  
    The suffix assigned to the facility (if applicable) the veteran was transferred to the hospital from, i.e. 9AA = Nursing Home.
  • EXECUTABLE HELP:  S DIZ=$Y+10,DIC="^DIC(45.81,",DIC(0)="E",D="D1",X="??" D IX^DIC S DIC=DIE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
22 SOURCE OF PAYMENT 101;3 SET
  • '1' FOR CONTRACT-PUBLIC&PRIV;
  • '2' FOR SHARING;
  • '3' FOR CONTRACT-MILT&FED AGENCY;
  • '4' FOR PAID UNAUTH;

  • LAST EDITED:  FEB 22, 1984
  • HELP-PROMPT:  Enter the source of payment for this patient for non-VA hospitals only.
  • DESCRIPTION:  
    The field contains the source of payment for this patient for Non-VA hospitals only.
23 CATEGORY OF BENEFICIARY 101;4 POINTER TO CATEGORY OF BENEFICIARY FILE (#45.82) CATEGORY OF BENEFICIARY(#45.82)

  • INPUT TRANSFORM:  D CAT1^DGINP
  • LAST EDITED:  MAY 03, 1991
  • HELP-PROMPT:  Enter the category of beneficiary of this patient.
  • DESCRIPTION:  
    Category of beneficiary. This field through cross reference sets Category of beneficiary field in patient file which is used for Amis 358
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^AE^MUMPS
    1)= S %=+^DGPT(DA,0) I %>0 S %C=$S($D(^DPT(%,.3)):^(.3),1:"")_"^^^^^^^^^^",^(.3)=$P(%C,U,1,9)_U_X_U_$P(%C,U,11,99),^DPT("ACB",X,%)="" K ^DPT("ACB",+$P(%C,U,10),%),%,%C
    2)= S %=+^DGPT(DA,0) I $D(^DPT(%,.3)) S %C=$P(^(.3),U,10) I %C S ^(.3)=$P(^(.3),U,1,9)_U_U_$P(^(.3),U,11,99) K ^DPT("ACB",%C,%),%,%C
30 CPT RECORD DATE/TIME C;0 DATE Multiple #45.06 45.06

  • LAST EDITED:  NOV 24, 2004
  • INDEXED BY:  CPT RECORD DATE/TIME & PRIMARY DIAGNOSIS & DELETE FLAG (AICNS)
40 401 S;0 DATE Multiple #45.01 45.01

  • DESCRIPTION:  
    Multiple containing information on the PTF 401 screen relating to surgical procedures and operations.
  • INDEXED BY:  SURGERY/PROCEDURE DATE & OPERATION CODE 1 & OPERATION CODE 2 & OPERATION CODE 3 & OPERATION CODE 4 & OPERATION CODE 5 & OPERATION CODE 6 & OPERATION CODE 7 & OPERATION CODE 8 & OPERATION CODE 9 & OPERATION CODE 10 &
    OPERATION CODE 11 & OPERATION CODE 12 & OPERATION CODE 13 & OPERATION CODE 14 & OPERATION CODE 15 & OPERATION CODE 16 & OPERATION CODE 17 & OPERATION CODE 18 & OPERATION CODE 19 & OPERATION CODE 20 & OPERATION CODE 21 &
    OPERATION CODE 22 & OPERATION CODE 23 & OPERATION CODE 24 & OPERATION CODE 25 (AICPS), OPERATION CODE 1 (AO1), OPERATION CODE 10 (AO10), OPERATION CODE 11 (AO11), OPERATION CODE 12 (AO12), OPERATION CODE 13 (AO13),
    OPERATION CODE 14 (AO14), OPERATION CODE 15 (AO15), OPERATION CODE 16 (AO16), OPERATION CODE 17 (AO17), OPERATION CODE 18 (AO18), OPERATION CODE 19 (AO19), OPERATION CODE 2 (AO2), OPERATION CODE 20 (AO20), OPERATION CODE
    21 (AO21), OPERATION CODE 22 (AO22), OPERATION CODE 23 (AO23), OPERATION CODE 24 (AO24), OPERATION CODE 25 (AO25), OPERATION CODE 3 (AO3), OPERATION CODE 4 (AO4), OPERATION CODE 5 (AO5), OPERATION CODE 6 (AO6), OPERATION
    CODE 7 (AO7), OPERATION CODE 8 (AO8), OPERATION CODE 9 (AO9)
45.01 PROCEDURE 1 401P;1 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N K,DGI S DGI=1 D GETAPI^DGICDGT("DG PTF","PROC",$G(DA),"EN2")
  • LAST EDITED:  AUG 27, 2012
  • HELP-PROMPT:  Enter the first procedure for this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^AP^MUMPS
    1)= S ^DGPT(DA,"AP",X)=""
    2)= K ^DGPT(DA,"AP",X)
  • RECORD INDEXES:  AICP (#1691)
45.02 PROCEDURE 2 401P;2 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N K,DGI S DGI=2 D GETAPI^DGICDGT("DG PTF","PROC",$G(DA),"EN2")
  • LAST EDITED:  AUG 27, 2012
  • HELP-PROMPT:  Enter the 2nd procedure for this patient's current episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^AP^MUMPS
    1)= S ^DGPT(DA,"AP",X)=""
    2)= K ^DGPT(DA,"AP",X)
  • RECORD INDEXES:  AICP (#1691)
45.03 PROCEDURE 3 401P;3 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N K,DGI S DGI=3 D GETAPI^DGICDGT("DG PTF","PROC",$G(DA),"EN2")
  • LAST EDITED:  OCT 30, 2012
  • HELP-PROMPT:  Enter the 3rd procedure performed on this patient during this episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^AP^MUMPS
    1)= S ^DGPT(DA,"AP",X)=""
    2)= K ^DGPT(DA,"AP",X)
  • RECORD INDEXES:  AICP (#1691)
45.04 PROCEDURE 4 401P;4 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N K,DGI S DGI=4 D GETAPI^DGICDGT("DG PTF","PROC",$G(DA),"EN2")
  • LAST EDITED:  OCT 30, 2012
  • HELP-PROMPT:  Enter the 4th procedure that was performed on the patient during his current episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^AP^MUMPS
    1)= S ^DGPT(DA,"AP",X)=""
    2)= K ^DGPT(DA,"AP",X)
  • RECORD INDEXES:  AICP (#1691)
45.05 PROCEDURE 5 401P;5 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  N K,DGI S DGI=5 D GETAPI^DGICDGT("DG PTF","PROC",$G(DA),"EN2")
  • LAST EDITED:  OCT 30, 2012
  • HELP-PROMPT:  Enter the 5th procedure for the patient's current episode of care.
  • DESCRIPTION:  
    This is a procedure performed during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^AP^MUMPS
    1)= S ^DGPT(DA,"AP",X)=""
    2)= K ^DGPT(DA,"AP",X)
  • RECORD INDEXES:  AICP (#1691)
50 501 M;0 Multiple #45.02 45.02

  • LAST EDITED:  JUN 28, 1991
  • DESCRIPTION:  
    501 movements
  • TECHNICAL DESCR:  
  • IDENTIFIED BY:  MOVEMENT DATE(#10)[R], TRANSMIT FLAG(#17)
  • INDEXED BY:  MOVEMENT RECORD & ICD 1 & ICD 2 & ICD 3 & ICD 4 & ICD 5 & ICD 6 & ICD 7 & ICD 8 & ICD 9 & ICD 10 & ICD 11 & ICD 12 & ICD 13 & ICD 14 & ICD 15 & ICD 16 & ICD 17 & ICD 18 & ICD 19 & ICD 20 & ICD 21 & ICD 22 & ICD 23 & ICD 24
    & ICD 25 (AICNM)
60 601 P;0 DATE Multiple #45.05 45.05

  • DESCRIPTION:  
    601 movements.
  • INDEXED BY:  PROCEDURE DATE & PROCEDURE CODE 1 & PROCEDURE CODE 2 & PROCEDURE CODE 3 & PROCEDURE CODE 4 & PROCEDURE CODE 5 & PROCEDURE CODE 6 & PROCEDURE CODE 7 & PROCEDURE CODE 8 & PROCEDURE CODE 9 & PROCEDURE CODE 10 & PROCEDURE CODE
    11 & PROCEDURE CODE 12 & PROCEDURE CODE 13 & PROCEDURE CODE 14 & PROCEDURE CODE 15 & PROCEDURE CODE 16 & PROCEDURE CODE 17 & PROCEDURE CODE 18 & PROCEDURE CODE 19 & PROCEDURE CODE 20 & PROCEDURE CODE 21 & PROCEDURE CODE 22
    & PROCEDURE CODE 23 & PROCEDURE CODE 24 & PROCEDURE CODE 25 (AICPP)
70 DISCHARGE DATE 70;1 DATE

  • INPUT TRANSFORM:  S %DT="ETXP" D ^%DT S X=Y K:Y<1 X I $D(X) K:X<$P(^DGPT(DA,0),U,2) X I '$D(X) W *7,!,"Not before admission"
  • LAST EDITED:  JUN 02, 2008
  • HELP-PROMPT:  Enter the date this patient was dispositioned from the medical center.
  • DESCRIPTION:  
    For census records, this field holds the census date associated with the record, not the admission's discharge date.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^ADS
    1)= S ^DGPT("ADS",$E(X,1,30),DA)=""
    2)= K ^DGPT("ADS",$E(X,1,30),DA)
  • CROSS-REFERENCE:  45^AC^MUMPS
    1)= N DGFDA,DGMSG S DGFDA(45.02,"1,"_$$IENS^DILF(DA),10)=X D FILE^DIE("","DGFDA","DGMSG") K DGFDA,DGMSG
    2)= N DGFDA,DGMSG S DGFDA(45.02,"1,"_$$IENS^DILF(DA),10)="@" D FILE^DIE("","DGFDA","DGMSG") K DGFDA,DGMSG
    When a patient is discharged, this cross-reference updates the MOVEMENT DATE field (#10) in the 501 subfile (#45.02) with the discharge date for the associated discharge movement.
  • CROSS-REFERENCE:  45^AADA1^MUMPS
    1)= S L=$P(^DGPT(DA,0),"^",2) I L?7N.E K ^DGPT("AADA",L,DA)
    2)= S L=$P(^DGPT(DA,0),"^",2) I L?7N.E,$G(DIK)'="^DGPT(" S ^DGPT("AADA",L,DA)=""
  • RECORD INDEXES:  ACRDDXLS (#1176), ACRDPDX (#401), ACRDSD1 (#1187), ACRDSD10 (#1188), ACRDSD11 (#1189), ACRDSD12 (#1190), ACRDSD13 (#1191), ACRDSD14 (#1239), ACRDSD15 (#1240), ACRDSD16 (#1241), ACRDSD17 (#1242), ACRDSD18 (#1243),
    ACRDSD19 (#1244), ACRDSD2 (#1192), ACRDSD20 (#1245), ACRDSD21 (#1246), ACRDSD22 (#1247), ACRDSD23 (#1248), ACRDSD24 (#1249), ACRDSD3 (#1193), ACRDSD4 (#1194), ACRDSD5 (#1195), ACRDSD6 (#1196), ACRDSD7 (#1197),
    ACRDSD8 (#1198), ACRDSD9 (#1199)
71 DISCHARGE SPECIALTY 70;2 POINTER TO SPECIALTY FILE (#42.4) SPECIALTY(#42.4)

  • INPUT TRANSFORM:  S DIC("S")="I $G(^DGPT(DA,70)),$$ACTIVE^DGACT(42.4,Y,$P(^DGPT(DA,70),U))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 02, 2008
  • HELP-PROMPT:  Enter the bedsection this patient was discharged from. This must be an active treating specialty. You must have a discharge date to enter a discharge specialty.
  • DESCRIPTION:  
    This field contains the bedsection this patient was discharged from.
  • SCREEN:  S DIC("S")="I $G(^DGPT(DA,70)),$$ACTIVE^DGACT(42.4,Y,$P(^DGPT(DA,70),U))"
  • EXPLANATION:  Allows only active treating specialties.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^AD^MUMPS
    1)= I $D(^DGPT(DA,"M",1,0)) N DGFDA,DGMSG S DGFDA(45.02,"1,"_$$IENS^DILF(DA),2)=X D FILE^DIE("","DGFDA","DGMSG") K DGFDA,DGMSG
    2)= I $D(^DGPT(DA,"M",1,0)) N DGFDA,DGMSG S DGFDA(45.02,"1,"_$$IENS^DILF(DA),2)="@" D FILE^DIE("","DGFDA","DGMSG") K DGFDA,DGMSG
    When the discharge specialty is modified, this cross-reference will modify the LOSING SPECIALTY field (#2) in the 501 subfile (#45.02) with the discharge specialty associated with the discharge movement.
72 TYPE OF DISPOSITION 70;3 SET
  • '1' FOR REGULAR;
  • '2' FOR NBC OR WHILE ASIH;
  • '3' FOR EXPIRATION 6 MONTH LIMIT;
  • '4' FOR IRREGULAR;
  • '5' FOR TRANSFER;
  • '6' FOR DEATH WITH AUTOPSY;
  • '7' FOR DEATH WITHOUT AUTOPSY;

  • LAST EDITED:  AUG 19, 1991
  • HELP-PROMPT:  Enter the type of disposition for this patient for this episode of care.
  • DESCRIPTION:  
    This field contains the type of disposition for this patient for this episode of care.
72.1 DISCHARGE STATUS 70;14 SET
  • '1' FOR BED OCCUPANT;
  • '2' FOR ON PASS;
  • '3' FOR ON LEAVE;
  • '4' FOR ASIH;

  • LAST EDITED:  JUL 21, 1986
  • DESCRIPTION:  
    This field contains the discharge status for the patient during this episode of care.
73 OUTPATIENT TREATMENT 70;4 SET
  • '1' FOR YES;
  • '3' FOR NO;

  • LAST EDITED:  FEB 23, 1984
  • HELP-PROMPT:  Enter '1' if the patient was discharged to outpatient treatment, '3' if not.
  • DESCRIPTION:  
    This field indicates if the veteran was referred for outpatient treatment following an episode of hospital care.
74 VA AUSPICES 70;5 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  APR 08, 1985
  • DESCRIPTION:  
    If outpatient care indicated, is it under VA auspices? Is the VA paying for this care or is the veteran being seen at a VA facility?
75 PLACE OF DISPOSITION 70;6 POINTER TO PLACE OF DISPOSITION FILE (#45.6) PLACE OF DISPOSITION(#45.6)

  • LAST EDITED:  FEB 24, 1984
  • DESCRIPTION:  
    Enter place of disposition..where is the veteran being discharged to?
76 *RECEIVING FACILITY 70;7 POINTER TO PTF TRANSFERRING FACILITY FILE (#45.2) PTF TRANSFERRING FACILITY(#45.2)

  • LAST EDITED:  FEB 24, 1984
  • HELP-PROMPT:  Enter the location of the facility receiving this patient.
  • DESCRIPTION:  
    Discontinued after version 3.3
76.1 RECEIVING FACILITY 70;12 NUMBER

  • INPUT TRANSFORM:  S DIC="^DIC(4,",DIC(0)="ME" D ^DIC S DIC=$S($D(DIE):DIE,1:DIC) S X=$S($D(^DIC(4,+Y,99)):$E(^(99),1,3),1:"") K:Y'>0 X
  • LAST EDITED:  JAN 20, 2000
  • HELP-PROMPT:  Enter Facility Number
  • DESCRIPTION:  
    Facility number of the facility that the veteran is being transferred to from hospital.
  • EXECUTABLE HELP:  S DIC(0)="ME",DIC="^DIC(4," D ^DIC
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
76.2 RECEIVING SUFFIX 70;13 FREE TEXT

  • INPUT TRANSFORM:  D UP^DGHELP S DIC(0)="EFC",DIC="^DIC(45.81,",D="D1" D IX^DIC S DIC=DIE I +Y'>0!(X=" ") K X
  • LAST EDITED:  JUL 05, 1995
  • HELP-PROMPT:  Enter the suffix of this medical center if not included in the facility number.
  • DESCRIPTION:  
    Suffix of receiving facility, i.e. 9AA for nursing home.
  • EXECUTABLE HELP:  S DIZ=$Y+10,DIC="^DIC(45.81,",DIC(0)="E",D="D1",X="??" D IX^DIC S DIC=DIE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
77 ASIH DAYS 70;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  FEB 24, 1984
  • HELP-PROMPT:  Enter the number of days the patient was ASIH if stay was not in a hospital.
  • DESCRIPTION:  
    Number of days patient was Absent Sick in Hospital during this episode of care (pertains to NHCU/DOM patients only).
78 C&P STATUS 70;9 SET
  • '1' FOR COMP/SC COND >10%;
  • '2' FOR NON-COMP/SC COND<10%;
  • '3' FOR COMP/SC (+10%) NO MED CARE;
  • '4' FOR NON-COMP(-10%) SC NO MED CARE-VA PENSION;
  • '5' FOR VA PENSION-NO SC COND;
  • '6' FOR NON-COMP(-10%) SC NO MED CARE NO PENSION;
  • '7' FOR NO PENSION-NO SC;
  • '8' FOR NON-VET;

  • LAST EDITED:  FEB 24, 1984
  • HELP-PROMPT:  Enter the C&P status for this patient's visit.
  • DESCRIPTION:  
    Compensation and Pension status (synoymous with eligibility).
79 PRINCIPAL DIAGNOSIS 70;10 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=1 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter the ICD diagnosis responsible for the patient's greatest length of stay.
  • DESCRIPTION:  
    This field contains the diagnosis responsible for the patient's greatest length of stay.
  • EXECUTABLE HELP:  Q
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.01
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,1)=DIV,DIH=45,DIG=82.01 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,1),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,1)=DIV,DIH=45,DIG=82.01 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.01
    When PRINCIPAL DIAGNOSIS field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45^ADGRU79^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACRDDXLS (#1176), AICN (#833)
79.1 PROVIDER 70;15 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="S DG1=0 X ^DD(45,79.1,9.2) I DG1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
    9.2 = S DFN=+^DGPT(DA,0),%=+$O(^DGPM("APTF",DA,0)) S:%'>0 DG1=1 X:'DG1 ^DD(45,79.1,9.3)
    9.3 = F I=0:0 S I=$O(^DGPM("CA",%,I)) Q:'I I $D(^DGPM(I,0)),$P(^(0),U,8)=+Y S DG1=1 Q
  • LAST EDITED:  JAN 26, 1993
  • DESCRIPTION:  
    The primary physician responsible for this patient's episode of care.
  • SCREEN:  S DIC("S")="S DG1=0 X ^DD(45,79.1,9.2) I DG1"
  • EXPLANATION:  Same as in treating specialties
79.16 SECONDARY DIAGNOSIS 1 70;16 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=2 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.02
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,2)=DIV,DIH=45,DIG=82.02 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,2)=DIV,DIH=45,DIG=82.02 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.02
    When SECONDARY DIAGNOSIS 1 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45^ADGRU7916^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACRDSD1 (#1187), AICN (#833)
79.17 SECONDARY DIAGNOSIS 2 70;17 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=3 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.03
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,3)=DIV,DIH=45,DIG=82.03 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,3)=DIV,DIH=45,DIG=82.03 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.03
    When SECONDARY DIAGNOSIS 2 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45^ADGRU7917^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACRDSD2 (#1192), AICN (#833)
79.18 SECONDARY DIAGNOSIS 3 70;18 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=4 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.04
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,4)=DIV,DIH=45,DIG=82.04 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,4)=DIV,DIH=45,DIG=82.04 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.04
    When SECONDARY DIAGNOSIS 3 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45^ADGRU7818^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACRDSD3 (#1193), AICN (#833)
79.19 SECONDARY DIAGNOSIS 4 70;19 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=5 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.05
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,5)=DIV,DIH=45,DIG=82.05 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,5)=DIV,DIH=45,DIG=82.05 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.05
    When SECONDARY DIAGNOSIS 4 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45^ADGRU7919^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACRDSD4 (#1194), AICN (#833)
79.2 PROVIDER SSN COMPUTED

  • MUMPS CODE:  X ^DD(45,79.2,9.2) S X=$P(Y(45,79.2,101),U,9) S D0=Y(45,79.2,80)
    9.2 = S Y(45,79.2,80)=$S($D(D0):D0,1:""),Y(45,79.2,1)=$S($D(^DGPT(D0,70)):^(70),1:""),D0=$P(Y(45,79.2,1),U,15) S:'$D(^VA(200,+D0,0)) D0=-1 S Y(45,79.2,101)=$S($D(^VA(200,D0,1)):^(1),1:"")
  • ALGORITHM:  PROVIDER:SSN
  • LAST EDITED:  JUL 17, 1993
  • DESCRIPTION:  
    Social Security number of primary care physician.
79.201 SECONDARY DIAGNOSIS 5 70;20 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=6 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.06
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,6)=DIV,DIH=45,DIG=82.06 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,6),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,6)=DIV,DIH=45,DIG=82.06 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.06
    When SECONDARY DIAGNOSIS 5 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45^ADGRU79201^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACRDSD5 (#1195), AICN (#833)
79.21 SECONDARY DIAGNOSIS 6 70;21 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=7 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.07
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,7)=DIV,DIH=45,DIG=82.07 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,7),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,7)=DIV,DIH=45,DIG=82.07 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.07
    When SECONDARY DIAGNOSIS 6 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45^ADGRU7921^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACRDSD6 (#1196), AICN (#833)
79.22 SECONDARY DIAGNOSIS 7 70;22 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=8 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,8)=DIV,DIH=45,DIG=82.08 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,8)=DIV,DIH=45,DIG=82.08 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.08
    When SECONDARY DIAGNOSIS 7 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45^ADGRU7922^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACRDSD7 (#1197), AICN (#833)
79.23 SECONDARY DIAGNOSIS 8 70;23 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=9 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.09
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,9)=DIV,DIH=45,DIG=82.09 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,9)=DIV,DIH=45,DIG=82.09 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.09
    When SECONDARY DIAGNOSIS 8 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45^ADGRU7923^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACRDSD8 (#1198), AICN (#833)
79.24 SECONDARY DIAGNOSIS 9 70;24 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=10 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.1
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,10)=DIV,DIH=45,DIG=82.1 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,10),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,10)=DIV,DIH=45,DIG=82.1 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.1
    When SECONDARY DIAGNOSIS 9 field is deleted or changed, delete the associated POA indicator field.
  • CROSS-REFERENCE:  45^ADGRU7924^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACRDSD9 (#1199), AICN (#833)
79.241 SECONDARY DIAGNOSIS 10 71;1 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=11 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^ADGRU79241^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.11
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,11)=DIV,DIH=45,DIG=82.11 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,11),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,11)=DIV,DIH=45,DIG=82.11 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.11
    When SECONDARY DIAGNOSIS 10 field is deleted or changed, delete the associated POA indicator field.
  • RECORD INDEXES:  ACRDSD10 (#1188), AICN (#833)
79.242 SECONDARY DIAGNOSIS 11 71;2 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=12 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^ADGRU79242^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.12
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,12)=DIV,DIH=45,DIG=82.12 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,12),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,12)=DIV,DIH=45,DIG=82.12 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.12
    When SECONDARY DIAGNOSIS 11 field is deleted or changed, delete the associated POA indicator field.
  • RECORD INDEXES:  ACRDSD11 (#1189), AICN (#833)
79.243 SECONDARY DIAGNOSIS 12 71;3 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=13 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^ADGRU79243^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.13
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,13)=DIV,DIH=45,DIG=82.13 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,13),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,13)=DIV,DIH=45,DIG=82.13 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.13
    When SECONDARY DIAGNOSIS 12 field is deleted or changed, delete the associated POA indicator field.
  • RECORD INDEXES:  ACRDSD12 (#1190), AICN (#833)
79.244 SECONDARY DIAGNOSIS 13 71;4 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=14 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^ADGRU79244^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.14
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,14)=DIV,DIH=45,DIG=82.14 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,14),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,14)=DIV,DIH=45,DIG=82.14 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.14
    When SECONDARY DIAGNOSIS 13 field is deleted or changed, delete the associated POA indicator field.
  • RECORD INDEXES:  ACRDSD13 (#1191), AICN (#833)
79.245 SECONDARY DIAGNOSIS 14 71;5 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=15 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^ADGRU79245^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes.
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.15
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,15)=DIV,DIH=45,DIG=82.15 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,15),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,15)=DIV,DIH=45,DIG=82.15 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.15
    When SECONDARY DIAGNOSIS 14 field is deleted or changed, delete the associated POA indicator field.
  • RECORD INDEXES:  ACRDSD14 (#1239), AICN (#833)
79.246 SECONDARY DIAGNOSIS 15 71;6 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=16 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^ADGRU79246^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes.
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.16
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,16)=DIV,DIH=45,DIG=82.16 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,16),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,16)=DIV,DIH=45,DIG=82.16 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.16
    When SECONDARY DIAGNOSIS 15 field is deleted or changed, delete the associated POA indicator field.
  • RECORD INDEXES:  ACRDSD15 (#1240), AICN (#833)
79.247 SECONDARY DIAGNOSIS 16 71;7 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=17 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^ADGRU79247^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes.
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.17
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,17)=DIV,DIH=45,DIG=82.17 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,17)=DIV,DIH=45,DIG=82.17 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.17
    When SECONDARY DIAGNOSIS 16 field is deleted or changed, delete the associated POA indicator field.
  • RECORD INDEXES:  ACRDSD16 (#1241), AICN (#833)
79.248 SECONDARY DIAGNOSIS 17 71;8 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=18 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^ADGRU79248^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes.
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.18
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,18)=DIV,DIH=45,DIG=82.18 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,18)=DIV,DIH=45,DIG=82.18 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.18
    When SECONDARY DIAGNOSIS 17 field is deleted or changed, delete the associated POA indicator field.
  • RECORD INDEXES:  ACRDSD17 (#1242), AICN (#833)
79.249 SECONDARY DIAGNOSIS 18 71;9 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=19 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^ADGRU79249^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes.
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.19
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,19)=DIV,DIH=45,DIG=82.19 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,19)=DIV,DIH=45,DIG=82.19 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.19
    When SECONDARY DIAGNOSIS 18 field is deleted or changed, delete the associated POA indicator field.
  • RECORD INDEXES:  ACRDSD18 (#1243), AICN (#833)
79.2491 SECONDARY DIAGNOSIS 19 71;10 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=20 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^ADGRU792491^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes.
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.2
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,20)=DIV,DIH=45,DIG=82.2 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,20),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,20)=DIV,DIH=45,DIG=82.2 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.2
    When SECONDARY DIAGNOSIS 19 field is deleted or changed, delete the associated POA indicator field.
  • RECORD INDEXES:  ACRDSD19 (#1244), AICN (#833)
79.24911 SECONDARY DIAGNOSIS 20 71;11 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=21 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^ADGRU7924911^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes.
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.21
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,21)=DIV,DIH=45,DIG=82.21 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,21),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,21)=DIV,DIH=45,DIG=82.21 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.21
    When SECONDARY DIAGNOSIS 20 field is deleted or changed, delete the associated POA indicator field.
  • RECORD INDEXES:  ACRDSD20 (#1245), AICN (#833)
79.24912 SECONDARY DIAGNOSIS 21 71;12 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=22 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^ADGRU7924912^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes.
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.22
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,22)=DIV,DIH=45,DIG=82.22 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,22),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,22)=DIV,DIH=45,DIG=82.22 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.22
    When SECONDARY DIAGNOSIS 21 field is deleted or changed, delete the associated POA indicator field.
  • RECORD INDEXES:  ACRDSD21 (#1246), AICN (#833)
79.24913 SECONDARY DIAGNOSIS 22 71;13 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=23 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^ADGRU7924913^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes.
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.23
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,23),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,23)=DIV,DIH=45,DIG=82.23 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,23),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,23)=DIV,DIH=45,DIG=82.23 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.23
    When SECONDARY DIAGNOSIS 22 field is deleted or changed, delete the associated POA indicator field.
  • RECORD INDEXES:  ACRDSD22 (#1247), AICN (#833)
79.24914 SECONDARY DIAGNOSIS 23 71;14 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=24 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^ADGRU7924914^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes.
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.24
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,24)=DIV,DIH=45,DIG=82.24 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,24),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,24)=DIV,DIH=45,DIG=82.24 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.24
    When SECONDARY DIAGNOSIS 23 field is deleted or changed, delete the associated POA indicator field.
  • RECORD INDEXES:  ACRDSD23 (#1248), AICN (#833)
79.24915 SECONDARY DIAGNOSIS 24 71;15 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  N DGI S DGI=25 D GETAPI^DGICDGT("DG PTF","DIAG",$G(DA),"EN3")
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter an ICD diagnosis for the patient during this episode of care.
  • DESCRIPTION:  
    This field contains a diagnosis for the patient during this episode of care. This diagnosis is used in the calculation of the DRG.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^ADGRU7924915^MUMPS
    1)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^DGPT(DA,0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes.
  • CROSS-REFERENCE:  ^^TRIGGER^45^82.25
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,25),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,25)=DIV,DIH=45,DIG=82.25 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^DGPT(D0,82)):^(82),1:"") S X=$P(Y(1),U,25),X=X S DIU=X K Y S X="" S DIH=$G(^DGPT(DIV(0),82)),DIV=X S $P(^(82),U,25)=DIV,DIH=45,DIG=82.25 D ^DICR
    CREATE VALUE)= @
    DELETE VALUE)= @
    FIELD)= #82.25
    When SECONDARY DIAGNOSIS 24 field is deleted or changed, delete the associated POA indicator field.
  • RECORD INDEXES:  ACRDSD24 (#1249), AICN (#833)
79.25 TREATED FOR SC CONDITION 70;25 SET
  • '1' FOR YES;
  • '2' FOR NO;

  • LAST EDITED:  MAR 22, 1993
  • HELP-PROMPT:  The Patient care must be SC related
79.26 TREATED FOR AO CONDITION 70;26 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  S DGFLAG=1 D 701^DGPTSPQ K:DGER X K DGER,DGFLAG
  • LAST EDITED:  MAR 23, 1993
  • HELP-PROMPT:  The Patient must have Agent Orange exposure indicated!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
79.27 TREATED FOR IR CONDITION 70;27 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  S DGFLAG=2 D 701^DGPTSPQ K:DGER X K DGER,DGFLAG
  • LAST EDITED:  MAR 23, 1993
  • HELP-PROMPT:  The Patient must have Ionizing Radiation exposure indicated!
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
79.28 EXPOSED TO SW ASIA CONDITIONS 70;28 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • INPUT TRANSFORM:  S DGFLAG=3 D 701^DGPTSPQ K:DGER X K DGER,DGFLAG
  • LAST EDITED:  JUN 26, 2006
  • HELP-PROMPT:  Treatment related to service in SW Asia.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
79.29 TREATMENT FOR MST 70;29 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUN 18, 1998
  • DESCRIPTION:  
    Was the treatment related to Military Sexual Trauma.
79.3 TREATMENT FOR HEAD/NECK CA 70;30 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JUL 31, 2001
  • DESCRIPTION:  
    Was the treatment related to Head and/or Neck Cancer.
79.31 POTENTIALLY RELATED TO COMBAT 70;31 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  NOV 10, 2003
  • DESCRIPTION:  Indicate if inpatient stay at this location may be related to military service in combat and not from cause other than military service in combat operations (congenital, developmental, pre-service existing conditions, or
    conditions having specific and well-established etiology that began after military combat service, i.e. bone fractures occuring after separation date, common colds, etc). This information is copied from the movement
    records.
79.32 TREATMENT FOR SHAD 70;32 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  MAY 18, 2005
  • DESCRIPTION:  Was the treatment related to Project 112/SHAD.
    Project 112/SHAD was the name of the overall program for both shipboard and land-based biological and chemical testing that was conducted by the United States (U.S.) military between 1962 and 1973. Project SHAD (Shipboard
    Hazard and Defense) was the shipboard portion of these tests.
80 PRINCIPAL DIAGNOSIS pre 1986 70;11 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • INPUT TRANSFORM:  D ICDEN^DGPTF5 Q:X="" S DIC("S")="I '$P(^ICD9(+Y,0),U,9)" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2) D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 20, 2017
  • HELP-PROMPT:  Enter the diagnosis responsible for the patient being admitted to the medical center.
  • DESCRIPTION:  
    This field contains the diagnosis responsible for the patient being admitted to the medical center. This field is not used in the calculation of the DRG. This field is no longer used.
  • SCREEN:  S DIC("S")="I '$P(^ICD9(+Y,0),U,9)" S DIC(0)=$P(DIC(0),"E")_$P(DIC(0),"E",2)
  • EXPLANATION:  NOT AN INACTIVATED CODE
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  45^ADGRU80^MUMPS
    1)= N DG1 S DG1=$P(^(0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    2)= N DG1 S DG1=$P(^(0),"^",1) N X S X="DGRUDD01" X ^%ZOSF("TEST") Q:'$T D:(+DG1>0) ADGRU^DGRUDD01(DG1)
    Create a ADT/HL7 PIVOT (#391.71) entry when diagnosis changes
  • RECORD INDEXES:  ACRDPDX (#401), AICN (#833)
82.01 POA PRINCIPAL DIAGNOSIS 82;1 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,70,10) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for the Principal Diagnosis.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for the Principal Diagnosis. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  Per a decision by the ADT SME on 8/9/2012 a null value of POA will be considered a Y, present on the time of inpatient admission, for calculation of a DRG and for transmission to AITC. This is because the COTS software
    used to do PTF does not upload the POA.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the PRINCIPAL DIAGNOSIS field of the PTF File
82.02 POA SECONDARY DIAGNOSIS 1 82;2 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,70,16) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 1.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 1. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  Per a decision by the ADT SME on 8/9/2012 a null value of POA will be considered a Y, present on the time of inpatient admission, for calculation of a DRG and for transmission to AITC. This is because the COTS software
    used to do PTF does not upload the POA.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 1 field of the PTF File
82.03 POA SECONDARY DIAGNOSIS 2 82;3 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,70,17) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 2.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 2. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  Per a decision by the ADT SME on 8/9/2012 a null value of POA will be considered a Y, present on the time of inpatient admission, for calculation of a DRG and for transmission to AITC. This is because the COTS software
    used to do PTF does not upload the POA.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 2 field of the PTF File
82.04 POA SECONDARY DIAGNOSIS 3 82;4 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,70,18) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 3.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 3. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  Per a decision by the ADT SME on 8/9/2012 a null value of POA will be considered a Y, present on the time of inpatient admission, for calculation of a DRG and for transmission to AITC. This is because the COTS software
    used to do PTF does not upload the POA.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 3 field of the PTF File
82.05 POA SECONDARY DIAGNOSIS 4 82;5 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,70,19) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 4.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 4. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  Per a decision by the ADT SME on 8/9/2012 a null value of POA will be considered a Y, present on the time of inpatient admission, for calculation of a DRG and for transmission to AITC. This is because the COTS software
    used to do PTF does not upload the POA.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 4 field of the PTF File
82.06 POA SECONDARY DIAGNOSIS 5 82;6 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,70,20) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 5.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 5. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  Per a decision by the ADT SME on 8/9/2012 a null value of POA will be considered a Y, present on the time of inpatient admission, for calculation of a DRG and for transmission to AITC. This is because the COTS software
    used to do PTF does not upload the POA.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 5 field of the PTF File
82.07 POA SECONDARY DIAGNOSIS 6 82;7 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,70,21) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 6.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 6. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  Per a decision by the ADT SME on 8/9/2012 a null value of POA will be considered a Y, present on the time of inpatient admission, for calculation of a DRG and for transmission to AITC. This is because the COTS software
    used to do PTF does not upload the POA.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 6 field of the PTF File
82.08 POA SECONDARY DIAGNOSIS 7 82;8 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,70,22) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 7.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 7. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  Per a decision by the ADT SME on 8/9/2012 a null value of POA will be considered a Y, present on the time of inpatient admission, for calculation of a DRG and for transmission to AITC. This is because the COTS software
    used to do PTF does not upload the POA.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 7 field of the PTF File
82.09 POA SECONDARY DIAGNOSIS 8 82;9 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,70,23) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 8.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 8. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  Per a decision by the ADT SME on 8/9/2012 a null value of POA will be considered a Y, present on the time of inpatient admission, for calculation of a DRG and for transmission to AITC. This is because the COTS software
    used to do PTF does not upload the POA.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 8 field of the PTF File
82.1 POA SECONDARY DIAGNOSIS 9 82;10 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,70,24) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 9.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 9. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  Per a decision by the ADT SME on 8/9/2012 a null value of POA will be considered a Y, present on the time of inpatient admission, for calculation of a DRG and for transmission to AITC. This is because the COTS software
    used to do PTF does not upload the POA.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 9 field of the PTF File
82.11 POA SECONDARY DIAGNOSIS 10 82;11 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,71,1) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 10.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 10. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  Per a decision by the ADT SME on 8/9/2012 a null value of POA will be considered a Y, present on the time of inpatient admission, for calculation of a DRG and for transmission to AITC. This is because the COTS software
    used to do PTF does not upload the POA.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 10 field of the PTF File
82.12 POA SECONDARY DIAGNOSIS 11 82;12 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,71,2) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 11.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 11. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  Per a decision by the ADT SME on 8/9/2012 a null value of POA will be considered a Y, present on the time of inpatient admission, for calculation of a DRG and for transmission to AITC. This is because the COTS software
    used to do PTF does not upload the POA.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 11 field of the PTF File
82.13 POA SECONDARY DIAGNOSIS 12 82;13 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,71,3) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 12.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 12. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  Per a decision by the ADT SME on 8/9/2012 a null value of POA will be considered a Y, present on the time of inpatient admission, for calculation of a DRG and for transmission to AITC. This is because the COTS software
    used to do PTF does not upload the POA.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 12 field of the PTF File
82.14 POA SECONDARY DIAGNOSIS 13 82;14 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,71,4) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 13.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 13. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  Per a decision by the ADT SME on 8/9/2012 a null value of POA will be considered a Y, present on the time of inpatient admission, for calculation of a DRG and for transmission to AITC. This is because the COTS software
    used to do PTF does not upload the POA.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 13 field of the PTF File
82.15 POA SECONDARY DIAGNOSIS 14 82;15 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,71,5) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 14.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 14. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • TECHNICAL DESCR:  Per a decision by the ADT SME on 8/9/2012 a null value of POA will be considered a Y, present on the time of inpatient admission, for calculation of a DRG and for transmission to AITC. This is because the COTS software
    used to do PTF does not upload the POA.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 14 field of the PTF File
82.16 POA SECONDARY DIAGNOSIS 15 82;16 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,71,6) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 15.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 15. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 15 field of the PTF File
82.17 POA SECONDARY DIAGNOSIS 16 82;17 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,71,7) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 16.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 16. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 16 field of the PTF File
82.18 POA SECONDARY DIAGNOSIS 17 82;18 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,71,8) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 17.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 17. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 17 field of the PTF File
82.19 POA SECONDARY DIAGNOSIS 18 82;19 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,71,9) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 18.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 18. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 18 field of the PTF File
82.2 POA SECONDARY DIAGNOSIS 19 82;20 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,71,10) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 19.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 19. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 19 field of the PTF File
82.21 POA SECONDARY DIAGNOSIS 20 82;21 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,71,11) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 20.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 20. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 20 field of the PTF File
82.22 POA SECONDARY DIAGNOSIS 21 82;22 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,71,12) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 21.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 21. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 21 field of the PTF File
82.23 POA SECONDARY DIAGNOSIS 22 82;23 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,71,13) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 22.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 22. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 22 field of the PTF File
82.24 POA SECONDARY DIAGNOSIS 23 82;24 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,71,14) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 23.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 23. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 23 field of the PTF File
82.25 POA SECONDARY DIAGNOSIS 24 82;25 SET
  • 'Y' FOR Present on Admission;
  • 'N' FOR Not Present on Admission;
  • 'U' FOR Insufficient Docum to Present on Admission;
  • 'W' FOR Can't Determine if Present on Admission;
  • '1' FOR Exempt;

  • INPUT TRANSFORM:  I X]"",$G(DA) K:'$$POA701^DGPTFUT1(X,DA,71,15) X
  • LAST EDITED:  SEP 10, 2021
  • HELP-PROMPT:  Apply the Present on Admission (POA) indicator for Secondary Diagnosis 24.
  • DESCRIPTION:  This is the Present on Admission (POA) indicator for Secondary Diagnosis 24. One of the following values should be assigned in accordance with the official coding guidelines:
    Y = present on the time of inpatient admission;
    N = not present on the time of inpatient admission;
    U = documentation is insufficient to determine if condition is
    present on admission;
    W = provider is unable to clinically determine whether condition
    was present on admission or not
    1 = exempt
    "" = null, no POA entered, user pressed
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
    TRIGGERED by the SECONDARY DIAGNOSIS 24 field of the PTF File
99 TERMINAL DIGIT COMPUTED

  • MUMPS CODE:  X ^DD(45,99,9.2) S X=Y(45,99,101) S D0=I(0,0)
    9.2 = S I(0,0)=$S($D(D0):D0,1:""),Y(45,99,1)=$S($D(^DGPT(D0,0)):^(0),1:""),D0=$P(Y(45,99,1),U,1) S:'$D(^DPT(+D0,0)) D0=-1 X $P(^DD(2,.0901,0),U,5,99) S Y(45,99,101)=X
  • ALGORITHM:  PATIENT:TERMINAL DIGIT
  • LAST EDITED:  JUL 18, 1985
  • DESCRIPTION:  
    Computed field to determine the last four digits of the SSN
100 CODING CLERK 1;0 POINTER Multiple #45.03 45.03

  • DESCRIPTION:  
    Multiple contains information on the coding clerk who worked on the PTF record for this episode of care.
    WRITE AUTHORITY: ^
101.07 INCOME 101;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 03, 1991
  • HELP-PROMPT:  Type a Number between 0 and 999999, 0 Decimal Digits
  • DESCRIPTION:  
    This field contains the patient's income as reported for the MEANS TEST if applicable or the income is calculated from fields in the PATIENT file (#2).
200 CENSUS YEAR CEN;0 DATE Multiple #45.04 45.04

  • DESCRIPTION:  
    Multiple containing information on the census year
300.01 KIDNEY SOURCE 300;1 SET
  • '1' FOR Live Donor;
  • '2' FOR Cadaver;

  • INPUT TRANSFORM:  S DGFLAG=1 D 401^DGPTSC01 K:DGER X K DGFLAG,DGER
  • LAST EDITED:  MAY 15, 1991
  • DESCRIPTION:  
    This field will indicate where the transplanted organ was received from.
  • TECHNICAL DESCR:  The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen. 2) Scan the DGPTIT array for codes that require additional
    information. The PTF EXPANDED CODE FILE contains all ICD's that require special processing. If a match is made an entry is made in the DGBPC array. 3) If the DGBPC array exist then additional questions are required to
    complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
300.02 SUICIDE/SELF INFLICT INDICATOR 300;2 SET
  • '1' FOR Attempted Suicide;
  • '2' FOR Accomplished Suicide;
  • '3' FOR Self Inflicted Injury;

  • INPUT TRANSFORM:  S DGFLAG=2 D 701^DGPTSC01 K:DGER X K DGER,DGFLAG
  • LAST EDITED:  MAR 05, 1993
  • DESCRIPTION:  
    This field will indicated if a suicide was attempted or accomplished.
  • TECHNICAL DESCR:  The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen. 2) Scan the DGPTIT array for codes that require additional
    information. The PTF EXPANDED CODE FILE contains all ICD's that require special processing. If a match is made an entry is made in the DGBPC array. 3) If the DGBPC array exist then additional questions are required to
    complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
300.03 LEGIONNAIRE'S DISEASE 300;3 SET
  • '1' FOR Yes;
  • '2' FOR No;

  • INPUT TRANSFORM:  S DGFLAG=3 D 701^DGPTSC01 K:DGER X K DGER,DGFLAG
  • LAST EDITED:  AUG 16, 1991
  • DESCRIPTION:  
    This field will indicated the patient was treated for Legionnaire's Disease.
  • TECHNICAL DESCR:  The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen. 2) Scan the DGPTIT array for codes that require additional
    information. The PTF EXPANDED CODE FILE contains all ICD's that require special processing. If a match is made an entry is made in the DGBPC array. 3) If the DGBPC array exist then additional questions are required to
    complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
300.04 SUBSTANCE ABUSE 300;4 POINTER TO PTF ABUSED SUBSTANCE FILE (#45.61) PTF ABUSED SUBSTANCE(#45.61)

  • INPUT TRANSFORM:  S DGFLAG=4 D 701^DGPTSC01 K:DGER X K DGFLAG,DGER
  • LAST EDITED:  MAY 15, 1991
  • DESCRIPTION:  
    Select type of substance abused by the patient.
  • TECHNICAL DESCR:  The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen. 2) Scan the DGPTIT array for codes that require additional
    information. The PTF EXPANDED CODE FILE contains all ICD's that require special processing. If a match is made an entry is made in the DGBPC array. 3) If the DGBPC array exist then additional questions are required to
    complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
300.05 PSYCHIATRY CLASS. SEVERITY 300;5 SET
  • '0' FOR INADEQUATE INFORMATION OR NO CHANGE IN CONDITION;
  • '1' FOR NONE;
  • '2' FOR MILD;
  • '3' FOR MODERATE;
  • '4' FOR SEVERE;
  • '5' FOR EXTREME;
  • '6' FOR CATASTROPHIC;

  • INPUT TRANSFORM:  S DGFLAG=5 D 701^DGPTSC01 K:DGER X K DGFLAG,DGER
  • LAST EDITED:  MAY 15, 1991
  • DESCRIPTION:  
    Enter a one-digit rating from 0 (inadequate information/unchanged) through 6 (catastrophic). This field contains a rating indicating maximal stress.
  • TECHNICAL DESCR:  The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen. 2) Scan the DGPTIT array for codes that require additional
    information. The PTF EXPANDED CODE FILE contains all ICD's that require special processing. If a match is made an entry is made in the DGBPC array. 3) If the DGBPC array exist then additional questions are required to
    complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
300.06 CURRENT FUNCTIONAL ASSESSMENT 300;6 NUMBER

  • INPUT TRANSFORM:  S DGFLAG=6 D 701^DGPTSC01 S:DGER X="" K DGER,DGFLAG K:+X'=X!(X>90)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 26, 1997
  • HELP-PROMPT:  Type a Number between 1 and 90, 0 Decimal Digits
  • DESCRIPTION:  CODE TERMINOLOGY
    90 TO 81 ABSENT OR MINIMAL SYMPTOMS
    80 TO 71 IF SYMPTOMS ARE PRESENT, THEY ARE TRANSIENT AND
    EXPECTABLE REACTIONS TO PSYCHOSOCIAL STRESSORS
    70 TO 61 SOME MILD SYMPTOMS OR SOME DIFFICULTY IN
    SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING
    60 TO 51 MODERATE SYMPTOMS OR MODERATE DIFFICULTY IN
    SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING
    50 TO 41 SERIOUS SYMPTOMS OR SERIOUS IMPAIRMENT IN
    SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING
    40 TO 31 SOME IMPAIRMENT IN REALITY TESTING OR
    COMMUNICATION OR MAJOR IMPAIRMENT IN SEVERAL
    AREAS, SUCH AS SCHOOL, FAMILY RELATIONS,
    JUDGEMENT, THINKING OR MOOD
    30 TO 21 SOME DANGER OR HURTING SELF OR OTHER OR
    OCCASIONALLY FAILS TO MAINTAIN PERSONAL HYGIENE
    OR GROSS IMPAIRMENT IN COMMUNICATION OR
    JUDGEMENT OR INABILITY TO FUNCTION IN ALMOST
    ALL AREAS
    20 TO 11 SOME DANGER OF HURTING SELF OR OTHERS OR
    OCCASIONALLY FAILS TO MAINTAIN MINIMAL PERSONAL
    HYGIENE OR GROSS IMPAIRMENT IN COMMUNICATION
    10 TO 1 PERSISTENT DANGER OF SEVERELY HURTING SELF OR
    OTHERS OR PERSISTENT INABILITY TO MAINTAIN
    MINIMAL PERSONAL HYGIENE OR SERIOUS SUICIDAL
    ACT WITH CLEAR EXPECTATIONS OF DEATH
  • TECHNICAL DESCR:  The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen. 2) Scan the DGPTIT array for codes that require additional
    information. The PTF EXPANDED CODE FILE contains all ICD's that require special processing. If a match is made an entry is made in the DGBPC array. 3) If the DGBPC array exist then additional questions are required to
    complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
300.07 HIGH LEVEL PSYCH CLASS 300;7 NUMBER

  • INPUT TRANSFORM:  S DGFLAG=7 D 701^DGPTSC01 S:DGER X="" K DGER,DGFLAG K:+X'=X!(X>90)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 26, 1997
  • HELP-PROMPT:  Type a Number between 1 and 90, 0 Decimal Digits
  • DESCRIPTION:  CODE TERMINOLOGY
    90 TO 81 ABSENT OR MINIMAL SYMPTOMS
    80 TO 71 IF SYMPTOMS ARE PRESENT, THEY ARE TRANSIENT AND
    EXPECTABLE REACTIONS TO PSYCHOSOCIAL STRESSORS
    70 TO 61 SOME MILD SYMPTOMS OR SOME DIFFICULTY IN
    SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING
    60 TO 51 MODERATE SYMPTOMS OR MODERATE DIFFICULTY IN
    SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING
    50 TO 41 SERIOUS SYMPTOMS OR SERIOUS IMPAIRMENT IN
    SOCIAL, OCCUPATIONAL OR SCHOOL FUNCTIONING
    40 TO 31 SOME IMPAIRMENT IN REALITY TESTING OR
    COMMUNICATION OR MAJOR IMPAIRMENT IN SEVERAL
    AREAS, SUCH AS SCHOOL, FAMILY RELATIONS,
    JUDGEMENT, THINKING OR MOOD
    30 TO 21 SOME DANGER OF HURTING SELF OR OTHERS OR
    OCCASIONALLY FAILS TO MAINTAIN PERSONAL HYGIENE
    OR GROSS IMPAIRMENT IN COMMUNICATION OR
    JUDGEMENT OR INABILITY TO FUNCTION IN ALMOST
    ALL AREAS
    20 TO 11 SOME DANGER OF HURTING SELF OR OTHERS OR
    OCCASIONALLY FAILS TO MAINTAIN MINIMAL PERSONAL
    HYGIENE OR GROSS IMPAIRMENT IN COMMUNICATION
    10 TO 1 PERSISTENT DANGER OF SEVERELY HURTING SELF OR
    OTHERS OR PERSISTENT INABILITY TO MAINTAIN
    MINIMAL PERSONAL HYGIENE OR SERIOUS SUICIDAL
    ACT WITH CLEAR EXPECTATIONS OF DEATH
  • TECHNICAL DESCR:  The process for loading this field consist of the following steps: 1) Load the DGPTIT array with the ICD codes from the PTF <401>, <501> or the <701> screen. 2) Scan the DGPTIT array for codes that require additional
    information. The PTF EXPANDED CODE FILE contains all ICD's that require special processing. If a match is made an entry is made in the DGBPC array. 3) If the DGBPC array exist then additional questions are required to
    complete the data entry for a particular ICD. This flag is then used to prompt the user for any additional information.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
535 535 535;0 Multiple #45.0535 45.0535

  • DESCRIPTION:  This multiple contains all the ward specialty movements of a patient that occur during the admission.
    If a patient changed wards but the specialty of the two wards are the same then no entry in this multiple is created.
  • IDENTIFIED BY:  MOVEMENT DATE(#10), TRANSMIT FLAG(#17)

ICR, Total: 4

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #418
  • Integrated Billing
  • Lab Service
  • Mental Health
  • Order Entry Results Reporting
  • Accounts Receivable
  • Oncology
    		•  PATIENT (.01).
    Access: Pointed to

    ADMISSION DATE (2).
    Access: Direct Global Read & w/Fileman

    FEE BASIS (4).
    Access: Direct Global Read & w/Fileman

    STATUS (6).
    Access: Direct Global Read & w/Fileman

    INITIAL DATE OF SERVICE (14).
    Access: Direct Global Read & w/Fileman

    DISCHARGE DATE (70).
    Access: Direct Global Read & w/Fileman

    DISCHARGE SPECIALTY (71).
    Access: Direct Global Read & w/Fileman

    TYPE OF DISPOSITION (72).
    Access: Direct Global Read & w/Fileman

    PRINCIPAL DX (79).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 1 (79.16).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 2 (79.17).
    Access: Direct Global Read & w/Fileman

    PROVIDER (79.1).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 3 (79.18).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 4 (79.19).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 5 (79.201).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 6 (79.21).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 7 (79.22).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 8 (79.23).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 9 (79.24).
    Access: Direct Global Read & w/Fileman

    TREATED FOR SC CONDITION (79.25).
    Access: Direct Global Read & w/Fileman

    LOSING SPECIALTY (2).
    Access: Direct Global Read & w/Fileman

    LEAVE DAYS (3).
    Access: Direct Global Read & w/Fileman

    PASS DAYS (4).
    Access: Direct Global Read & w/Fileman

    ICD 1 (5).
    Access: Direct Global Read & w/Fileman

    ICD 2 (6).
    Access: Direct Global Read & w/Fileman

    ICD 3 (7).
    Access: Direct Global Read & w/Fileman

    ICD 4 (8).
    Access: Direct Global Read & w/Fileman

    ICD 5 (9).
    Access: Direct Global Read & w/Fileman

    MOVEMENT DATE (10).
    Access: Direct Global Read & w/Fileman

    TREATED FOR SC CONDITION (18).
    Access: Direct Global Read & w/Fileman

    ICD 6 (11).
    Access: Direct Global Read & w/Fileman

    ICD 7 (12).
    Access: Direct Global Read & w/Fileman

    ICD 8 (13).
    Access: Direct Global Read & w/Fileman

    ICD 9 (14).
    Access: Direct Global Read & w/Fileman

    ICD 10 (15).
    Access: Direct Global Read & w/Fileman

    PROCEDURE DATE (.01).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 1 (4).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 2 (5).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 3 (6).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 4 (7).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 5 (8).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 6 (9).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 7 (10).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 8 (11).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 9 (12).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 10 (13).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 11 (14).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 12 (15).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 13 (16).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 14 (17).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 15 (18).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 16 (19).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 17 (20).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 18 (21).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 19 (22).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 20 (23).
    Access: Direct Global Read & w/Fileman

    SURGERY/PROCEDURE DATE (.01).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 1 (8).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 2 (9).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 3 (10).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 4 (11).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 5 (12).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 6 (13).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 7 (14).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 8 (15).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 9 (16).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 10 (17).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 11 (18).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 12 (19).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 13 (20).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 14 (21).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 15 (22).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 16 (23).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 17 (24).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 18 (25).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 19 (26).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 20 (27).
    Access: Direct Global Read & w/Fileman

    CURRENT FUNCTIONAL ASSESSMENT (300.06).
    Access: Direct Global Read & w/Fileman

    TRANSFER DRG (20).
    Access: Direct Global Read & w/Fileman

    PROVIDER (24).
    Access: Direct Global Read & w/Fileman

    LOSING WARD (6).
    Access: Direct Global Read & w/Fileman

    MOVEMENT DATE (10).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 10 (79.241).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 11 (79.242).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 12 (79.243).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 13 (79.244).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 14 (79.245).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 15 (79.246).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 16 (79.247).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 17 (79.248).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 18 (79.249).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 19 (79.2491).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 20 (79.24911).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 21 (79.24912).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 22 (79.24913).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 24 (79.24914).
    Access: Direct Global Read & w/Fileman

    SECONDARY DX 24 (79.24915).
    Access: Direct Global Read & w/Fileman

    POA PRINCIPAL DX (82.01).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 1 (82.02).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 2 (82.03).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 3 (82.04).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 4 (82.05).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 5 (82.06).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 6 (82.07).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 7 (82.08).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 8 (82.09).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 9 (82.1).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 10 (82.11).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 11 (82.12).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 12 (82.13).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 13 (82.14).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 14 (82.15).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 15 (82.16).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 16 (82.17).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 17 (82.18).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 18 (82.19).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 19 (82.2).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 20 (82.21).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 21 (82.22).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 22 (82.23).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 23 (82.24).
    Access: Direct Global Read & w/Fileman

    POA SECONDARY DX 24 (82.25).
    Access: Direct Global Read & w/Fileman

    ICD 11 (81.01).
    Access: Direct Global Read & w/Fileman

    ICD 12 (81.02).
    Access: Direct Global Read & w/Fileman

    ICD 13 (81.03).
    Access: Direct Global Read & w/Fileman

    ICD 14 (81.04).
    Access: Direct Global Read & w/Fileman

    ICD 15 (81.05).
    Access: Direct Global Read & w/Fileman

    ICD 16 (81.06).
    Access: Direct Global Read & w/Fileman

    ICD 17 (81.07).
    Access: Direct Global Read & w/Fileman

    ICD 18 (81.08).
    Access: Direct Global Read & w/Fileman

    ICD 19 (81.09).
    Access: Direct Global Read & w/Fileman

    ICD 20 (81.1).
    Access: Direct Global Read & w/Fileman

    ICD 22 (81.12).
    Access: Direct Global Read & w/Fileman

    ICD 21 (81.11).
    Access: Direct Global Read & w/Fileman

    ICD 23 (81.13).
    Access: Direct Global Read & w/Fileman

    ICD 24 (81.14).
    Access: Direct Global Read & w/Fileman

    ICD 25 (81.15).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 1 (82.01).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 2 (82.02).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 3 (82.03).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 4 (82.04).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 5 (82.05).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 6 (82.06).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 7 (82.07).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 8 (82.08).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 9 (82.09).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 10 (82.1).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 11 (82.11).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 12 (82.12).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 13 (82.13).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 14 (82.14).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 15 (82.15).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 16 (82.16).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 17 (82.17).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 18 (82.18).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 19 (82.19).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 20 (82.2).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 21 (82.21).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 22 (82.22).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 23 (82.23).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 24 (82.24).
    Access: Direct Global Read & w/Fileman

    POA FOR ICD 25 (82.25).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 21 (24).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 22 (25).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 23 (26).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 24 (27).
    Access: Direct Global Read & w/Fileman

    PROCEDURE CODE 25 (28).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 21 (28).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 22 (29).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 23 (30).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 24 (31).
    Access: Direct Global Read & w/Fileman

    OPERATION CODE 25 (32).
    Access: Direct Global Read & w/Fileman

    DRG (9).
    Access: Read w/Fileman

    		 The "B" cross-reference is used to find a specific PTFrecord for a patient.The "AAD" cross reference is used to find all admissionsfor a patient within a specified date range.The "AFEE" cross reference is used to find all Feeadmissions for a patient within a specified date range.The "AM" cross reference is used to find all 501movements based on a specified date range.Admission date cross-reference.For discharge date ranges
    ICR #993
  • Fee Basis
    		•  FEE BASIS (4).
    Access: Direct Global Read & w/Fileman

    		 check for IEN in file 45 by$O(^DGPT("AFEE",DFN,ADMISSION DATE,0))
    ICR #3545
  • Clinical Case Registries
    		•  PRINCIPLE DIAGNOSIS (80).
    Access: Read w/Fileman

    (DGPT('AAD',).
    Access: Direct Global Read & w/Fileman
    ICR #4945
  • Spinal Cord Dysfunction
    		•  (n/a).
    Access: Direct Global Read & w/Fileman

    PATIENT (.01).
    Access: Direct Global Read & w/Fileman

    FACILITY (3).
    Access: Direct Global Read & w/Fileman

    FEE BASIS (4).
    Access: Direct Global Read & w/Fileman

    PLACE OF DISPOSITION (75).
    Access: Direct Global Read & w/Fileman

    RECEIVING FACILITY (76.1).
    Access: Direct Global Read & w/Fileman

    SOURCE OF ADMISSION (20).
    Access: Direct Global Read & w/Fileman

    PROCEDURE 1 (.01).
    Access: Direct Global Read & w/Fileman

    PROCEDURE 2 (.02).
    Access: Direct Global Read & w/Fileman

    PROCEDURE 3 (.03).
    Access: Direct Global Read & w/Fileman

    PROCEDURE 4 (.04).
    Access: Direct Global Read & w/Fileman

    PROCEDURE 5 (.05).
    Access: Direct Global Read & w/Fileman

    		 AF Cross-reference

    External References

    Name Field # of Occurrence
    ^%DT 2+1, 8+1, 14+1, 70+1
    UP^DGHELP 5+1, 21.2+1, 76.2+1
    GETAPI^DGICDGT 45.01+1, 45.02+1, 45.03+1, 45.04+1, 45.05+1, 79+1, 79.16+1, 79.17+1, 79.18+1, 79.19+1
    , 79.201+1, 79.21+1, 79.22+1, 79.23+1, 79.24+1, 79.241+1, 79.242+1, 79.243+1, 79.244+1, 79.245+1
    , 79.246+1, 79.247+1, 79.248+1, 79.249+1, 79.2491+1, 79.24911+1, 79.24912+1, 79.24913+1, 79.24914+1, 79.24915+1
    CAT1^DGINP 23+1
    PTF^DGPMUTL 2.2+1
    $$ACTIVE^DGPTDD 5+1
    ACTLST^DGPTDD 5(HELP )
    NOTIFY^DGPTDD IXAICNSL+1, IXAICNKL+1
    NOTIFYP^DGPTDD IXAICPSL+1, IXAICPKL+1
    KPTFDD^DGPTDDCR IXACRDDXLSKL+1, IXACRDPDXKL+1, IXACRDSD1KL+1, IXACRDSD10KL+1, IXACRDSD11KL+1, IXACRDSD12KL+1, IXACRDSD13KL+1, IXACRDSD14KL+1, IXACRDSD15KL+1, IXACRDSD16KL+1
    , IXACRDSD17KL+1, IXACRDSD18KL+1, IXACRDSD19KL+1, IXACRDSD2KL+1, IXACRDSD20KL+1, IXACRDSD21KL+1, IXACRDSD22KL+1, IXACRDSD23KL+1, IXACRDSD24KL+1, IXACRDSD3KL+1
    , IXACRDSD4KL+1, IXACRDSD5KL+1, IXACRDSD6KL+1, IXACRDSD7KL+1, IXACRDSD8KL+1, IXACRDSD9KL+1
    KPTFMD^DGPTDDCR IXACRDM1KL+1, IXACRDM10KL+1, IXACRDM11KL+1, IXACRDM12KL+1, IXACRDM13KL+1, IXACRDM14KL+1, IXACRDM15KL+1, IXACRDM16KL+1, IXACRDM17KL+1, IXACRDM18KL+1
    , IXACRDM19KL+1, IXACRDM2KL+1, IXACRDM20KL+1, IXACRDM21KL+1, IXACRDM22KL+1, IXACRDM23KL+1, IXACRDM24KL+1, IXACRDM25KL+1, IXACRDM3KL+1, IXACRDM4KL+1
    , IXACRDM5KL+1, IXACRDM6KL+1, IXACRDM7KL+1, IXACRDM8KL+1, IXACRDM9KL+1
    KPTFP^DGPTDDCR IXACRPP1KL+1, IXACRPP10KL+1, IXACRPP11KL+1, IXACRPP12KL+1, IXACRPP13KL+1, IXACRPP14KL+1, IXACRPP15KL+1, IXACRPP16KL+1, IXACRPP17KL+1, IXACRPP18KL+1
    , IXACRPP19KL+1, IXACRPP2KL+1, IXACRPP20KL+1, IXACRPP21KL+1, IXACRPP22KL+1, IXACRPP23KL+1, IXACRPP24KL+1, IXACRPP25KL+1, IXACRPP3KL+1, IXACRPP4KL+1
    , IXACRPP5KL+1, IXACRPP6KL+1, IXACRPP7KL+1, IXACRPP8KL+1, IXACRPP9KL+1, IXACRPS1KL+1, IXACRPS10KL+1, IXACRPS11KL+1, IXACRPS12KL+1, IXACRPS13KL+1
    , IXACRPS14KL+1, IXACRPS15KL+1, IXACRPS16KL+1, IXACRPS17KL+1, IXACRPS18KL+1, IXACRPS19KL+1, IXACRPS2KL+1, IXACRPS20KL+1, IXACRPS21KL+1, IXACRPS22KL+1
    , IXACRPS23KL+1, IXACRPS24KL+1, IXACRPS25KL+1, IXACRPS3KL+1, IXACRPS4KL+1, IXACRPS5KL+1, IXACRPS6KL+1, IXACRPS7KL+1, IXACRPS8KL+1, IXACRPS9KL+1
    SPTFDD^DGPTDDCR IXACRDDXLSSL+1, IXACRDPDXSL+1, IXACRDSD1SL+1, IXACRDSD10SL+1, IXACRDSD11SL+1, IXACRDSD12SL+1, IXACRDSD13SL+1, IXACRDSD14SL+1, IXACRDSD15SL+1, IXACRDSD16SL+1
    , IXACRDSD17SL+1, IXACRDSD18SL+1, IXACRDSD19SL+1, IXACRDSD2SL+1, IXACRDSD20SL+1, IXACRDSD21SL+1, IXACRDSD22SL+1, IXACRDSD23SL+1, IXACRDSD24SL+1, IXACRDSD3SL+1
    , IXACRDSD4SL+1, IXACRDSD5SL+1, IXACRDSD6SL+1, IXACRDSD7SL+1, IXACRDSD8SL+1, IXACRDSD9SL+1
    SPTFMD^DGPTDDCR IXACRDM1SL+1, IXACRDM10SL+1, IXACRDM11SL+1, IXACRDM12SL+1, IXACRDM13SL+1, IXACRDM14SL+1, IXACRDM15SL+1, IXACRDM16SL+1, IXACRDM17SL+1, IXACRDM18SL+1
    , IXACRDM19SL+1, IXACRDM2SL+1, IXACRDM20SL+1, IXACRDM21SL+1, IXACRDM22SL+1, IXACRDM23SL+1, IXACRDM24SL+1, IXACRDM25SL+1, IXACRDM3SL+1, IXACRDM4SL+1
    , IXACRDM5SL+1, IXACRDM6SL+1, IXACRDM7SL+1, IXACRDM8SL+1, IXACRDM9SL+1
    SPTFP^DGPTDDCR IXACRPP1SL+1, IXACRPP10SL+1, IXACRPP11SL+1, IXACRPP12SL+1, IXACRPP13SL+1, IXACRPP14SL+1, IXACRPP15SL+1, IXACRPP16SL+1, IXACRPP17SL+1, IXACRPP18SL+1
    , IXACRPP19SL+1, IXACRPP2SL+1, IXACRPP20SL+1, IXACRPP21SL+1, IXACRPP22SL+1, IXACRPP23SL+1, IXACRPP24SL+1, IXACRPP25SL+1, IXACRPP3SL+1, IXACRPP4SL+1
    , IXACRPP5SL+1, IXACRPP6SL+1, IXACRPP7SL+1, IXACRPP8SL+1, IXACRPP9SL+1, IXACRPS1SL+1, IXACRPS10SL+1, IXACRPS11SL+1, IXACRPS12SL+1, IXACRPS13SL+1
    , IXACRPS14SL+1, IXACRPS15SL+1, IXACRPS16SL+1, IXACRPS17SL+1, IXACRPS18SL+1, IXACRPS19SL+1, IXACRPS2SL+1, IXACRPS20SL+1, IXACRPS21SL+1, IXACRPS22SL+1
    , IXACRPS23SL+1, IXACRPS24SL+1, IXACRPS25SL+1, IXACRPS3SL+1, IXACRPS4SL+1, IXACRPS5SL+1, IXACRPS6SL+1, IXACRPS7SL+1, IXACRPS8SL+1, IXACRPS9SL+1
    ADM^DGPTF 2+1
    WR^DGPTF IDWR+1
    ICDEN^DGPTF5 80+1
    EN1^DGPTFD 9+1
    701^DGPTSC01 300.04+1, 300.06+1, 300.07+1
    DTIDS^DGPTUTL1 14+1
    ADGRU^DGRUDD01 79(XREF 992S), 79(XREF 992K), 79.16(XREF 992S), 79.16(XREF 992K), 79.17(XREF 992S), 79.17(XREF 992K), 79.18(XREF 992S), 79.18(XREF 992K), 79.19(XREF 992S), 79.19(XREF 992K)
    , 79.201(XREF 992S), 79.201(XREF 992K), 79.21(XREF 992S), 79.21(XREF 992K), 79.22(XREF 992S), 79.22(XREF 992K), 79.23(XREF 992S), 79.23(XREF 992K), 79.24(XREF 992S), 79.24(XREF 992K)
    , 79.241(XREF 1S), 79.241(XREF 1K), 79.242(XREF 1S), 79.242(XREF 1K), 79.243(XREF 1S), 79.243(XREF 1K), 79.244(XREF 1S), 79.244(XREF 1K), 79.245(XREF 1S), 79.245(XREF 1K)
    , 79.246(XREF 1S), 79.246(XREF 1K), 79.247(XREF 1S), 79.247(XREF 1K), 79.248(XREF 1S), 79.248(XREF 1K), 79.249(XREF 1S), 79.249(XREF 1K), 79.2491(XREF 1S), 79.2491(XREF 1K)
    , 79.24911(XREF 1S), 79.24911(XREF 1K), 79.24912(XREF 1S), 79.24912(XREF 1K), 79.24913(XREF 1S), 79.24913(XREF 1K), 79.24914(XREF 1S), 79.24914(XREF 1K), 79.24915(XREF 1S), 79.24915(XREF 1K)
    , 80(XREF 992S), 80(XREF 992K)
    ^DIC 3+1, 3(HELP ), 12+1, 20+1, 21.1+1, 21.1(HELP ), 71+1, 76.1+1, 76.1(HELP ), 79.1+1
    , 80+1
    IX^DIC 5+1, 21.2+1, 21.2(HELP ), 76.2+1, 76.2(HELP )
    ^DICR 5(XREF 1K), 13(XREF 1S), 13(XREF 1K), 79(XREF 1S), 79(XREF 1K), 79.16(XREF 1S), 79.16(XREF 1K), 79.17(XREF 1S), 79.17(XREF 1K), 79.18(XREF 1S)
    , 79.18(XREF 1K), 79.19(XREF 1S), 79.19(XREF 1K), 79.201(XREF 1S), 79.201(XREF 1K), 79.21(XREF 1S), 79.21(XREF 1K), 79.22(XREF 1S), 79.22(XREF 1K), 79.23(XREF 1S)
    , 79.23(XREF 1K), 79.24(XREF 1S), 79.24(XREF 1K), 79.241(XREF 2S), 79.241(XREF 2K), 79.242(XREF 2S), 79.242(XREF 2K), 79.243(XREF 2S), 79.243(XREF 2K), 79.244(XREF 2S)
    , 79.244(XREF 2K), 79.245(XREF 2S), 79.245(XREF 2K), 79.246(XREF 2S), 79.246(XREF 2K), 79.247(XREF 2S), 79.247(XREF 2K), 79.248(XREF 2S), 79.248(XREF 2K), 79.249(XREF 2S)
    , 79.249(XREF 2K), 79.2491(XREF 2S), 79.2491(XREF 2K), 79.24911(XREF 2S), 79.24911(XREF 2K), 79.24912(XREF 2S), 79.24912(XREF 2K), 79.24913(XREF 2S), 79.24913(XREF 2K), 79.24914(XREF 2S)
    , 79.24914(XREF 2K), 79.24915(XREF 2S), 79.24915(XREF 2K)
    FILE^DIE 70(XREF 2S), 70(XREF 2K), 71(XREF 1S), 71(XREF 1K)
    $$IENS^DILF 70(XREF 2S), 70(XREF 2K), 71(XREF 1S), 71(XREF 1K)

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^%ZOSF("TEST" 79(XREF 992S), 79(XREF 992K), 79.16(XREF 992S), 79.16(XREF 992K), 79.17(XREF 992S), 79.17(XREF 992K), 79.18(XREF 992S), 79.18(XREF 992K), 79.19(XREF 992S), 79.19(XREF 992K)
    , 79.201(XREF 992S), 79.201(XREF 992K), 79.21(XREF 992S), 79.21(XREF 992K), 79.22(XREF 992S), 79.22(XREF 992K), 79.23(XREF 992S), 79.23(XREF 992K), 79.24(XREF 992S), 79.24(XREF 992K)
    , 79.241(XREF 1S), 79.241(XREF 1K), 79.242(XREF 1S), 79.242(XREF 1K), 79.243(XREF 1S), 79.243(XREF 1K), 79.244(XREF 1S), 79.244(XREF 1K), 79.245(XREF 1S), 79.245(XREF 1K)
    , 79.246(XREF 1S), 79.246(XREF 1K), 79.247(XREF 1S), 79.247(XREF 1K), 79.248(XREF 1S), 79.248(XREF 1K), 79.249(XREF 1S), 79.249(XREF 1K), 79.2491(XREF 1S), 79.2491(XREF 1K)
    , 79.24911(XREF 1S), 79.24911(XREF 1K), 79.24912(XREF 1S), 79.24912(XREF 1K), 79.24913(XREF 1S), 79.24913(XREF 1K), 79.24914(XREF 1S), 79.24914(XREF 1K), 79.24915(XREF 1S), 79.24915(XREF 1K)
    , 80(XREF 992S), 80(XREF 992K)
    ^DD( 5(XREF 1K)
    ^DD(2 99OF9.2+1
    ^DD(45 2.2OF9.2+1, 7.2+1, 7.3+1, 79.1OF9.2+1, 79.2+1, 99+1
    ^DGP(45.83 - [#45.83] 7.4+1
    ^DGP(45.84 - [#45.84] .01DEL1+1, 7.2OF9.2+1, 7.3OF9.2+1, 9+1
    ^DGPM - [#405] 79.1OF9.3+1
    ^DGPM("APTF" 2.1+1, 79.1OF9.2+1
    ^DGPM("CA" 79.1OF9.3+1
    ^DGPT - [#45] 2(XREF 1S), 2(XREF 1K), 2(XREF 3S), 2(XREF 4S), 2(XREF 4K), 4(XREF 1S), 4(XREF 1K), 5(XREF 1K), 7.2OF9.2+1, 7.3OF9.2+1
    , 9+1, 13(XREF 1S), 13(XREF 1K), 23(XREF 1S), 23(XREF 1K), 45.01(XREF 1S), 45.01(XREF 1K), 45.02(XREF 1S), 45.02(XREF 1K), 45.03(XREF 1S)
    , 45.03(XREF 1K), 45.04(XREF 1S), 45.04(XREF 1K), 45.05(XREF 1S), 45.05(XREF 1K), 70+1, 70(XREF 3S), 70(XREF 3K), 71(XREF 1S), 71(XREF 1K)
    , 79(XREF 1S), 79(XREF 1K), 79(XREF 992S), 79(XREF 992K), 79.1OF9.2+1, 79.16(XREF 1S), 79.16(XREF 1K), 79.16(XREF 992S), 79.16(XREF 992K), 79.17(XREF 1S)
    , 79.17(XREF 1K), 79.17(XREF 992S), 79.17(XREF 992K), 79.18(XREF 1S), 79.18(XREF 1K), 79.18(XREF 992S), 79.18(XREF 992K), 79.19(XREF 1S), 79.19(XREF 1K), 79.19(XREF 992S)
    , 79.19(XREF 992K), 79.2OF9.2+1, 79.201(XREF 1S), 79.201(XREF 1K), 79.201(XREF 992S), 79.201(XREF 992K), 79.21(XREF 1S), 79.21(XREF 1K), 79.21(XREF 992S), 79.21(XREF 992K)
    , 79.22(XREF 1S), 79.22(XREF 1K), 79.22(XREF 992S), 79.22(XREF 992K), 79.23(XREF 1S), 79.23(XREF 1K), 79.23(XREF 992S), 79.23(XREF 992K), 79.24(XREF 1S), 79.24(XREF 1K)
    , 79.24(XREF 992S), 79.24(XREF 992K), 79.241(XREF 1S), 79.241(XREF 1K), 79.241(XREF 2S), 79.241(XREF 2K), 79.242(XREF 1S), 79.242(XREF 1K), 79.242(XREF 2S), 79.242(XREF 2K)
    , 79.243(XREF 1S), 79.243(XREF 1K), 79.243(XREF 2S), 79.243(XREF 2K), 79.244(XREF 1S), 79.244(XREF 1K), 79.244(XREF 2S), 79.244(XREF 2K), 79.245(XREF 1S), 79.245(XREF 1K)
    , 79.245(XREF 2S), 79.245(XREF 2K), 79.246(XREF 1S), 79.246(XREF 1K), 79.246(XREF 2S), 79.246(XREF 2K), 79.247(XREF 1S), 79.247(XREF 1K), 79.247(XREF 2S), 79.247(XREF 2K)
    , 79.248(XREF 1S), 79.248(XREF 1K), 79.248(XREF 2S), 79.248(XREF 2K), 79.249(XREF 1S), 79.249(XREF 1K), 79.249(XREF 2S), 79.249(XREF 2K), 79.2491(XREF 1S), 79.2491(XREF 1K)
    , 79.2491(XREF 2S), 79.2491(XREF 2K), 79.24911(XREF 1S), 79.24911(XREF 1K), 79.24911(XREF 2S), 79.24911(XREF 2K), 79.24912(XREF 1S), 79.24912(XREF 1K), 79.24912(XREF 2S), 79.24912(XREF 2K)
    , 79.24913(XREF 1S), 79.24913(XREF 1K), 79.24913(XREF 2S), 79.24913(XREF 2K), 79.24914(XREF 1S), 79.24914(XREF 1K), 79.24914(XREF 2S), 79.24914(XREF 2K), 79.24915(XREF 1S), 79.24915(XREF 1K)
    , 79.24915(XREF 2S), 79.24915(XREF 2K), 99OF9.2+1
    ^DGPT("AAD" 2(XREF 1S), 2(XREF 1K)
    ^DGPT("AADA" 2(XREF 3S), 2(XREF 3K), 70(XREF 3S), 70(XREF 3K)
    ^DGPT("AB" IXABSL+1*, IXABKL+1!
    ^DGPT("ACENSUS" 12(XREF 1S), 12(XREF 1K)
    ^DGPT("ADS" 70(XREF 1S), 70(XREF 1K)
    ^DGPT("AF" 2(XREF 2S), 2(XREF 2K)
    ^DGPT("AFEE" 2(XREF 4S), 2(XREF 4K), 4(XREF 1S), 4(XREF 1K)
    ^DGPT("AMT" 10(XREF 1S), 10(XREF 1K)
    ^DGPT("AS" 6(XREF 1S), 6(XREF 1K)
    ^DGPT("B" .01(XREF 1S), .01(XREF 1K)
    ^DIC(4 - [#4] 3+1, 21.1+1, 76.1+1
    ^DPT - [#2] 23(XREF 1S), 23(XREF 1K), 99OF9.2+1
    ^DPT("ACB" 23(XREF 1S), 23(XREF 1K)
    ^ICD - [#80.2] 9+1
    ^VA(200 - [#200] 79.2OF9.2+1

    Naked Globals

    Name Field # of Occurrence
    ^( 23(XREF 1S), 23(XREF 1K)
    ^(0 2(XREF 4S), 2(XREF 4K), 4(XREF 1S), 4(XREF 1K), 7.2OF9.2+1, 7.3OF9.2+1, 7.4+1, 9+1, 13(XREF 1S), 13(XREF 1K)
    , 79.1OF9.3+1, 80(XREF 992S), 80(XREF 992K), 99OF9.2+1
    ^(1 79.2OF9.2+1
    ^(101 5(XREF 1K)
    ^(70 2(XREF 3S), 79.2OF9.2+1
    ^(82 79(XREF 1S), 79(XREF 1K), 79.16(XREF 1S), 79.16(XREF 1K), 79.17(XREF 1S), 79.17(XREF 1K), 79.18(XREF 1S), 79.18(XREF 1K), 79.19(XREF 1S), 79.19(XREF 1K)
    , 79.201(XREF 1S), 79.201(XREF 1K), 79.21(XREF 1S), 79.21(XREF 1K), 79.22(XREF 1S), 79.22(XREF 1K), 79.23(XREF 1S), 79.23(XREF 1K), 79.24(XREF 1S), 79.24(XREF 1K)
    , 79.241(XREF 2S), 79.241(XREF 2K), 79.242(XREF 2S), 79.242(XREF 2K), 79.243(XREF 2S), 79.243(XREF 2K), 79.244(XREF 2S), 79.244(XREF 2K), 79.245(XREF 2S), 79.245(XREF 2K)
    , 79.246(XREF 2S), 79.246(XREF 2K), 79.247(XREF 2S), 79.247(XREF 2K), 79.248(XREF 2S), 79.248(XREF 2K), 79.249(XREF 2S), 79.249(XREF 2K), 79.2491(XREF 2S), 79.2491(XREF 2K)
    , 79.24911(XREF 2S), 79.24911(XREF 2K), 79.24912(XREF 2S), 79.24912(XREF 2K), 79.24913(XREF 2S), 79.24913(XREF 2K), 79.24914(XREF 2S), 79.24914(XREF 2K), 79.24915(XREF 2S), 79.24915(XREF 2K)
    ^(99 3+1, 21.1+1, 76.1+1

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    % 2+1!, 23(XREF 1S), 23(XREF 1K), 79.1OF9.2+1*, 79.1OF9.3+1
    %C 23(XREF 1S), 23(XREF 1K)
    >> %DT 2+1*, 8+1*, 14+1*, 70+1*
    >> %PTF 9+1*
    >> D 5+1*, 21.2+1*, 21.2(HELP ), 76.2+1*, 76.2(HELP )
    >> D0 2.1+1, 2.2+1, 5(XREF 1K), 7.2+1*, 7.2OF9.2+1*, 7.3+1*, 7.3OF9.2+1*, 7.4+1, 9+1, 13(XREF 1S)
    , 13(XREF 1K), 79(XREF 1S), 79(XREF 1K), 79.16(XREF 1S), 79.16(XREF 1K), 79.17(XREF 1S), 79.17(XREF 1K), 79.18(XREF 1S), 79.18(XREF 1K), 79.19(XREF 1S)
    , 79.19(XREF 1K), 79.2+1*, 79.2OF9.2+1*, 79.201(XREF 1S), 79.201(XREF 1K), 79.21(XREF 1S), 79.21(XREF 1K), 79.22(XREF 1S), 79.22(XREF 1K), 79.23(XREF 1S)
    , 79.23(XREF 1K), 79.24(XREF 1S), 79.24(XREF 1K), 79.241(XREF 2S), 79.241(XREF 2K), 79.242(XREF 2S), 79.242(XREF 2K), 79.243(XREF 2S), 79.243(XREF 2K), 79.244(XREF 2S)
    , 79.244(XREF 2K), 79.245(XREF 2S), 79.245(XREF 2K), 79.246(XREF 2S), 79.246(XREF 2K), 79.247(XREF 2S), 79.247(XREF 2K), 79.248(XREF 2S), 79.248(XREF 2K), 79.249(XREF 2S)
    , 79.249(XREF 2K), 79.2491(XREF 2S), 79.2491(XREF 2K), 79.24911(XREF 2S), 79.24911(XREF 2K), 79.24912(XREF 2S), 79.24912(XREF 2K), 79.24913(XREF 2S), 79.24913(XREF 2K), 79.24914(XREF 2S)
    , 79.24914(XREF 2K), 79.24915(XREF 2S), 79.24915(XREF 2K), 99+1*, 99OF9.2+1*
    >> DA IXABSL+1, IXABKL+1, IXACRDDXLSSL+1, IXACRDDXLSKL+1, IXACRDM1SL+1, IXACRDM1KL+1, IXACRDM10SL+1, IXACRDM10KL+1, IXACRDM11SL+1, IXACRDM11KL+1
    , IXACRDM12SL+1, IXACRDM12KL+1, IXACRDM13SL+1, IXACRDM13KL+1, IXACRDM14SL+1, IXACRDM14KL+1, IXACRDM15SL+1, IXACRDM15KL+1, IXACRDM16SL+1, IXACRDM16KL+1
    , IXACRDM17SL+1, IXACRDM17KL+1, IXACRDM18SL+1, IXACRDM18KL+1, IXACRDM19SL+1, IXACRDM19KL+1, IXACRDM2SL+1, IXACRDM2KL+1, IXACRDM20SL+1, IXACRDM20KL+1
    , IXACRDM21SL+1, IXACRDM21KL+1, IXACRDM22SL+1, IXACRDM22KL+1, IXACRDM23SL+1, IXACRDM23KL+1, IXACRDM24SL+1, IXACRDM24KL+1, IXACRDM25SL+1, IXACRDM25KL+1
    , IXACRDM3SL+1, IXACRDM3KL+1, IXACRDM4SL+1, IXACRDM4KL+1, IXACRDM5SL+1, IXACRDM5KL+1, IXACRDM6SL+1, IXACRDM6KL+1, IXACRDM7SL+1, IXACRDM7KL+1
    , IXACRDM8SL+1, IXACRDM8KL+1, IXACRDM9SL+1, IXACRDM9KL+1, IXACRDPDXSL+1, IXACRDPDXKL+1, IXACRDSD1SL+1, IXACRDSD1KL+1, IXACRDSD10SL+1, IXACRDSD10KL+1
    , IXACRDSD11SL+1, IXACRDSD11KL+1, IXACRDSD12SL+1, IXACRDSD12KL+1, IXACRDSD13SL+1, IXACRDSD13KL+1, IXACRDSD14SL+1, IXACRDSD14KL+1, IXACRDSD15SL+1, IXACRDSD15KL+1
    , IXACRDSD16SL+1, IXACRDSD16KL+1, IXACRDSD17SL+1, IXACRDSD17KL+1, IXACRDSD18SL+1, IXACRDSD18KL+1, IXACRDSD19SL+1, IXACRDSD19KL+1, IXACRDSD2SL+1, IXACRDSD2KL+1
    , IXACRDSD20SL+1, IXACRDSD20KL+1, IXACRDSD21SL+1, IXACRDSD21KL+1, IXACRDSD22SL+1, IXACRDSD22KL+1, IXACRDSD23SL+1, IXACRDSD23KL+1, IXACRDSD24SL+1, IXACRDSD24KL+1
    , IXACRDSD3SL+1, IXACRDSD3KL+1, IXACRDSD4SL+1, IXACRDSD4KL+1, IXACRDSD5SL+1, IXACRDSD5KL+1, IXACRDSD6SL+1, IXACRDSD6KL+1, IXACRDSD7SL+1, IXACRDSD7KL+1
    , IXACRDSD8SL+1, IXACRDSD8KL+1, IXACRDSD9SL+1, IXACRDSD9KL+1, IXACRPP1SL+1, IXACRPP1KL+1, IXACRPP10SL+1, IXACRPP10KL+1, IXACRPP11SL+1, IXACRPP11KL+1
    , IXACRPP12SL+1, IXACRPP12KL+1, IXACRPP13SL+1, IXACRPP13KL+1, IXACRPP14SL+1, IXACRPP14KL+1, IXACRPP15SL+1, IXACRPP15KL+1, IXACRPP16SL+1, IXACRPP16KL+1
    , IXACRPP17SL+1, IXACRPP17KL+1, IXACRPP18SL+1, IXACRPP18KL+1, IXACRPP19SL+1, IXACRPP19KL+1, IXACRPP2SL+1, IXACRPP2KL+1, IXACRPP20SL+1, IXACRPP20KL+1
    , IXACRPP21SL+1, IXACRPP21KL+1, IXACRPP22SL+1, IXACRPP22KL+1, IXACRPP23SL+1, IXACRPP23KL+1, IXACRPP24SL+1, IXACRPP24KL+1, IXACRPP25SL+1, IXACRPP25KL+1
    , IXACRPP3SL+1, IXACRPP3KL+1, IXACRPP4SL+1, IXACRPP4KL+1, IXACRPP5SL+1, IXACRPP5KL+1, IXACRPP6SL+1, IXACRPP6KL+1, IXACRPP7SL+1, IXACRPP7KL+1
    , IXACRPP8SL+1, IXACRPP8KL+1, IXACRPP9SL+1, IXACRPP9KL+1, IXACRPS1SL+1, IXACRPS1KL+1, IXACRPS10SL+1, IXACRPS10KL+1, IXACRPS11SL+1, IXACRPS11KL+1
    , IXACRPS12SL+1, IXACRPS12KL+1, IXACRPS13SL+1, IXACRPS13KL+1, IXACRPS14SL+1, IXACRPS14KL+1, IXACRPS15SL+1, IXACRPS15KL+1, IXACRPS16SL+1, IXACRPS16KL+1
    , IXACRPS17SL+1, IXACRPS17KL+1, IXACRPS18SL+1, IXACRPS18KL+1, IXACRPS19SL+1, IXACRPS19KL+1, IXACRPS2SL+1, IXACRPS2KL+1, IXACRPS20SL+1, IXACRPS20KL+1
    , IXACRPS21SL+1, IXACRPS21KL+1, IXACRPS22SL+1, IXACRPS22KL+1, IXACRPS23SL+1, IXACRPS23KL+1, IXACRPS24SL+1, IXACRPS24KL+1, IXACRPS25SL+1, IXACRPS25KL+1
    , IXACRPS3SL+1, IXACRPS3KL+1, IXACRPS4SL+1, IXACRPS4KL+1, IXACRPS5SL+1, IXACRPS5KL+1, IXACRPS6SL+1, IXACRPS6KL+1, IXACRPS7SL+1, IXACRPS7KL+1
    , IXACRPS8SL+1, IXACRPS8KL+1, IXACRPS9SL+1, IXACRPS9KL+1, IXAICNSL+1, IXAICNKL+1, IXAICPSL+1, IXAICPKL+1, .01DEL1+1, .01(XREF 1S)
    , .01(XREF 1K), 2(XREF 1S), 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 2(XREF 4S), 2(XREF 4K), 4(XREF 1S)
    , 4(XREF 1K), 5(XREF 1K), 6(XREF 1S), 6(XREF 1K), 10(XREF 1S), 10(XREF 1K), 12(XREF 1S), 12(XREF 1K), 13(XREF 1S), 13(XREF 1K)
    , 23(XREF 1S), 23(XREF 1K), 45.01+1, 45.01(XREF 1S), 45.01(XREF 1K), 45.02+1, 45.02(XREF 1S), 45.02(XREF 1K), 45.03+1, 45.03(XREF 1S)
    , 45.03(XREF 1K), 45.04+1, 45.04(XREF 1S), 45.04(XREF 1K), 45.05+1, 45.05(XREF 1S), 45.05(XREF 1K), 70+1, 70(XREF 1S), 70(XREF 1K)
    , 70(XREF 2S), 70(XREF 2K), 70(XREF 3S), 70(XREF 3K), 71(XREF 1S), 71(XREF 1K), 79+1, 79(XREF 1S), 79(XREF 1K), 79(XREF 992S)
    , 79(XREF 992K), 79.1OF9.2+1, 79.16+1, 79.16(XREF 1S), 79.16(XREF 1K), 79.16(XREF 992S), 79.16(XREF 992K), 79.17+1, 79.17(XREF 1S), 79.17(XREF 1K)
    , 79.17(XREF 992S), 79.17(XREF 992K), 79.18+1, 79.18(XREF 1S), 79.18(XREF 1K), 79.18(XREF 992S), 79.18(XREF 992K), 79.19+1, 79.19(XREF 1S), 79.19(XREF 1K)
    , 79.19(XREF 992S), 79.19(XREF 992K), 79.201+1, 79.201(XREF 1S), 79.201(XREF 1K), 79.201(XREF 992S), 79.201(XREF 992K), 79.21+1, 79.21(XREF 1S), 79.21(XREF 1K)
    , 79.21(XREF 992S), 79.21(XREF 992K), 79.22+1, 79.22(XREF 1S), 79.22(XREF 1K), 79.22(XREF 992S), 79.22(XREF 992K), 79.23+1, 79.23(XREF 1S), 79.23(XREF 1K)
    , 79.23(XREF 992S), 79.23(XREF 992K), 79.24+1, 79.24(XREF 1S), 79.24(XREF 1K), 79.24(XREF 992S), 79.24(XREF 992K), 79.241+1, 79.241(XREF 1S), 79.241(XREF 1K)
    , 79.241(XREF 2S), 79.241(XREF 2K), 79.242+1, 79.242(XREF 1S), 79.242(XREF 1K), 79.242(XREF 2S), 79.242(XREF 2K), 79.243+1, 79.243(XREF 1S), 79.243(XREF 1K)
    , 79.243(XREF 2S), 79.243(XREF 2K), 79.244+1, 79.244(XREF 1S), 79.244(XREF 1K), 79.244(XREF 2S), 79.244(XREF 2K), 79.245+1, 79.245(XREF 1S), 79.245(XREF 1K)
    , 79.245(XREF 2S), 79.245(XREF 2K), 79.246+1, 79.246(XREF 1S), 79.246(XREF 1K), 79.246(XREF 2S), 79.246(XREF 2K), 79.247+1, 79.247(XREF 1S), 79.247(XREF 1K)
    , 79.247(XREF 2S), 79.247(XREF 2K), 79.248+1, 79.248(XREF 1S), 79.248(XREF 1K), 79.248(XREF 2S), 79.248(XREF 2K), 79.249+1, 79.249(XREF 1S), 79.249(XREF 1K)
    , 79.249(XREF 2S), 79.249(XREF 2K), 79.2491+1, 79.2491(XREF 1S), 79.2491(XREF 1K), 79.2491(XREF 2S), 79.2491(XREF 2K), 79.24911+1, 79.24911(XREF 1S), 79.24911(XREF 1K)
    , 79.24911(XREF 2S), 79.24911(XREF 2K), 79.24912+1, 79.24912(XREF 1S), 79.24912(XREF 1K), 79.24912(XREF 2S), 79.24912(XREF 2K), 79.24913+1, 79.24913(XREF 1S), 79.24913(XREF 1K)
    , 79.24913(XREF 2S), 79.24913(XREF 2K), 79.24914+1, 79.24914(XREF 1S), 79.24914(XREF 1K), 79.24914(XREF 2S), 79.24914(XREF 2K), 79.24915+1, 79.24915(XREF 1S), 79.24915(XREF 1K)
    , 79.24915(XREF 2S), 79.24915(XREF 2K)
    >> DA(1 IXABSL+1, IXABKL+1
    >> DFN 9+1*, 79.1OF9.2+1*
    DG1 79(XREF 992S), 79(XREF 992K), 79.1OF9.2+1*, 79.1OF9.3+1*, 79.16(XREF 992S), 79.16(XREF 992K), 79.17(XREF 992S), 79.17(XREF 992K), 79.18(XREF 992S), 79.18(XREF 992K)
    , 79.19(XREF 992S), 79.19(XREF 992K), 79.201(XREF 992S), 79.201(XREF 992K), 79.21(XREF 992S), 79.21(XREF 992K), 79.22(XREF 992S), 79.22(XREF 992K), 79.23(XREF 992S), 79.23(XREF 992K)
    , 79.24(XREF 992S), 79.24(XREF 992K), 79.241(XREF 1S), 79.241(XREF 1K), 79.242(XREF 1S), 79.242(XREF 1K), 79.243(XREF 1S), 79.243(XREF 1K), 79.244(XREF 1S), 79.244(XREF 1K)
    , 79.245(XREF 1S), 79.245(XREF 1K), 79.246(XREF 1S), 79.246(XREF 1K), 79.247(XREF 1S), 79.247(XREF 1K), 79.248(XREF 1S), 79.248(XREF 1K), 79.249(XREF 1S), 79.249(XREF 1K)
    , 79.2491(XREF 1S), 79.2491(XREF 1K), 79.24911(XREF 1S), 79.24911(XREF 1K), 79.24912(XREF 1S), 79.24912(XREF 1K), 79.24913(XREF 1S), 79.24913(XREF 1K), 79.24914(XREF 1S), 79.24914(XREF 1K)
    , 79.24915(XREF 1S), 79.24915(XREF 1K), 80(XREF 992S), 80(XREF 992K)
    DGCPT 9+1*!
    DGER 300.04+1!, 300.06+1!, 300.07+1!
    DGFDA 70(XREF 2S), 70(XREF 2K), 71(XREF 1S), 71(XREF 1K)
    DGFDA( 70(XREF 2S), 70(XREF 2K), 71(XREF 1S), 71(XREF 1K)
    DGFLAG 300.04+1*!, 300.06+1*!, 300.07+1*!
    DGI 45.01+1~*, 45.02+1~*, 45.03+1~*, 45.04+1~*, 45.05+1~*, 79+1~*, 79.16+1~*, 79.17+1~*, 79.18+1~*, 79.19+1~*
    , 79.201+1~*, 79.21+1~*, 79.22+1~*, 79.23+1~*, 79.24+1~*, 79.241+1~*, 79.242+1~*, 79.243+1~*, 79.244+1~*, 79.245+1~*
    , 79.246+1~*, 79.247+1~*, 79.248+1~*, 79.249+1~*, 79.2491+1~*, 79.24911+1~*, 79.24912+1~*, 79.24913+1~*, 79.24914+1~*, 79.24915+1~*
    DGMSG 70(XREF 2S), 70(XREF 2K), 71(XREF 1S), 71(XREF 1K)
    >> DGNEWP .01+1*
    DIC 3+1*, 3(HELP ), 5+1*, 12+1!*, 20+1!*, 21.1+1*, 21.1(HELP ), 21.2+1*, 21.2(HELP ), 71+1!*
    , 76.1+1*, 76.1(HELP ), 76.2+1*, 76.2(HELP ), 79.1+1!*, 80+1!*
    DIC("S" 12+1*, 12SCR+1*, 20+1*, 20SCR+1*, 71+1*, 71SCR+1*, 79.1+1*, 79.1SCR+1*, 80+1*, 80SCR+1*
    DIC(0 3+1*, 3(HELP ), 5+1*, 21.1+1*, 21.1(HELP ), 21.2+1*, 21.2(HELP ), 76.1+1*, 76.1(HELP ), 76.2+1*
    , 76.2(HELP ), 80+1*, 80SCR+1*
    >> DIE 5+1, 12+1, 20+1, 21.2+1, 21.2(HELP ), 71+1, 76.1+1, 76.2+1, 76.2(HELP ), 79.1+1
    , 80+1
    >> DIG 5(XREF 1K), 13(XREF 1S), 13(XREF 1K), 79(XREF 1S), 79(XREF 1K), 79.16(XREF 1S), 79.16(XREF 1K), 79.17(XREF 1S), 79.17(XREF 1K), 79.18(XREF 1S)
    , 79.18(XREF 1K), 79.19(XREF 1S), 79.19(XREF 1K), 79.201(XREF 1S), 79.201(XREF 1K), 79.21(XREF 1S), 79.21(XREF 1K), 79.22(XREF 1S), 79.22(XREF 1K), 79.23(XREF 1S)
    , 79.23(XREF 1K), 79.24(XREF 1S), 79.24(XREF 1K), 79.241(XREF 2S), 79.241(XREF 2K), 79.242(XREF 2S), 79.242(XREF 2K), 79.243(XREF 2S), 79.243(XREF 2K), 79.244(XREF 2S)
    , 79.244(XREF 2K), 79.245(XREF 2S), 79.245(XREF 2K), 79.246(XREF 2S), 79.246(XREF 2K), 79.247(XREF 2S), 79.247(XREF 2K), 79.248(XREF 2S), 79.248(XREF 2K), 79.249(XREF 2S)
    , 79.249(XREF 2K), 79.2491(XREF 2S), 79.2491(XREF 2K), 79.24911(XREF 2S), 79.24911(XREF 2K), 79.24912(XREF 2S), 79.24912(XREF 2K), 79.24913(XREF 2S), 79.24913(XREF 2K), 79.24914(XREF 2S)
    , 79.24914(XREF 2K), 79.24915(XREF 2S), 79.24915(XREF 2K)
    >> DIH 5(XREF 1K), 13(XREF 1S), 13(XREF 1K), 79(XREF 1S), 79(XREF 1K), 79.16(XREF 1S), 79.16(XREF 1K), 79.17(XREF 1S), 79.17(XREF 1K), 79.18(XREF 1S)
    , 79.18(XREF 1K), 79.19(XREF 1S), 79.19(XREF 1K), 79.201(XREF 1S), 79.201(XREF 1K), 79.21(XREF 1S), 79.21(XREF 1K), 79.22(XREF 1S), 79.22(XREF 1K), 79.23(XREF 1S)
    , 79.23(XREF 1K), 79.24(XREF 1S), 79.24(XREF 1K), 79.241(XREF 2S), 79.241(XREF 2K), 79.242(XREF 2S), 79.242(XREF 2K), 79.243(XREF 2S), 79.243(XREF 2K), 79.244(XREF 2S)
    , 79.244(XREF 2K), 79.245(XREF 2S), 79.245(XREF 2K), 79.246(XREF 2S), 79.246(XREF 2K), 79.247(XREF 2S), 79.247(XREF 2K), 79.248(XREF 2S), 79.248(XREF 2K), 79.249(XREF 2S)
    , 79.249(XREF 2K), 79.2491(XREF 2S), 79.2491(XREF 2K), 79.24911(XREF 2S), 79.24911(XREF 2K), 79.24912(XREF 2S), 79.24912(XREF 2K), 79.24913(XREF 2S), 79.24913(XREF 2K), 79.24914(XREF 2S)
    , 79.24914(XREF 2K), 79.24915(XREF 2S), 79.24915(XREF 2K)
    >> DIK 70(XREF 3K)
    >> DIU 5(XREF 1K), 13(XREF 1S), 13(XREF 1K), 79(XREF 1S), 79(XREF 1K), 79.16(XREF 1S), 79.16(XREF 1K), 79.17(XREF 1S), 79.17(XREF 1K), 79.18(XREF 1S)
    , 79.18(XREF 1K), 79.19(XREF 1S), 79.19(XREF 1K), 79.201(XREF 1S), 79.201(XREF 1K), 79.21(XREF 1S), 79.21(XREF 1K), 79.22(XREF 1S), 79.22(XREF 1K), 79.23(XREF 1S)
    , 79.23(XREF 1K), 79.24(XREF 1S), 79.24(XREF 1K), 79.241(XREF 2S), 79.241(XREF 2K), 79.242(XREF 2S), 79.242(XREF 2K), 79.243(XREF 2S), 79.243(XREF 2K), 79.244(XREF 2S)
    , 79.244(XREF 2K), 79.245(XREF 2S), 79.245(XREF 2K), 79.246(XREF 2S), 79.246(XREF 2K), 79.247(XREF 2S), 79.247(XREF 2K), 79.248(XREF 2S), 79.248(XREF 2K), 79.249(XREF 2S)
    , 79.249(XREF 2K), 79.2491(XREF 2S), 79.2491(XREF 2K), 79.24911(XREF 2S), 79.24911(XREF 2K), 79.24912(XREF 2S), 79.24912(XREF 2K), 79.24913(XREF 2S), 79.24913(XREF 2K), 79.24914(XREF 2S)
    , 79.24914(XREF 2K), 79.24915(XREF 2S), 79.24915(XREF 2K)
    DIV 5(XREF 1K), 13(XREF 1S), 13(XREF 1K), 79(XREF 1S), 79(XREF 1K), 79.16(XREF 1S), 79.16(XREF 1K), 79.17(XREF 1S), 79.17(XREF 1K), 79.18(XREF 1S)
    , 79.18(XREF 1K), 79.19(XREF 1S), 79.19(XREF 1K), 79.201(XREF 1S), 79.201(XREF 1K), 79.21(XREF 1S), 79.21(XREF 1K), 79.22(XREF 1S), 79.22(XREF 1K), 79.23(XREF 1S)
    , 79.23(XREF 1K), 79.24(XREF 1S), 79.24(XREF 1K), 79.241(XREF 2S), 79.241(XREF 2K), 79.242(XREF 2S), 79.242(XREF 2K), 79.243(XREF 2S), 79.243(XREF 2K), 79.244(XREF 2S)
    , 79.244(XREF 2K), 79.245(XREF 2S), 79.245(XREF 2K), 79.246(XREF 2S), 79.246(XREF 2K), 79.247(XREF 2S), 79.247(XREF 2K), 79.248(XREF 2S), 79.248(XREF 2K), 79.249(XREF 2S)
    , 79.249(XREF 2K), 79.2491(XREF 2S), 79.2491(XREF 2K), 79.24911(XREF 2S), 79.24911(XREF 2K), 79.24912(XREF 2S), 79.24912(XREF 2K), 79.24913(XREF 2S), 79.24913(XREF 2K), 79.24914(XREF 2S)
    , 79.24914(XREF 2K), 79.24915(XREF 2S), 79.24915(XREF 2K)
    DIV(0 5(XREF 1K), 13(XREF 1S), 13(XREF 1K), 79(XREF 1S), 79(XREF 1K), 79.16(XREF 1S), 79.16(XREF 1K), 79.17(XREF 1S), 79.17(XREF 1K), 79.18(XREF 1S)
    , 79.18(XREF 1K), 79.19(XREF 1S), 79.19(XREF 1K), 79.201(XREF 1S), 79.201(XREF 1K), 79.21(XREF 1S), 79.21(XREF 1K), 79.22(XREF 1S), 79.22(XREF 1K), 79.23(XREF 1S)
    , 79.23(XREF 1K), 79.24(XREF 1S), 79.24(XREF 1K), 79.241(XREF 2S), 79.241(XREF 2K), 79.242(XREF 2S), 79.242(XREF 2K), 79.243(XREF 2S), 79.243(XREF 2K), 79.244(XREF 2S)
    , 79.244(XREF 2K), 79.245(XREF 2S), 79.245(XREF 2K), 79.246(XREF 2S), 79.246(XREF 2K), 79.247(XREF 2S), 79.247(XREF 2K), 79.248(XREF 2S), 79.248(XREF 2K), 79.249(XREF 2S)
    , 79.249(XREF 2K), 79.2491(XREF 2S), 79.2491(XREF 2K), 79.24911(XREF 2S), 79.24911(XREF 2K), 79.24912(XREF 2S), 79.24912(XREF 2K), 79.24913(XREF 2S), 79.24913(XREF 2K), 79.24914(XREF 2S)
    , 79.24914(XREF 2K), 79.24915(XREF 2S), 79.24915(XREF 2K)
    >> DIZ 21.2(HELP ), 76.2(HELP )
    >> DRG 9+1*
    >> DRGCAL 9+1*
    DZ 9+1!
    >> I 79.1OF9.3+1*
    >> I(0 99+1, 99OF9.2+1*
    >> ICDCAL 9+1*
    K 45.01+1~, 45.02+1~, 45.03+1~, 45.04+1~, 45.05+1~
    >> L 2(XREF 1S), 2(XREF 1K), 2(XREF 3S), 70(XREF 3S), 70(XREF 3K)
    >> PTF 5+1, 5(HELP ), 9+1*
    U 2(XREF 4S), 2(XREF 4K), 2.2OF9.2+1, 4(XREF 1S), 4(XREF 1K), 5(XREF 1K), 7.2+1, 7.2OF9.2+1, 7.3+1, 7.3OF9.2+1
    , 7.4+1, 9+1, 13(XREF 1S), 13(XREF 1K), 23(XREF 1S), 23(XREF 1K), 70+1, 79(XREF 1S), 79(XREF 1K), 79.1OF9.3+1
    , 79.16(XREF 1S), 79.16(XREF 1K), 79.17(XREF 1S), 79.17(XREF 1K), 79.18(XREF 1S), 79.18(XREF 1K), 79.19(XREF 1S), 79.19(XREF 1K), 79.2+1, 79.2OF9.2+1
    , 79.201(XREF 1S), 79.201(XREF 1K), 79.21(XREF 1S), 79.21(XREF 1K), 79.22(XREF 1S), 79.22(XREF 1K), 79.23(XREF 1S), 79.23(XREF 1K), 79.24(XREF 1S), 79.24(XREF 1K)
    , 79.241(XREF 2S), 79.241(XREF 2K), 79.242(XREF 2S), 79.242(XREF 2K), 79.243(XREF 2S), 79.243(XREF 2K), 79.244(XREF 2S), 79.244(XREF 2K), 79.245(XREF 2S), 79.245(XREF 2K)
    , 79.246(XREF 2S), 79.246(XREF 2K), 79.247(XREF 2S), 79.247(XREF 2K), 79.248(XREF 2S), 79.248(XREF 2K), 79.249(XREF 2S), 79.249(XREF 2K), 79.2491(XREF 2S), 79.2491(XREF 2K)
    , 79.24911(XREF 2S), 79.24911(XREF 2K), 79.24912(XREF 2S), 79.24912(XREF 2K), 79.24913(XREF 2S), 79.24913(XREF 2K), 79.24914(XREF 2S), 79.24914(XREF 2K), 79.24915(XREF 2S), 79.24915(XREF 2K)
    , 99OF9.2+1
    X IXABSCC+1*, IXABKCC+1*, IXACRDDXLSSL+1, IXACRDDXLSKL+1, IXACRDM1SL+1, IXACRDM1KL+1, IXACRDM10SL+1, IXACRDM10KL+1, IXACRDM11SL+1, IXACRDM11KL+1
    , IXACRDM12SL+1, IXACRDM12KL+1, IXACRDM13SL+1, IXACRDM13KL+1, IXACRDM14SL+1, IXACRDM14KL+1, IXACRDM15SL+1, IXACRDM15KL+1, IXACRDM16SL+1, IXACRDM16KL+1
    , IXACRDM17SL+1, IXACRDM17KL+1, IXACRDM18SL+1, IXACRDM18KL+1, IXACRDM19SL+1, IXACRDM19KL+1, IXACRDM2SL+1, IXACRDM2KL+1, IXACRDM20SL+1, IXACRDM20KL+1
    , IXACRDM21SL+1, IXACRDM21KL+1, IXACRDM22SL+1, IXACRDM22KL+1, IXACRDM23SL+1, IXACRDM23KL+1, IXACRDM24SL+1, IXACRDM24KL+1, IXACRDM25SL+1, IXACRDM25KL+1
    , IXACRDM3SL+1, IXACRDM3KL+1, IXACRDM4SL+1, IXACRDM4KL+1, IXACRDM5SL+1, IXACRDM5KL+1, IXACRDM6SL+1, IXACRDM6KL+1, IXACRDM7SL+1, IXACRDM7KL+1
    , IXACRDM8SL+1, IXACRDM8KL+1, IXACRDM9SL+1, IXACRDM9KL+1, IXACRDPDXSL+1, IXACRDPDXKL+1, IXACRDSD1SL+1, IXACRDSD1KL+1, IXACRDSD10SL+1, IXACRDSD10KL+1
    , IXACRDSD11SL+1, IXACRDSD11KL+1, IXACRDSD12SL+1, IXACRDSD12KL+1, IXACRDSD13SL+1, IXACRDSD13KL+1, IXACRDSD14SL+1, IXACRDSD14KL+1, IXACRDSD15SL+1, IXACRDSD15KL+1
    , IXACRDSD16SL+1, IXACRDSD16KL+1, IXACRDSD17SL+1, IXACRDSD17KL+1, IXACRDSD18SL+1, IXACRDSD18KL+1, IXACRDSD19SL+1, IXACRDSD19KL+1, IXACRDSD2SL+1, IXACRDSD2KL+1
    , IXACRDSD20SL+1, IXACRDSD20KL+1, IXACRDSD21SL+1, IXACRDSD21KL+1, IXACRDSD22SL+1, IXACRDSD22KL+1, IXACRDSD23SL+1, IXACRDSD23KL+1, IXACRDSD24SL+1, IXACRDSD24KL+1
    , IXACRDSD3SL+1, IXACRDSD3KL+1, IXACRDSD4SL+1, IXACRDSD4KL+1, IXACRDSD5SL+1, IXACRDSD5KL+1, IXACRDSD6SL+1, IXACRDSD6KL+1, IXACRDSD7SL+1, IXACRDSD7KL+1
    , IXACRDSD8SL+1, IXACRDSD8KL+1, IXACRDSD9SL+1, IXACRDSD9KL+1, IXACRPP1SL+1, IXACRPP1KL+1, IXACRPP10SL+1, IXACRPP10KL+1, IXACRPP11SL+1, IXACRPP11KL+1
    , IXACRPP12SL+1, IXACRPP12KL+1, IXACRPP13SL+1, IXACRPP13KL+1, IXACRPP14SL+1, IXACRPP14KL+1, IXACRPP15SL+1, IXACRPP15KL+1, IXACRPP16SL+1, IXACRPP16KL+1
    , IXACRPP17SL+1, IXACRPP17KL+1, IXACRPP18SL+1, IXACRPP18KL+1, IXACRPP19SL+1, IXACRPP19KL+1, IXACRPP2SL+1, IXACRPP2KL+1, IXACRPP20SL+1, IXACRPP20KL+1
    , IXACRPP21SL+1, IXACRPP21KL+1, IXACRPP22SL+1, IXACRPP22KL+1, IXACRPP23SL+1, IXACRPP23KL+1, IXACRPP24SL+1, IXACRPP24KL+1, IXACRPP25SL+1, IXACRPP25KL+1
    , IXACRPP3SL+1, IXACRPP3KL+1, IXACRPP4SL+1, IXACRPP4KL+1, IXACRPP5SL+1, IXACRPP5KL+1, IXACRPP6SL+1, IXACRPP6KL+1, IXACRPP7SL+1, IXACRPP7KL+1
    , IXACRPP8SL+1, IXACRPP8KL+1, IXACRPP9SL+1, IXACRPP9KL+1, IXACRPS1SL+1, IXACRPS1KL+1, IXACRPS10SL+1, IXACRPS10KL+1, IXACRPS11SL+1, IXACRPS11KL+1
    , IXACRPS12SL+1, IXACRPS12KL+1, IXACRPS13SL+1, IXACRPS13KL+1, IXACRPS14SL+1, IXACRPS14KL+1, IXACRPS15SL+1, IXACRPS15KL+1, IXACRPS16SL+1, IXACRPS16KL+1
    , IXACRPS17SL+1, IXACRPS17KL+1, IXACRPS18SL+1, IXACRPS18KL+1, IXACRPS19SL+1, IXACRPS19KL+1, IXACRPS2SL+1, IXACRPS2KL+1, IXACRPS20SL+1, IXACRPS20KL+1
    , IXACRPS21SL+1, IXACRPS21KL+1, IXACRPS22SL+1, IXACRPS22KL+1, IXACRPS23SL+1, IXACRPS23KL+1, IXACRPS24SL+1, IXACRPS24KL+1, IXACRPS25SL+1, IXACRPS25KL+1
    , IXACRPS3SL+1, IXACRPS3KL+1, IXACRPS4SL+1, IXACRPS4KL+1, IXACRPS5SL+1, IXACRPS5KL+1, IXACRPS6SL+1, IXACRPS6KL+1, IXACRPS7SL+1, IXACRPS7KL+1
    , IXACRPS8SL+1, IXACRPS8KL+1, IXACRPS9SL+1, IXACRPS9KL+1, .001+1!, .01+1, .01(XREF 1S), .01(XREF 1K), 2+1*!, 2(XREF 1S)
    , 2(XREF 1K), 2(XREF 2S), 2(XREF 2K), 2(XREF 3S), 2(XREF 3K), 2(XREF 4S), 2(XREF 4K), 2.1+1*, 2.2OF9.2+1*, 3+1*!
    , 5+1!, 5(XREF 1K), 6(XREF 1S), 6(XREF 1K), 7.2+1*, 7.3+1*, 7.4+1*, 8+1*!, 9+1*, 10(XREF 1S)
    , 10(XREF 1K), 12+1*!, 12(XREF 1S), 12(XREF 1K), 13(XREF 1S), 13(XREF 1K), 14+1*!, 20+1*!, 21.1+1*!, 21.2+1!
    , 21.2(HELP ), 23(XREF 1S), 45.01(XREF 1S), 45.01(XREF 1K), 45.02(XREF 1S), 45.02(XREF 1K), 45.03(XREF 1S), 45.03(XREF 1K), 45.04(XREF 1S), 45.04(XREF 1K)
    , 45.05(XREF 1S), 45.05(XREF 1K), 70+1*!, 70(XREF 1S), 70(XREF 1K), 70(XREF 2S), 71+1*!, 71(XREF 1S), 76.1+1*!, 76.2+1!
    , 76.2(HELP ), 77+1!, 79(XREF 1S), 79(XREF 1K), 79(XREF 992S), 79(XREF 992K), 79.1+1*!, 79.16(XREF 1S), 79.16(XREF 1K), 79.16(XREF 992S)
    , 79.16(XREF 992K), 79.17(XREF 1S), 79.17(XREF 1K), 79.17(XREF 992S), 79.17(XREF 992K), 79.18(XREF 1S), 79.18(XREF 1K), 79.18(XREF 992S), 79.18(XREF 992K), 79.19(XREF 1S)
    , 79.19(XREF 1K), 79.19(XREF 992S), 79.19(XREF 992K), 79.2+1*, 79.201(XREF 1S), 79.201(XREF 1K), 79.201(XREF 992S), 79.201(XREF 992K), 79.21(XREF 1S), 79.21(XREF 1K)
    , 79.21(XREF 992S), 79.21(XREF 992K), 79.22(XREF 1S), 79.22(XREF 1K), 79.22(XREF 992S), 79.22(XREF 992K), 79.23(XREF 1S), 79.23(XREF 1K), 79.23(XREF 992S), 79.23(XREF 992K)
    , 79.24(XREF 1S), 79.24(XREF 1K), 79.24(XREF 992S), 79.24(XREF 992K), 79.241(XREF 1S), 79.241(XREF 1K), 79.241(XREF 2S), 79.241(XREF 2K), 79.242(XREF 1S), 79.242(XREF 1K)
    , 79.242(XREF 2S), 79.242(XREF 2K), 79.243(XREF 1S), 79.243(XREF 1K), 79.243(XREF 2S), 79.243(XREF 2K), 79.244(XREF 1S), 79.244(XREF 1K), 79.244(XREF 2S), 79.244(XREF 2K)
    , 79.245(XREF 1S), 79.245(XREF 1K), 79.245(XREF 2S), 79.245(XREF 2K), 79.246(XREF 1S), 79.246(XREF 1K), 79.246(XREF 2S), 79.246(XREF 2K), 79.247(XREF 1S), 79.247(XREF 1K)
    , 79.247(XREF 2S), 79.247(XREF 2K), 79.248(XREF 1S), 79.248(XREF 1K), 79.248(XREF 2S), 79.248(XREF 2K), 79.249(XREF 1S), 79.249(XREF 1K), 79.249(XREF 2S), 79.249(XREF 2K)
    , 79.2491(XREF 1S), 79.2491(XREF 1K), 79.2491(XREF 2S), 79.2491(XREF 2K), 79.24911(XREF 1S), 79.24911(XREF 1K), 79.24911(XREF 2S), 79.24911(XREF 2K), 79.24912(XREF 1S), 79.24912(XREF 1K)
    , 79.24912(XREF 2S), 79.24912(XREF 2K), 79.24913(XREF 1S), 79.24913(XREF 1K), 79.24913(XREF 2S), 79.24913(XREF 2K), 79.24914(XREF 1S), 79.24914(XREF 1K), 79.24914(XREF 2S), 79.24914(XREF 2K)
    , 79.24915(XREF 1S), 79.24915(XREF 1K), 79.24915(XREF 2S), 79.24915(XREF 2K), 80+1*!, 80(XREF 992S), 80(XREF 992K), 99+1*, 99OF9.2+1, 101.07+1!
    , 300.04+1!, 300.06+1*!, 300.07+1*!
    X(1 IXABKCC+1
    X(2 IXABKCC+1
    >> X1 IXAICNSL+1, IXAICNKL+1, IXAICPSL+1, IXAICPKL+1
    >> X1(1 IXABKL+1
    >> X2 IXAICNSL+1, IXAICNKL+1, IXAICPSL+1, IXAICPKL+1
    >> X2(1 IXABSL+1, IXABSCC+1
    >> X2(2 IXABSCC+1, IXABKCC+1
    >> X2(3 IXABSCC+1, IXABKCC+1
    Y 2+1, 3+1, 5+1, 5(XREF 1K), 8+1, 12+1, 13(XREF 1S), 13(XREF 1K), 14+1, 20+1
    , 21.1+1, 21.2+1, 70+1, 71+1, 76.1+1, 76.2+1, 79(XREF 1S), 79(XREF 1K), 79.1+1, 79.1OF9.3+1
    , 79.16(XREF 1S), 79.16(XREF 1K), 79.17(XREF 1S), 79.17(XREF 1K), 79.18(XREF 1S), 79.18(XREF 1K), 79.19(XREF 1S), 79.19(XREF 1K), 79.201(XREF 1S), 79.201(XREF 1K)
    , 79.21(XREF 1S), 79.21(XREF 1K), 79.22(XREF 1S), 79.22(XREF 1K), 79.23(XREF 1S), 79.23(XREF 1K), 79.24(XREF 1S), 79.24(XREF 1K), 79.241(XREF 2S), 79.241(XREF 2K)
    , 79.242(XREF 2S), 79.242(XREF 2K), 79.243(XREF 2S), 79.243(XREF 2K), 79.244(XREF 2S), 79.244(XREF 2K), 79.245(XREF 2S), 79.245(XREF 2K), 79.246(XREF 2S), 79.246(XREF 2K)
    , 79.247(XREF 2S), 79.247(XREF 2K), 79.248(XREF 2S), 79.248(XREF 2K), 79.249(XREF 2S), 79.249(XREF 2K), 79.2491(XREF 2S), 79.2491(XREF 2K), 79.24911(XREF 2S), 79.24911(XREF 2K)
    , 79.24912(XREF 2S), 79.24912(XREF 2K), 79.24913(XREF 2S), 79.24913(XREF 2K), 79.24914(XREF 2S), 79.24914(XREF 2K), 79.24915(XREF 2S), 79.24915(XREF 2K), 80+1
    Y(1 5(XREF 1K), 13(XREF 1S), 13(XREF 1K), 79(XREF 1S), 79(XREF 1K), 79.16(XREF 1S), 79.16(XREF 1K), 79.17(XREF 1S), 79.17(XREF 1K), 79.18(XREF 1S)
    , 79.18(XREF 1K), 79.19(XREF 1S), 79.19(XREF 1K), 79.201(XREF 1S), 79.201(XREF 1K), 79.21(XREF 1S), 79.21(XREF 1K), 79.22(XREF 1S), 79.22(XREF 1K), 79.23(XREF 1S)
    , 79.23(XREF 1K), 79.24(XREF 1S), 79.24(XREF 1K), 79.241(XREF 2S), 79.241(XREF 2K), 79.242(XREF 2S), 79.242(XREF 2K), 79.243(XREF 2S), 79.243(XREF 2K), 79.244(XREF 2S)
    , 79.244(XREF 2K), 79.245(XREF 2S), 79.245(XREF 2K), 79.246(XREF 2S), 79.246(XREF 2K), 79.247(XREF 2S), 79.247(XREF 2K), 79.248(XREF 2S), 79.248(XREF 2K), 79.249(XREF 2S)
    , 79.249(XREF 2K), 79.2491(XREF 2S), 79.2491(XREF 2K), 79.24911(XREF 2S), 79.24911(XREF 2K), 79.24912(XREF 2S), 79.24912(XREF 2K), 79.24913(XREF 2S), 79.24913(XREF 2K), 79.24914(XREF 2S)
    , 79.24914(XREF 2K), 79.24915(XREF 2S), 79.24915(XREF 2K)
    Y(45 2.2OF9.2+1*, 7.2+1, 7.2OF9.2+1*, 7.3+1, 7.3OF9.2+1*, 79.2+1, 79.2OF9.2+1*, 99+1, 99OF9.2+1*
    ZTA 9+1*!
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All