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

Package: IHS Patient

Global: ^AUPNVMED


Information

FileMan FileNo FileMan Filename Package
9000010.14 V MEDICATION IHS Patient

Description

Directly Accessed By Routines, Total: 588

Package Total Routines
IHS GPRA Information System 296 BGP0C12    BGP0CON1    BGP0CU    BGP0CU2    BGP0CU4    BGP0D22    BGP0D51    BGP0D52
BGP0D711    BGP0D72    BGP0D721    BGP0D722    BGP0D731    BGP0D732    BGP0D74    BGP0D75
BGP0D81    BGP0D82    BGP0D83    BGP0D84    BGP0D863    BGP0D864    BGP0DHE2    BGP0EL4
BGP0EO11    BGP0UTL2    BGP1C12    BGP1CON1    BGP1CU    BGP1CU2    BGP1CU4    BGP1D21
BGP1D22    BGP1D39    BGP1D51    BGP1D52    BGP1D711    BGP1D72    BGP1D721    BGP1D722
BGP1D723    BGP1D731    BGP1D732    BGP1D74    BGP1D75    BGP1D81    BGP1D82    BGP1D83
BGP1D84    BGP1D863    BGP1D864    BGP1DHE2    BGP1EL4    BGP1EO11    BGP1UTL2    BGP2C12
BGP2CON1    BGP2CU    BGP2CU2    BGP2CU4    BGP2D21    BGP2D22    BGP2D39    BGP2D51
BGP2D52    BGP2D711    BGP2D72    BGP2D721    BGP2D722    BGP2D723    BGP2D731    BGP2D732
BGP2D74    BGP2D75    BGP2D81    BGP2D82    BGP2D83    BGP2D84    BGP2D863    BGP2D864
BGP2DHE2    BGP2EL4    BGP2EO11    BGP2UTL2    BGP3C12    BGP3CON1    BGP3CU    BGP3CU2
BGP3CU4    BGP3D21    BGP3D22    BGP3D39    BGP3D51    BGP3D52    BGP3D711    BGP3D72
BGP3D721    BGP3D722    BGP3D723    BGP3D731    BGP3D732    BGP3D74    BGP3D75    BGP3D81
BGP3D82    BGP3D83    BGP3D84    BGP3D863    BGP3D864    BGP3D91    BGP3EL4    BGP3UTL2
BGP4CON1    BGP4CU    BGP4D21    BGP4D22    BGP4D39    BGP4D51    BGP4D52    BGP4D711
BGP4D72    BGP4D721    BGP4D722    BGP4D723    BGP4D731    BGP4D732    BGP4D74    BGP4D75
BGP4D81    BGP4D811    BGP4D82    BGP4D83    BGP4D84    BGP4D863    BGP4D864    BGP4D89
BGP4D91    BGP4EL4    BGP4UTL2    BGP5C1    BGP5C12    BGP5CON1    BGP5CU    BGP5D21
BGP5D22    BGP5D39    BGP5D51    BGP5D52    BGP5D711    BGP5D72    BGP5D721    BGP5D722
BGP5D723    BGP5D731    BGP5D732    BGP5D74    BGP5D75    BGP5D81    BGP5D811    BGP5D82
BGP5D83    BGP5D84    BGP5D863    BGP5D864    BGP5D87    BGP5D89    BGP5D91    BGP5EL4
BGP5UTL2    BGP6C1    BGP6C12    BGP6CON1    BGP6CU    BGP6D21    BGP6D214    BGP6D22
BGP6D39    BGP6D51    BGP6D52    BGP6D711    BGP6D721    BGP6D722    BGP6D723    BGP6D731
BGP6D732    BGP6D74    BGP6D75    BGP6D81    BGP6D811    BGP6D82    BGP6D83    BGP6D84
BGP6D863    BGP6D864    BGP6D87    BGP6D89    BGP6D91    BGP6DPA4    BGP6EL4    BGP6UTL2
BGP7C1    BGP7C12    BGP7CON1    BGP7CU    BGP7D21    BGP7D214    BGP7D22    BGP7D39
BGP7D51    BGP7D52    BGP7D711    BGP7D721    BGP7D722    BGP7D723    BGP7D731    BGP7D732
BGP7D74    BGP7D75    BGP7D81    BGP7D811    BGP7D82    BGP7D83    BGP7D84    BGP7D863
BGP7D864    BGP7D87    BGP7D89    BGP7D91    BGP7DPA4    BGP7UTL2    BGP8C12    BGP8CON1
BGP8CU    BGP8CU2    BGP8CU4    BGP8D21    BGP8D214    BGP8D22    BGP8D36    BGP8D39
BGP8D51    BGP8D52    BGP8D711    BGP8D721    BGP8D722    BGP8D723    BGP8D731    BGP8D732
BGP8D74    BGP8D75    BGP8D81    BGP8D811    BGP8D82    BGP8D83    BGP8D84    BGP8D863
BGP8D864    BGP8D87    BGP8D89    BGP8D91    BGP8DHE2    BGP8DPA4    BGP8EO11    BGP8PC12
BGP8PC14    BGP8PC17    BGP8UTL2    BGP9C12    BGP9CON1    BGP9CU    BGP9CU2    BGP9CU4
BGP9D22    BGP9D51    BGP9D52    BGP9D711    BGP9D72    BGP9D721    BGP9D722    BGP9D731
BGP9D732    BGP9D74    BGP9D75    BGP9D81    BGP9D82    BGP9D83    BGP9D84    BGP9D863
BGP9D864    BGP9DHE2    BGP9EL4    BGP9EO11    BGP9UTL2    BGPMUG05    BGPMUUT4    BGPMUUT8
Diabetes Registry 62 BDMD016    BDMD116    BDMD206    BDMD216    BDMD316    BDMD411    BDMD416    BDMD418
BDMD4DU    BDMD516    BDMD616    BDMD716    BDMD816    BDMD916    BDMD996    BDMDA11
BDMDA16    BDMDADU    BDMDB11    BDMDB16    BDMDBDU    BDMDC11    BDMDC16    BDMDCDU
BDMDD11    BDMDD16    BDMDDDU    BDMDE16    BDMDE1B    BDMDE1D    BDMDEDU    BDMDF16
BDMDF18    BDMDF1B    BDMDF1D    BDMDFDU    BDMDG16    BDMDG18    BDMDG1B    BDMDG1D
BDMDGDU    BDMDM3    BDMEDMU2    BDMLLMR    BDMP016    BDMP116    BDMP416    BDMP516
BDMP616    BDMP716    BDMP816    BDMP916    BDMPA16    BDMPB16    BDMPC16    BDMS9B1
BDMS9B4    BDMS9B5    BDMS9D1    BDMSMU1    BDMVRL1    BDMVRL41    
IHS Uniform Data System 42 BUD0UTL2    BUD1RP6U    BUD1UTL2    BUD2RP6M    BUD2RP6O    BUD2RP6U    BUD2UTL2    BUDARP6M
BUDARP6O    BUDARP6U    BUDAUTL2    BUDBRP6M    BUDBRP6O    BUDBRP6Q    BUDBRP6U    BUDBUTL2
BUDCRP6M    BUDCRP6O    BUDCRP6Q    BUDCRP6U    BUDCUTL2    BUDDRP6M    BUDDRP6O    BUDDRP6Q
BUDDRP6R    BUDDRP6U    BUDDUTL2    BUDERP6M    BUDERP6O    BUDERP6Q    BUDERP6R    BUDERP6U
BUDERP6W    BUDEUTL2    BUDHRP6M    BUDHRP6O    BUDHRP6Q    BUDHRP6R    BUDHRP6U    BUDHRP6W
BUDHUTL2    BUDHUTL3    
Patient Care Component 37 APCDAMED    APCDDMU2    APCDDVL4    APCDDVL5    APCDEGP3    APCDKPV    APCHAAP2    APCHPMH3
APCHPST2    APCHPWH3    APCHPWH7    APCHPWHM    APCHPWHX    APCHS7    APCHS71    APCHS72
APCHS73    APCHS74    APCHS77    APCHS78    APCHS7C    APCHS7N    APCHS7O    APCHS7R
APCHS9B1    APCHS9B3    APCHS9B5    APCHS9D1    APCHS9M1    APCHS9M2    APCHS9M3    APCHS9M4
APCHS9M5    APCHSACG    APCHSAS1    APCHSMU1    APCHSTP1    
Health Summary Components 20 BHSAAP2    BHSACG    BHSAPRO    BHSAST1    BHSDM1    BHSDM3    BHSDM5    BHSDMPRE
BHSMBN    BHSMED    BHSMEDAL    BHSMEDCS    BHSMEDG    BHSMEDH    BHSMEDI    BHSMEDR
BHSMEDSF    BHSMSUP    BHSMSUP1    BHSPMH1A    
Patient Care Component Reports 18 APCLD206    APCLD216    APCLD316    APCLD516    APCLD616    APCLD716    APCLD816    APCLD996
APCLDM3    APCLP516    APCLP616    APCLP716    APCLP816    APCLPP21    APCLSIL4    APCLSILA
APCLV2    APCLVLU    
IHS Changes To Pharmacy 15 APSPCCD    APSPEC16    APSPEC17    APSPEC18    APSPEC19    APSPEC20    APSPEC21    APSPEC22
APSPORXE    APSPORXF    APSPPCC    APSPPCC2    APSPPCCU    APSPRV    APSQSHOW    
Patient Care Component Table Maintiance 8 APCM11E1    APCM13E1    APCM14E1    APCM24E1    APCM24E7    APCM25E1    APCM25E7    APCM2AE1
Pharmacy Point of Sale 7 ABSPES01    ABSPES02    ABSPOS28    ABSPOS32    ABSPOSI1    ABSPOSID    ABSPOSQC    
Local Area Programs 5 AZAXCAD    AZAXCADB    AZAXCADU    AZAXCADZ    AZAXDPM1    
IHS Mods To Text Integration Utilities 4 BTIULO1    BTIULO15    BTIUMED8    BTIUPCC2    
IHS Support HL7 Interfaces 3 BHLBPS1    BHLORCI    BHLRXDI    
Mental Health Social Services 3 AMHGDVF    AMHLEMD    AMHSC1    
Patient Chart 3 BPCLALL    BPCPC    BPCSC1    
Third Party Billing 3 ABMDE8X2    ABMDVST    ABMDVST5    
Asthma Tracking System 2 BATSUM    BATVSUM    
IHS HIV Management System 2 BKMQQCR4    BKMVFAPI    
PCC New Encounter Form 2 VENPCC1D    VENPCC1H    
Clinical Scheduling for Windows 1 BSDX41G    
Comprehensive Diabetes Management 1 BCDMFLDS    
Data Warehouse Export System 1 BDWUTIL1    
IHS Electronic Health Record 1 BEHORXCV    
IHS Mods To Patient Care Encounter 1 BPXRMDRG    
IHS Patient 1 AUPNPOST    
NCI Study Extract 1 CIMSNCI1    
PCC Medical Query 1 AMQQMULP    
Patient Care Component Data Transmission 1 APCPDR2    
Patient Care Component Surveillance 1 APCSSILI    
Quality Assurance 1 AQAOEDTP    
iCare 1 BQIDCAH3    

