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: ^APCLVRPT

Package: Patient Care Component

Global: ^APCLVRPT


Information

FileMan FileNo FileMan Filename Package
9001003.8 PCC MAN REPORTS VISIT REPORT TEMP Patient Care Component

Description

Directly Accessed By Routines, Total: 32

Package Total Routines
Patient Care Component Reports 29 APCLFPC    APCLFPC1    APCLFPCP    APCLFPR    APCLFPR1    APCLFPRP    APCLGV    APCLRPL
APCLRPL1    APCLTEN    APCLTEN1    APCLTENP    APCLVL    APCLVL0    APCLVL01    APCLVL03
APCLVL04    APCLVL1    APCLVL3    APCLVL4    APCLVL5    APCLVL6    APCLVLD    APCLVLP
APCLVLP1    APCLVLP8    APCLVLS    APCLVLU    APCLVLU1    
IHS Designated Provider 1 BDPNODP    
Referred Care Information System 1 BMCPXTEN    

Accessed By FileMan Db Calls, Total: 7

Package Total Routines
Patient Care Component Reports 7 APCLVL    APCLVL01    APCLVL3    APCLVL4    APCLVL5    APCLVL6    APCLVLD    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[.13]    
Patient Care Component 1 PCC MAN REPORTS VISIT SORT(#9001003.7)[.07, #9001003.81101(.01), #9001003.81102(.01)]

Fields, Total: 16

Field # Name Loc Type Details
.01 $J_$H 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  SEP 28, 1993
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • CROSS-REFERENCE:  9001003.8^B
    1)= S ^APCLVRPT("B",$E(X,1,30),DA)=""
    2)= K ^APCLVRPT("B",$E(X,1,30),DA)
.02 PERMANENT 0;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAY 31, 1994
.03 NAME OF REPORT 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAY 31, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • CROSS-REFERENCE:  9001003.8^C
    1)= S ^APCLVRPT("C",$E(X,1,30),DA)=""
    2)= K ^APCLVRPT("C",$E(X,1,30),DA)
.04 SEPARATE PAGE 0;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAY 31, 1994
.05 COUNT TYPE 0;5 SET
  • 'T' FOR TOTALS ONLY;
  • 'S' FOR SUBTOTALS AND TOTALS;
  • 'D' FOR DETAILED REPORT;
  • 'C' FOR SEARCH TEMPLATE/COHORT;

  • LAST EDITED:  DEC 27, 1995
.06 PATIENT/VISIT 0;6 SET
  • 'P' FOR PATIENT;
  • 'V' FOR VISIT;

  • LAST EDITED:  MAY 31, 1994
.07 SORT ITEM 0;7 POINTER TO PCC MAN REPORTS VISIT SORT FILE (#9001003.7) PCC MAN REPORTS VISIT SORT(#9001003.7)

  • LAST EDITED:  MAY 31, 1994
  • CROSS-REFERENCE:  ^^TRIGGER^9001003.8^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APCLVRPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9001003.8,.07,1,1,1.1) X ^DD(9001003.8,.07,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^APCLVSTS(+D0,0)) D0=-1 S Y(101)=$S($D(^APCLVSTS(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^APCLVRPT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=9001003.8,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^APCLVRPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9001003.8,.07,1,1,2.1) X ^DD(9001003.8,.07,1,1,2.4)
    2.1)= S X=DIV X ^DD(9001003.8,.07,1,1,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^APCLVRPT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=9001003.8,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^APCLVRPT(D0,0)):^(0),1:""),D0=$P(Y(1),U,7) S:'$D(^APCLVSTS(+D0,0)) D0=-1 S Y(101)=$S($D(^APCLVSTS(D0,0)):^(0),1:"")
    CREATE VALUE)= #.07:#.01
    DELETE VALUE)= #.07:#.01
    FIELD)= #.08
.08 SORT TEXT 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  MAY 31, 1994
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • NOTES:  TRIGGERED by the SORT ITEM field of the PCC MAN REPORTS VISIT REPORT TEMP File
.09 PACKAGE 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X
  • LAST EDITED:  JUL 11, 1994
  • HELP-PROMPT:  Answer must be 2-4 characters in length.
.12 FLAT FILE NAME 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  DEC 27, 1995
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
.13 USER CREATED 0;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 13, 1996
1101 SCREEN ITEMS 11;0 POINTER Multiple #9001003.81101 9001003.81101
1102 PRINT ITEMS 12;0 POINTER Multiple #9001003.81102 9001003.81102
1301 APCLBD 13;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 05, 2001
1302 APCLED 13;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  APR 05, 2001
1303 APCLTITL 13;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>99!($L(X)<1) X
  • LAST EDITED:  APR 05, 2001
  • HELP-PROMPT:  Answer must be 1-99 characters in length.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All