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 |  Found Entries |  All
Print Page as PDF
Global: ^BJPNPL

Package: IHS Prenatal Care Module

Global: ^BJPNPL


Information

FileMan FileNo FileMan Filename Package
90680.01 BJPN PRENATAL PROBLEMS IHS Prenatal Care Module

Description

Directly Accessed By Routines, Total: 5

Package Total Routines
IHS Prenatal Care Module 4 BJPN10PS    BJPN20PR    BJPN20PS    BJPNPSET    
iCare 1 BQIRGPG    

Accessed By FileMan Db Calls, Total: 23

Package Total Routines
IHS Prenatal Care Module 20 BJPN10PS    BJPN20PS    BJPNAPI    BJPNAPI1    BJPNAPI2    BJPNCPIP    BJPNGNOT    BJPNGPIP
BJPNPBDT    BJPNPCHK    BJPNPDET    BJPNPKL    BJPNPRL    BJPNPRNT    BJPNPRUT    BJPNPSET
BJPNPUP    BJPNPUTL    BJPNSPRB    BJPNVFIL    
IHS GPRA Information System 3 BGP6UTL2    BGP7UTL2    BGP8UTL2    

Pointer To FileMan Files, Total: 4

Package Total FileMan Files
IHS Patient 2 PATIENT(#9000001)[.02]    PROBLEM(#9000011)[.1]    
Kernel 1 NEW PERSON(#200)[1.02, 1.04, 2.01, #90680.014(.03), #90680.014(2.01), #90680.015(.03)]    
Utility Tables 1 PROVIDER NARRATIVE(#9999999.27)[.05]    

Fields, Total: 21

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

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 17, 2014
  • HELP-PROMPT:  Field gets populated with either pointer to 90680.02 or to the SNOMED file.
  • AUDIT:  YES, ALWAYS
  • CROSS-REFERENCE:  90680.01^B
    1)= S ^BJPNPL("B",$E(X,1,30),DA)=""
    2)= K ^BJPNPL("B",$E(X,1,30),DA)
.02 PATIENT NAME 0;2 POINTER TO PATIENT FILE (#9000001)
************************REQUIRED FIELD************************
PATIENT(#9000001)

  • LAST EDITED:  APR 17, 2014
  • AUDIT:  YES, ALWAYS
  • CROSS-REFERENCE:  90680.01^D
    1)= S ^BJPNPL("D",$E(X,1,30),DA)=""
    2)= K ^BJPNPL("D",$E(X,1,30),DA)
  • RECORD INDEXES:  AC (#403), AN (#404), F (#579), G (#581)
.03 *SNOMED TERM 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  JUL 21, 2014
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
  • CROSS-REFERENCE:  90680.01^C
    1)= S ^BJPNPL("C",$E(X,1,30),DA)=""
    2)= K ^BJPNPL("C",$E(X,1,30),DA)
  • RECORD INDEXES:  AC (#403)
.04 *SNOMED TERM (FUTURE) 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  FEB 17, 2014
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • AUDIT:  YES, ALWAYS
  • RECORD INDEXES:  AN (#404)
.05 *PROVIDER TEXT 0;5 POINTER TO PROVIDER NARRATIVE FILE (#9999999.27) PROVIDER NARRATIVE(#9999999.27)

  • LAST EDITED:  FEB 17, 2014
.06 CURRENT PRIORITY 0;6 SET
  • 'L' FOR Low;
  • 'M' FOR Medium;
  • 'H' FOR High;

  • LAST EDITED:  JAN 29, 2014
  • AUDIT:  YES, ALWAYS
.07 CURRENT SCOPE 0;7 SET
  • 'A' FOR Prior Pregnancy;
  • 'C' FOR Current Pregnancy;

  • LAST EDITED:  JUN 21, 2016
  • AUDIT:  YES, ALWAYS
.08 CURRENT STATUS 0;8 SET
  • 'A' FOR Active;
  • 'I' FOR Inactive;

  • LAST EDITED:  JAN 29, 2014
  • AUDIT:  YES, ALWAYS
.09 CURRENT DEFINITIVE EDD 0;9 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 29, 2014
  • AUDIT:  YES, ALWAYS
.1 PROBLEM 0;10 POINTER TO PROBLEM FILE (#9000011) PROBLEM(#9000011)

  • LAST EDITED:  FEB 06, 2014
  • DESCRIPTION:  
    Pointer to the new IPL PROBLEM file structure.
  • AUDIT:  YES, ALWAYS
  • CROSS-REFERENCE:  90680.01^E
    1)= S ^BJPNPL("E",$E(X,1,30),DA)=""
    2)= K ^BJPNPL("E",$E(X,1,30),DA)
  • RECORD INDEXES:  F (#579), G (#581)
1.01 *ORIGINAL ENTRY DATE 1;1 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 17, 2014
  • AUDIT:  YES, ALWAYS
1.02 *ORIGINAL ENTERED BY 1;2 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 17, 2014
  • AUDIT:  YES, ALWAYS
1.03 *LAST MODIFIED DATE/TIME 1;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 17, 2014
  • AUDIT:  YES, ALWAYS
1.04 *LAST MODIFIED BY 1;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  FEB 17, 2014
  • AUDIT:  YES, ALWAYS
2.01 PROBLEM DELETED BY 2;1 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JAN 29, 2014
  • AUDIT:  YES, ALWAYS
2.02 DATE/TIME PROBLEM DELETED 2;2 DATE

  • INPUT TRANSFORM:  S %DT="EST" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 29, 2014
  • AUDIT:  YES, ALWAYS
2.03 REASON PROBLEM DELETED 2;3 SET
  • 'D' FOR Duplicate;
  • 'E' FOR Entered In Error;
  • 'O' FOR Other;

  • LAST EDITED:  JAN 29, 2014
  • AUDIT:  YES, ALWAYS
2.04 DELETE REASON IF OTHER 2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>100!($L(X)<2) X
  • LAST EDITED:  JAN 29, 2014
  • HELP-PROMPT:  Answer must be 2-100 characters in length.
  • AUDIT:  YES, ALWAYS
3 *CURRENT NOTE 3;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>160!($L(X)<2) X
  • LAST EDITED:  FEB 17, 2014
  • HELP-PROMPT:  Answer must be 2-160 characters in length.
4 *HISTORICAL NOTES 4;0 Multiple #90680.014 90680.014

  • LAST EDITED:  FEB 17, 2014
5 IPL PIP 5;0 DATE Multiple #90680.015 90680.015
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All