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

Package: Patient Care Component

Global: ^APCDVPED


Information

FileMan FileNo FileMan Filename Package
9001040.16 PCC PATIENT EDUCATION DUPLICATE DELETES Patient Care Component

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
Patient Care Component 1 APCDDDPE    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Patient Care Component 1 APCDDDPE    

Pointer To FileMan Files, Total: 14

Package Total FileMan Files
IHS Patient 4 PATIENT(#9000001)[.02]    PROBLEM(#9000011)[1103]    V PATIENT ED(#9000010.16)[1208]    VISIT(#9000010)[.03]    
Kernel 2 PACKAGE(#9.4)[81202]    NEW PERSON(#200)[.05, 1202, 1204, 1217, 1219]    
Scheduling 2 CLINIC STOP(#40.7)[1203]    HOSPITAL LOCATION(#44)[1215]    
Utility Tables 2 EDUCATION TOPICS(#9999999.09)[.01]    READINESS TO LEARN(#99999.15)[1102]    
CPT Files 1 CPT(#81)[.09]    
DRG Grouper 1 ICD DIAGNOSIS(#80)[.04]    
PCE Patient Care Encounter 1 PCE DATA SOURCE(#839.7)[81203]    
Patient Care Component 1 PCC DATA ENTRY EDUC TOPICS(#9001002.5)[.12]    

Fields, Total: 39

Field # Name Loc Type Details
.01 TOPIC 0;1 POINTER TO EDUCATION TOPICS FILE (#9999999.09)
************************REQUIRED FIELD************************
EDUCATION TOPICS(#9999999.09)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,3)'=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • OUTPUT TRANSFORM:  S Y=$$EDNAME^AUPNVUTL(Y)
  • LAST EDITED:  JUL 28, 2017
  • HELP-PROMPT:  Select the topic on which education was delivered.
  • DESCRIPTION:  
    Pointer to the EDUCATION TOPICS file.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTTOP")
  • SCREEN:  S DIC("S")="I $P(^(0),U,3)'=1"
  • EXPLANATION:  Only active Education Topics may be selected.
  • CROSS-REFERENCE:  9001040.16^B
    1)= S ^APCDVPED("B",$E(X,1,30),DA)=""
    2)= K ^APCDVPED("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9001040.16^AV9^MUMPS
    1)= S:$D(APCDLOOK) DIC("DR")=""
    2)= Q
  • CROSS-REFERENCE:  9001040.16^AAVA^MUMPS
    1)= I $P(^APCDVPED(DA,0),U,2),$P(^(0),U,3) S ^APCDVPED("AAVA",$P(^APCDVPED(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^APCDVPED(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^APCDVPED(DA,0),U,2),$P(^(0),U,3) K ^APCDVPED("AAVA",$P(^APCDVPED(DA,0),U,2),X,(9999999-$P(+^AUPNVSIT($P(^APCDVPED(DA,0),U,3),0),".",1)),DA)
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  JUL 28, 2017
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDPAT")
    UNEDITABLE
  • CROSS-REFERENCE:  9001040.16^AC
    1)= S ^APCDVPED("AC",$E(X,1,30),DA)=""
    2)= K ^APCDVPED("AC",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9001040.16^AATOO^MUMPS
    1)= I $P(^APCDVPED(DA,0),U,3)]"" S ^APCDVPED("AA",X,(9999999-$P(+^AUPNVSIT($P(^APCDVPED(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^APCDVPED(DA,0),U,3)]"" K ^APCDVPED("AA",X,(9999999-$P(+^AUPNVSIT($P(^APCDVPED(DA,0),U,3),0),".",1)),DA)
  • CROSS-REFERENCE:  9001040.16^AAVATOO^MUMPS
    1)= I $P(^APCDVPED(DA,0),U),$P(^APCDVPED(DA,0),U,3) S ^APCDVPED("AAVA",X,$P(^APCDVPED(DA,0),U),(9999999-$P(+^AUPNVSIT($P(^APCDVPED(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^APCDVPED(DA,0),U),$P(^APCDVPED(DA,0),U,3) K ^APCDVPED("AAVA",X,$P(^APCDVPED(DA,0),U),(9999999-$P(+^AUPNVSIT($P(^APCDVPED(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(^APCDVPED(DA,0),U,2)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 28, 2017
  • HELP-PROMPT:  Enter the visit date/time for the encounter where the education was provided.
  • DESCRIPTION:  
    This is the encounter or occasion of service defined in the Visit file that represents when and where the education was provided.
  • TECHNICAL DESCR:  
    This is a pointer to the Visit File (#9000010).  This field is stuffed by the applications. No editing is allowed.  APCDALVR Variable = APCDALVR("APCDVSIT")
  • SCREEN:  S DIC("S")="I $P(^(0),U,5)=$P(^APCDVPED(DA,0),U,2)"
  • EXPLANATION:  VISIT MUST BE FOR CURRENT PATIENT
    UNEDITABLE
  • CROSS-REFERENCE:  9001040.16^AD
    1)= S ^APCDVPED("AD",$E(X,1,30),DA)=""
    2)= K ^APCDVPED("AD",$E(X,1,30),DA)
  • CROSS-REFERENCE:  9001040.16^AA^MUMPS
    1)= Q:$P(^APCDVPED(DA,0),U,2)=""  S ^APCDVPED("AA",$P(^APCDVPED(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)=""
    2)= Q:$P(^APCDVPED(DA,0),U,2)=""  K ^APCDVPED("AA",$P(^APCDVPED(DA,0),U,2),(9999999-$P(+^AUPNVSIT(X,0),".",1)),DA)
    This is a Health Summary cross-reference.  "AA",PATIENT,VISIT,DA
  • CROSS-REFERENCE:  9001040.16^AV10^MUMPS
    1)= D ADD^AUPNVSIT
    2)= D SUB^AUPNVSIT
    This cross-reference adds and subtracts from the dependent entry count in the VISIT file.
  • CROSS-REFERENCE:  9001040.16^AAVATOOO^MUMPS
    1)= I $P(^APCDVPED(DA,0),U),$P(^(0),U,2) S ^APCDVPED("AAVA",$P(^APCDVPED(DA,0),U,2),$P(^APCDVPED(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^APCDVPED(DA,0),U,3),0),".",1)),DA)=""
    2)= I $P(^APCDVPED(DA,0),U),$P(^(0),U,2) K ^APCDVPED("AAVA",$P(^APCDVPED(DA,0),U,2),$P(^APCDVPED(DA,0),U,1),(9999999-$P(+^AUPNVSIT($P(^APCDVPED(DA,0),U,3),0),".",1)),DA)
.04 ICD DIAGNOSIS 0;4 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  MAR 23, 2000
.041 ICD TEXT COMPUTED

  • MUMPS CODE:  N DIT S X=$P($$ICDDX^AUPNVUTL($P(^APCDVPED(D0,0),U,4),$S($P(^APCDVPED(D0,0),U,3):$P($P(^AUPNVSIT($P(^APCDVPED(D0,0),U,3),0),U),"."),1:DT)),U,4)
    9.2 = S DIT(80)=$S($D(D0):D0,1:""),DIT(1)=$S($D(^APCDVPED(D0,0)):^(0),1:""),D0=$P(DIT(1),U,4) S:'$D(^ICD9(+D0,0)) D0=-1
  • ALGORITHM:  S X=$P($$ICDDX^AUPNVUTL($P(^AUPNVPED(D0,0),U,4),$S($P(^AUPNVPED(D0,0),U,3):$P($P(^AUPNVSIT($P(^AUPNVPED(D0,0),U,3),0),U),"."),1:DT)),U,4)
  • LAST EDITED:  AUG 14, 2012
.05 PROVIDER 0;5 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)),$S($D(BVC):1,$P($G(^VA(200,+Y,""PS"")),U,4)="""":1,1:0)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUN 28, 2000
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTPRO")
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P($G(^VA(200,+Y,0)),U),+Y)),$S($D(BVC):1,$P($G(^VA(200,+Y,""PS"")),U,4)="""":1,1:0)"
  • EXPLANATION:  Must be a provider.
.06 LEVEL OF UNDERSTANDING 0;6 SET
  • '1' FOR POOR;
  • '2' FOR FAIR;
  • '3' FOR GOOD;
  • '4' FOR GROUP-NO ASSESSMENT;
  • '5' FOR REFUSED;

  • LAST EDITED:  SEP 07, 1993
  • HELP-PROMPT:  Enter the number which best rates the patient's level of understanding.
  • DESCRIPTION:  
    This is the provider's assessment of how well the patient understood the education received.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTLOU")
.07 INDIVIDUAL/GROUP 0;7 SET
  • 'G' FOR GROUP SETTING;
  • 'I' FOR INDIVIDUAL;

  • LAST EDITED:  JUL 10, 1996
  • HELP-PROMPT:  WAS THIS PATIENT EDUCATION PROVIDED IN A GROUP SETTING OR PROVIDED TO AN INDIVIDUAL
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTIG")
.08 LENGTH OF EDUC (MINUTES) 0;8 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  SEP 24, 1996
  • HELP-PROMPT:  ENTER THE NUMBER OF MINUTES THAT THIS PATIENT EDUCATION WAS PROVIDED
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTMIN")
.09 CPT CODE 0;9 POINTER TO CPT FILE (#81) CPT(#81)

  • INPUT TRANSFORM:  S DIC("S")="D CPT^AUPNSICD" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 28, 2003
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCPT")
  • SCREEN:  S DIC("S")="D CPT^AUPNSICD"
  • EXPLANATION:  Must be an active CPT code.
.11 COMMENT 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<2) X
  • LAST EDITED:  OCT 09, 1998
  • HELP-PROMPT:  Answer must be 2-100 characters in length.
  • DESCRIPTION:  
    This field is to capture narrative text about the patient education given.  Will display on the health summary if present.
.12 TOPIC CATEGORY 0;12 POINTER TO PCC DATA ENTRY EDUC TOPICS FILE (#9001002.5) PCC DATA ENTRY EDUC TOPICS(#9001002.5)

  • LAST EDITED:  JUN 01, 2000
.13 GOAL CODE 0;13 SET
  • 'GS' FOR GOAL SET;
  • 'GM' FOR GOAL MET;
  • 'GNM' FOR GOAL NOT MET;
  • 'GNS' FOR GOAL NOT SET;

  • LAST EDITED:  MAR 28, 2007
.14 GOAL COMMENT 0;14 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>68!($L(X)<1) X
  • LAST EDITED:  MAR 28, 2007
  • HELP-PROMPT:  Answer must be 1-68 characters in length.
1 SUB-TOPIC 1;0 Multiple #9001040.161 9001040.161
1101 PROVIDER'S NARRATIVE 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  JUN 21, 2000
  • HELP-PROMPT:  Answer must be 3-80 characters in length.
1102 READINESS TO LEARN 11;2 POINTER TO READINESS TO LEARN FILE (#99999.15) READINESS TO LEARN(#99999.15)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JAN 25, 2016
  • SCREEN:  S DIC("S")="I '$P(^(0),U,3)"
  • EXPLANATION:  MUST BE AN ACTIVE ENTRY
1103 PROBLEM 11;3 POINTER TO PROBLEM FILE (#9000011) PROBLEM(#9000011)

  • LAST EDITED:  JUL 28, 2017
1201 EVENT DATE AND TIME 12;1 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 01, 1994
  • HELP-PROMPT:  Enter the date and time the patient education was given.
  • DESCRIPTION:  This is the date and time the education was given by the provider. This date and time may be different from the visit date and time. For example, for clinic appointment visits, the visit date and time is the date and
    time of the appointment, not the time the provider performed the clinical event.
    The date may be an imprecise date.
    Date and time may be within 30 days before or after the visit date, with the restriction the date cannot be a future date.
  • TECHNICAL DESCR:  The PCE User Interface, which allows manual entry of data, will be the prmary source of the event date and time.  The event date prompt defaults to the visit date and the time is entered to reflect the actual time the exam
    was given. The event date does not have to be the visit date, but it must be within 30 days before or after the visit, and not be a future date.
    If a user wnats to enter an historical measurement, the user should use the Historical Encounter entry action to document the historical measurement. Historical entries will not be eligible for credit.
    PCE data sources for automatic (scanning) data capture will be blank unless the event date and time are passed to PCE for filing.
    APCDALVR Variable = APCDALVR("APCDTCDT")





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(^(0),U)))",D="AK.PROVIDER" D IX^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 26, 1994
  • HELP-PROMPT:  Enter the provider who ordered the patient education.
  • DESCRIPTION:  
    This field can be used to document the provider who ordered the patient education.
  • TECHNICAL DESCR:  
    The person entered here must hold the "AK.PROVIDER" security key.  APCDALVR Variable = APCDALVR("APCDTPRV")
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U)))"
  • EXPLANATION:  Must be a Provider.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER





1203
CLINIC
12;3
POINTER TO CLINIC STOP FILE (#40.7)
CLINIC STOP(#40.7)
  • LAST EDITED:  JUL 10, 1996
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTCLN")





1204
ENCOUNTER PROVIDER
12;4
POINTER TO NEW PERSON FILE (#200)
NEW PERSON(#200)
  • LAST EDITED:  JUL 28, 2017
  • HELP-PROMPT:  Enter the provider who gave the patient education.
  • DESCRIPTION:  
    This is the provider who gave the patient education.
  • TECHNICAL DESCR:  
    This person can be any person in the new person file.  The person does not have to hold the "AK.PROVIDER" security key.  APCDALVR Variable = APCDALVR("APCDTEPR")





1208
PARENT
12;8
POINTER TO PCC PATIENT EDUCATION DUPLICATE DELETES FILE (#9000010.16)
V PATIENT ED(#9000010.16)
  • 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:  SEP 25, 1996
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTEXK")





1210
OUTSIDE PROVIDER NAME
12;10
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  SEP 25, 1996
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • TECHNICAL DESCR:  
    APCDALVR Variable = APCDALVR("APCDTOPR")





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^9001040.16^1217
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APCDVPED(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(9001040.16,1216,1,1,1.4)
    1.4)= S DIH=$G(^APCDVPED(DIV(0),12)),DIV=X S $P(^(12),U,17)=DIV,DIH=9001040.16,DIG=1217 D ^DICR
    2)= Q
    CREATE VALUE)= I '$G(APCDVMUX) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= #1217
  • CROSS-REFERENCE:  ^^TRIGGER^9001040.16^1218
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APCDVPED(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(9001040.16,1216,1,2,1.4)
    1.4)= S DIH=$G(^APCDVPED(DIV(0),12)),DIV=X S $P(^(12),U,18)=DIV,DIH=9001040.16,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 PCC PATIENT EDUCATION DUPLICATE DELETES 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 PCC PATIENT EDUCATION DUPLICATE DELETES File
  • CROSS-REFERENCE:  ^^TRIGGER^9001040.16^1219
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APCDVPED(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(9001040.16,1218,1,1,1.4)
    1.4)= S DIH=$G(^APCDVPED(DIV(0),12)),DIV=X S $P(^(12),U,19)=DIV,DIH=9001040.16,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 PCC PATIENT EDUCATION DUPLICATE DELETES File





1301
SNOMED TOPIC
13;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  APR 16, 2013
  • HELP-PROMPT:  Answer must be 1-20 characters in length.





2601
SNOMED CT
26;0
Multiple #9001040.1626 
9001040.1626




2701
LOINC CODES
27;0
Multiple #9001040.1627 
9001040.1627
  • LAST EDITED:  FEB 26, 2013





80101
EDITED FLAG
801;1
SET

  • '1' FOR EDITED;
  • LAST EDITED:  APR 01, 1994
  • HELP-PROMPT:  Answer is automatically generated by the PCE filing logic.
  • DESCRIPTION:  
    This field is automatically set to 1 if PCE detects that any original exam data is being edited.
  • TECHNICAL DESCR:  
    PCE filing logic automatically compares the before and after pictures of the record to determine if the edited flag should be set to "1".





80102
AUDIT TRAIL
801;2
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>85!($L(X)<2) X
  • LAST EDITED:  MAY 09, 1996
  • HELP-PROMPT:  Answer is automatically generated by the PCE filing logic.
  • DESCRIPTION:  
    This field is populated automatically by the PCE filing logic.  The format of the field is as follows:  Pointer to PCE data source file_"-"_A for Add or E for Edit_" "_DUZ of the person who entered the data_";"...
  • TECHNICAL DESCR:  The PCE filing logic requires a pointer to the PCE data source file.  If this is not passed, then PCE filing logic will not process the data.
    If the record is a new record, then an "A" is used to specify the source that added the data.  If the record existed previously, PCE filing logic compares the old and new records of information.  An "E" will automatically
    be used if the filing logic finds the data has been edited.  If "E" is used, then the Edited Flag field is automatically set to 1.
    The DUZ is stored in its internal format to represent the user who performed the adding or editing of data for this record.
    Iterations of editing will be concatenated to the previous data source value, up to 85 characters.





81101
COMMENTS
811;1
FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>245!($L(X)<1) X
  • LAST EDITED:  JUL 11, 1995
  • HELP-PROMPT:  Enter a comment 1-245 characters in length.
  • DESCRIPTION:  
    This is a comment related to the patient's education.  The provider may enter this manually via the PCE User Interface.





81201
VERIFIED
812;1
SET

  • '1' FOR ELECTRONICALLY SIGNED;
  • '2' FOR VERIFIED BY PACKAGE;
  • LAST EDITED:  MAY 09, 1996
    UNEDITABLE





81202
PACKAGE
812;2
POINTER TO PACKAGE FILE (#9.4)
PACKAGE(#9.4)
  • LAST EDITED:  MAY 09, 1996
    UNEDITABLE





81203
DATA SOURCE
812;3
POINTER TO PCE DATA SOURCE FILE (#839.7)
PCE DATA SOURCE(#839.7)
  • LAST EDITED:  MAY 09, 1996
    UNEDITABLE







    



Info | 
Desc | 
Directly Accessed By Routines | 
Accessed By FileMan Db Calls | 
Pointer To FileMan Files | 
Fields | 
All