Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AUP6I001

AUP6I001.m

Go to the documentation of this file. 
  1. AUP6I001 ; ; 31-AUG-2004
  1.  ;;93.2;AUP6;;AUG 31, 2004
  1.  Q:'DIFQ(9000001)  F I=1:2 S X=$T(Q+I) Q:X=""  S Y=$E($T(Q+I+1),4,999),X=$E(X,4,999) S:$A(Y)=126 I=I+1,Y=$E(Y,2,999)_$E($T(Q+I+1),5,999) S:$A(Y)=61 Y=$E(Y,2,999) X NO E  S @X=Y
  1. Q Q
  1.  ;;^DIC(9000001,0,"GL")
  1.  ;;=^AUPNPAT(
  1.  ;;^DIC("B","PATIENT",9000001)
  1.  ;;=
  1.  ;;^DIC(9000001,"%D",0)
  1.  ;;=^^10^10^3030728^^^^
  1.  ;;^DIC(9000001,"%D",1,0)
  1.  ;;=This file is the primary patient data file.  The NAME (.01) field of this 
  1.  ;;^DIC(9000001,"%D",2,0)
  1.  ;;=file is a backward pointer to the VA's patient file (#2).  Fields in 
  1.  ;;^DIC(9000001,"%D",3,0)
  1.  ;;=common between the two dictionaries actually exist only in the VA patient 
  1.  ;;^DIC(9000001,"%D",4,0)
  1.  ;;=file and are referenced by the IHS patient file as computed fields.  All 
  1.  ;;^DIC(9000001,"%D",5,0)
  1.  ;;=other files containing patient data have backward pointers linking them to 
  1.  ;;^DIC(9000001,"%D",6,0)
  1.  ;;=this file.  The linkage is by patient name and the internal FileMan gener-
  1.  ;;^DIC(9000001,"%D",7,0)
  1.  ;;=ated number of the ancillary file is the same number used in this file.
  1.  ;;^DIC(9000001,"%D",8,0)
  1.  ;;=   
  1.  ;;^DIC(9000001,"%D",9,0)
  1.  ;;=All applications developed for the RPMS which require patient data will
  1.  ;;^DIC(9000001,"%D",10,0)
  1.  ;;=point to this file.
  1.  ;;^DD(9000001,0)
  1.  ;;=FIELD^^99999999^137
  1.  ;;^DD(9000001,0,"ACT")
  1.  ;;=D ^AUPNPAT
  1.  ;;^DD(9000001,0,"DDA")
  1.  ;;=N
  1.  ;;^DD(9000001,0,"DIC")
  1.  ;;=AUPNLK
  1.  ;;^DD(9000001,0,"DT")
  1.  ;;=3040414
  1.  ;;^DD(9000001,0,"IX","AAVABDW16",9000001,.23)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AAVABDW17",9000001,1108)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AAVABDW18",9000001,1110)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AAVABDW19",9000001,1111)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AAVABDW20",9000001,1112)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AAVABDW21",9000001,1114)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AAVABDW24",9000001.41,.05)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AC",9000001,1118)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AD",9000001,1111)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","ADTE",9000001,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AE",9000001,1108)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AF",9000001,.19)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AG",9000001,.22)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AH",9000001,1117)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AI",9000001.51,.03)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AJ",9000001,1113)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AK",9000001,.14)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AQ1",9000001,1110)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AQ2",9000001,1109)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AREAS",9000001,.37)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AS",9000001,.23)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AZ1",9000001,1109)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AZ2",9000001,1110)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","AZZ",9000001,.06)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","B",9000001,.01)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","D",9000001.41,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"IX","E",9000001.42,.01)
  1.  ;;=
  1.  ;;^DD(9000001,0,"NM","PATIENT")
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",112.6,.01)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",19707.8,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",90001,.03)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",90001.01,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",90001.02,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",90001.03,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",90001.04,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",90002,.04)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",90002.01,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",90050.01,101)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",90050.02,.01)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",90050.0211,.01)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",90050.03,5)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",90051.1101,5)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",90056.07,.12)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",90080,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",90181.01,.01)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",8000003.01,13.64)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",8000003.02,2)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",8000005.01,13.64)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",8000005.02,2)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",8000018,.01)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000002,.01)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000003,.01)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000003.1,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000003.3,.01)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000004,.01)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000005,.01)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000006,.01)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000007,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000008,.01)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000009,.01)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010,.05)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.01,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.02,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.03,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.04,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.05,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.06,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.07,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.08,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.09,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.11,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.12,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.13,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.14,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.15,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.16,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.17,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.18,.02)
  1.  ;;=
  1.  ;;^DD(9000001,0,"PT",9000010.19,.02)
  1.  ;;=