Accessed By FileMan Db Calls, Total: 27

Package Total Routines
iCare 9 BQICMUTL    BQIRGASU    BQIRMD    BQITRCHR    BQITRCKN    BQITRCMD    BQITRCSG    BQITRCTB
BQITREDU    
IHS HIV Management System 5 BKMIXX    BKMIXX1    BKMVA51    BKMVSUP3    BKMVSUP5    
IHS Mods To Text Integration Utilities 5 BTIULO    BTIULO5    BTIUMED7    BTIUPCC    BTIUPCC2    
IHS Changes To Pharmacy 3 APSPORXE    APSPPCC1    APSPPCCU    
Comprehensive Diabetes Management 1 BCDMFLDS    
IHS Changes To ADT 1 BDGCPT    
IHS Support HL7 Interfaces 1 BHLBPS1    
Mental Health Social Services 1 AMHGDVF    
Pharmacy Point of Sale 1 ABSPOSII    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
IHS Patient 1 V MEDICATION(#9000010.14)[1208]    
Outpatient Pharmacy 1 PRESCRIPTION(#52)[9999999.11, #52.1(9999999.11)]    
Pharmacy Data Management 1 PHARMACY PATIENT(#55)[#55.05(9999999.11)]    

Pointer To FileMan Files, Total: 8

Package Total FileMan Files
IHS Patient 3 PATIENT(#9000001)[.02]    V MEDICATION(#9000010.14)[1208]    VISIT(#9000010)[.03]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[1213]    
Kernel 1 NEW PERSON(#200)[.09, 1202, 1204, 1217, 1219]    
Pharmacy Data Management 1 DRUG(#50)[.01]    

Fields, Total: 33

Field # Name Loc Type Details
.01 MEDICATION 0;1 POINTER TO DRUG FILE (#50)
************************REQUIRED FIELD************************
DRUG(#50)

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

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

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

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  MAY 04, 1995
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTNTD")
.05 SIG 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>145!($L(X)<1) X
  • LAST EDITED:  DEC 14, 1995
  • HELP-PROMPT:  Answer must be 1-145 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTSIG")
.06 QUANTITY 0;6 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999.999)!(X<.001)!(X?.E1"."4N.N) X
  • LAST EDITED:  NOV 20, 2002
  • HELP-PROMPT:  Type a Number between .001 and 9999999.999, 3 Decimal Digits
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTQTY")
    SOURCE OF DATA:   071/MEDAYS
.07 DAYS PRESCRIBED 0;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 15, 1986
  • HELP-PROMPT:  TYPE A WHOLE NUMBER BETWEEN 0 AND 999
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTDAY")
    SOURCE OF DATA:   071/MENODA
.08 DATE DISCONTINUED 0;8 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 21, 2013
  • HELP-PROMPT:  TYPE A DATE BETWEEN 1960 AND TODAY
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTDIS")
.09 *PROVIDER 0;9 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 15, 1993
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))"
  • EXPLANATION:  Must be a provider.
1101 COMMENT 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>70!($L(X)<1) X
  • LAST EDITED:  FEB 13, 1996
  • HELP-PROMPT:  Answer must be 1-70 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCOM")
1102 PRESCRIPTION NUMBER 11;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  NOV 30, 1998
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
1103 BILLED? 11;3 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  JAN 05, 2000
1104 ABBRV SIG 11;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  NOV 12, 2002
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
1105 CHRONIC? 11;5 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  FEB 09, 2005
1106 POINT OF SALE BILLING STATUS 11;6 SET
  • '1' FOR POS BILLED;
  • '2' FOR POS BILLED AND REJECTED;

  • LAST EDITED:  JUL 20, 2006
1107 # REFILLS REMAINING 11;7 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 31, 2007
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
1108 EHR OUTSIDE MED 11;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  OCT 26, 2007
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
1201 EVENT DATE&TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:$P(X,".")>DT X
  • LAST EDITED:  MAR 08, 2005
  • HELP-PROMPT:  TYPE A DATE BETWEEN JAN 01, 1950 AND CURRENT DATE
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCDT")
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1202 ORDERING PROVIDER 12;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 15, 1993
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPRV")
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))"
  • EXPLANATION:  Must be a provider.
1203 CLINIC 12;3 POINTER TO CLINIC STOP FILE (#40.7) CLINIC STOP(#40.7)

  • LAST EDITED:  APR 29, 1993
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCLN")
1204 ENCOUNTER PROVIDER 12;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 15, 1993
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTEPR")
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y))"
  • EXPLANATION:  Must be a provider.
1208 PARENT 12;8 POINTER TO V MEDICATION FILE (#9000010.14) V MEDICATION(#9000010.14)

  • LAST EDITED:  JUL 09, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPNT")
1209 EXTERNAL KEY 12;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  DEC 14, 1995
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTEXK")
  • CROSS-REFERENCE:  9000010.14^AXK
    1)= S ^AUPNVMED("AXK",$E(X,1,30),DA)=""
    2)= K ^AUPNVMED("AXK",$E(X,1,30),DA)
1210 OUTSIDE PROVIDER NAME 12;10 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  DEC 14, 1995
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTOPR")
1211 ORDERING DATE 12;11 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 18, 1997
1212 ALTERNATE DRUG NAME 12;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  OCT 25, 2001
  • HELP-PROMPT:  Answer must be 1-40 characters in length.
1213 ANCILLARY POV 12;13 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  SEP 22, 2003
1215 ORDERING LOCATION 12;15 POINTER TO HOSPITAL LOCATION FILE (#44) HOSPITAL LOCATION(#44)

  • LAST EDITED:  FEB 19, 2008
1216 DATE/TIME ENTERED 12;16 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 2012
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.14^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMED(D0,12)):^(12),1:"") S X=$P(Y(1),U,17),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.14,1216,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVMED(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9000010.14,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.14^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMED(D0,12)):^(12),1:"") S X=$P(Y(1),U,18),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=$$NOW^XLFDT X ^DD(9000010.14,1216,1,2,1.4)
    1.4)= S DIH=$G(^AUPNVMED(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9000010.14,DIG=1218 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=$$NOW^XLFDT
    DELETE VALUE)= NO EFFECT
    FIELD)= #1218
