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

Package: Patient Care Component

Global: ^APCDPLMD


Information

FileMan FileNo FileMan Filename Package
9001040.1 PCC DATA ENTRY PROBLEM MODS Patient Care Component

Description

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Patient Care Component 3 APCDPLFH    APCDPLIE    APCDPLST    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
DRG Grouper 1 ICD DIAGNOSIS(#80)[.03, .04, #9001040.111(.01), #9001040.112(.01)]    
VA Fileman 1 FILE(#1)[.07]    

Fields, Total: 15

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

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 31, 2014
  • CROSS-REFERENCE:  9001040.1^B
    1)= S ^APCDPLMD("B",$E(X,1,30),DA)=""
    2)= K ^APCDPLMD("B",$E(X,1,30),DA)
.02 IEN OF PROBLEM OR FH ENTRY 0;2 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 05, 2014
  • HELP-PROMPT:  Type a number between 1 and 9999999, 0 decimal digits.
.03 OLD .01 0;3 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  MAR 31, 2014
.04 NEW .01 0;4 POINTER TO ICD DIAGNOSIS FILE (#80) ICD DIAGNOSIS(#80)

  • LAST EDITED:  MAR 31, 2014
.05 OLD ADD 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  MAR 31, 2014
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
.06 NEW ADD 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  MAR 31, 2014
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
.07 FILE 0;7 POINTER TO FILE FILE (#1) FILE(#1)

  • LAST EDITED:  MAY 08, 2014
.08 SNOMED AT TIME OF CHANGE 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  JUN 05, 2014
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
1 ERROR MESSAGE 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>240!($L(X)<1) X
  • LAST EDITED:  MAY 08, 2014
  • HELP-PROMPT:  Answer must be 1-240 characters in length.
11 OLD ADDITIONAL 11;0 POINTER Multiple #9001040.111 9001040.111
12 NEW ADDITIONAL 12;0 POINTER Multiple #9001040.112 9001040.112
1301 OLD STATUS 13;1 SET
  • 'A' FOR CHRONIC;
  • 'I' FOR INACTIVE;
  • 'D' FOR DELETED;
  • 'S' FOR SUB-ACUTE;
  • 'E' FOR EPISODIC;
  • 'O' FOR SOCIAL/ENVIRONMENTAL;
  • 'R' FOR ROUTINE/ADMIN;

  • LAST EDITED:  MAR 03, 2016
1302 NEW STATUS 13;2 SET
  • 'A' FOR CHRONIC;
  • 'I' FOR INACTIVE;
  • 'D' FOR DELETED;
  • 'S' FOR SUB-ACUTE;
  • 'E' FOR EPISODIC;
  • 'O' FOR SOCIAL/ENVIRONMENTAL;
  • 'R' FOR ROUTINE/ADMIN;

  • LAST EDITED:  MAR 03, 2016
1303 DATE LAST USED POV 13;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 28, 2016
1304 LAST POV 13;4 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>9999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 28, 2016
  • HELP-PROMPT:  Type a number between 1 and 9999999999, 0 decimal digits.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All