1217 ENTERED BY 12;17 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 2012
  • NOTES:  TRIGGERED by the DATE/TIME ENTERED field of the V MEDICATION File
1218 DATE/TIME LAST MODIFIED 12;18 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 23, 2012
  • NOTES:  TRIGGERED by the DATE/TIME ENTERED field of the V MEDICATION File
  • CROSS-REFERENCE:  ^^TRIGGER^9000010.14^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AUPNVMED(D0,12)):^(12),1:"") S X=$P(Y(1),U,19),X=X S DIU=X K Y S X=DIV I '$G(APCDVMUX) S X=DUZ X ^DD(9000010.14,1218,1,1,1.4)
    1.4)= S DIH=$G(^AUPNVMED(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9000010.14,DIG=1219 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1219
1219 LAST MODIFIED BY 12;19 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  MAR 01, 2012
  • NOTES:  TRIGGERED by the DATE/TIME LAST MODIFIED field of the V MEDICATION File
1501 DATE PASSED TO EXTERNAL 15;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAY 27, 2005
  • HELP-PROMPT:  Please enter the date this entry was passed to the external syste
  • CROSS-REFERENCE:  9000010.14^ADPE
    1)= S ^AUPNVMED("ADPE",$E(X,1,30),DA)=""
    2)= K ^AUPNVMED("ADPE",$E(X,1,30),DA)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  All