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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^BWNOT

Package: Women's Health

Global: ^BWNOT


Information

FileMan FileNo FileMan Filename Package
9002086.4 BW NOTIFICATION Women's Health

Description

Directly Accessed By Routines, Total: 13

Package Total Routines
Women's Health 13 BWBRNOT    BWGRVLU    BWGRVLU2    BWLETDQ    BWLETPR    BWNOTIF    BWPATCH2    BWPROF2
BWRPSNP    BWUTL1    BWUTL2    BWUTL4    ^BWNOT    

Accessed By FileMan Db Calls, Total: 4

Package Total Routines
Women's Health 4 BWGRVLU    BWGRVLU2    BWNOTIF    BWNOTIF1    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
Women's Health 5 BW NOTIFICATION OUTCOME(#9002086.405)[.05]    BW NOTIFICATION PURPOSE(#9002086.404)[.04]    BW NOTIFICATION TYPE(#9002086.403)[.03]    BW PATIENT(#9002086)[.01]    BW PROCEDURE(#9002086.1)[.06]    
Utility Tables 1 LOCATION(#9999999.06)[.07]    

Fields, Total: 14

Field # Name Loc Type Details
.01 PATIENT 0;1 POINTER TO BW PATIENT FILE (#9002086)
************************REQUIRED FIELD************************
BW PATIENT(#9002086)

  • LAST EDITED:  SEP 17, 1994
  • CROSS-REFERENCE:  9002086.4^B
    1)= S ^BWNOT("B",$E(X,1,30),DA)=""
    2)= K ^BWNOT("B",$E(X,1,30),DA)
.02 DATE NOTIFICATION OPENED 0;2 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 25, 1994
  • HELP-PROMPT:  This is the date that the Notification was first entered, the beginning of the process to contact the patient with information.
  • CROSS-REFERENCE:  9002086.4^AOPEN^MUMPS
    1)= I "o"[$P(^BWNOT(DA,0),U,14) S ^BWNOT("AOPEN",X,DA)=""
    2)= K ^BWNOT("AOPEN",X,DA)
    The "AOPEN",DATE xref, exists only for those entries where there has been no closure to the notification, i.e., the patient has not yet been reached or has not yet responded.
  • CROSS-REFERENCE:  9002086.4^D
    1)= S ^BWNOT("D",$E(X,1,30),DA)=""
    2)= K ^BWNOT("D",$E(X,1,30),DA)
.03 TYPE OF NOTIFICATION 0;3 POINTER TO BW NOTIFICATION TYPE FILE (#9002086.403) BW NOTIFICATION TYPE(#9002086.403)

  • LAST EDITED:  OCT 03, 1994
.04 PURPOSE OF NOTIFICATION 0;4 POINTER TO BW NOTIFICATION PURPOSE FILE (#9002086.404) BW NOTIFICATION PURPOSE(#9002086.404)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,4)'=0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 16, 1995
  • SCREEN:  S DIC("S")="I $P(^(0),U,4)'=0"
  • EXPLANATION:  Select the purpose for this Notification.
.05 OUTCOME 0;5 POINTER TO BW NOTIFICATION OUTCOME FILE (#9002086.405) BW NOTIFICATION OUTCOME(#9002086.405)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)'=0" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 20, 1995
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)'=0"
  • EXPLANATION:  Select the outcome for this Notification.
.06 ACCESSION# 0;6 POINTER TO BW PROCEDURE FILE (#9002086.1) BW PROCEDURE(#9002086.1)

  • INPUT TRANSFORM:  S DIC("S")="I $D(BWDFN) I $P(^(0),U,2)=BWDFN" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 26, 1996
  • HELP-PROMPT:  Select an Accession number from the Procedure file for this patient.
  • SCREEN:  S DIC("S")="I $D(BWDFN) I $P(^(0),U,2)=BWDFN"
  • EXPLANATION:  Only Accession#'s pertaining to this patient may be selected.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  9002086.4^C^MUMPS
    1)= S ^BWNOT("C",$P(^BWPCD(X,0),U),DA)=""
    2)= K ^BWNOT("C",$P(^BWPCD(X,0),U))
.07 FACILITY 0;7 POINTER TO LOCATION FILE (#9999999.06) LOCATION(#9999999.06)

  • LAST EDITED:  FEB 23, 1996
  • HELP-PROMPT:  Select the Health Care Facility with which this Notification is associated and, if a letter, where it will be printed.
.08 DATE NOTIFICATION CLOSED 0;8 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JUL 22, 1994
  • HELP-PROMPT:  This is the date that an outcome for this Notification was entered and the Notification marked CLOSED.
.09 PT EDUCATION 0;9 SET
  • 'n' FOR NO;
  • 'y' FOR YES;
  • 'v' FOR VILLAGE;
  • 'c' FOR CLINIC;

  • LAST EDITED:  APR 29, 1995
  • HELP-PROMPT:  Enter whether or not patient education occurred. Enter "clinic" or "village" if it occurred at a remote location.
.1 DATE LETTER PRINTED 0;10 DATE

  • INPUT TRANSFORM:  S %DT="ETX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  NOV 18, 1997
  • HELP-PROMPT:  If the TYPE OF NOTIFICATION is a LETTER, then enter the date the letter was printed.
  • CROSS-REFERENCE:  9002086.4^APRD
    1)= S ^BWNOT("APRD",$E(X,1,30),DA)=""
    2)= K ^BWNOT("APRD",$E(X,1,30),DA)
.11 PRINT DATE 0;11 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 03, 1994
  • HELP-PROMPT:  Enter the date on which you would like this letter printed.
  • CROSS-REFERENCE:  9002086.4^APRT
    1)= S ^BWNOT("APRT",$E(X,1,30),DA)=""
    2)= K ^BWNOT("APRT",$E(X,1,30),DA)
.13 COMPLETE BY (DATE) 0;13 DATE

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  SEP 18, 1994
  • HELP-PROMPT:  Enter the date after which this notification will be marked "DELINQUENT" if it has not been "CLOSED".
.14 STATUS 0;14 SET
  • 'o' FOR OPEN;
  • 'c' FOR CLOSED;
  • 'e' FOR ERROR;

  • LAST EDITED:  AUG 12, 2003
  • HELP-PROMPT:  Enter the Status for this Notification. An Error status will prevent entry from being printed.
  • CROSS-REFERENCE:  9002086.4^AOPENS^MUMPS
    1)= S:"o"[X ^BWNOT("AOPEN",$P(^BWNOT(DA,0),U,2),DA)="" K:"ce"[X ^BWNOT("AOPEN",$P(^BWNOT(DA,0),U,2),DA)
    2)= ;
.15 TIME REQUIRED 0;15 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1.N) X
  • LAST EDITED:  JUL 09, 2003
  • HELP-PROMPT:  Enter the number of minutes that you spent on the notification.

External References

Name Field # of Occurrence
^%DT .02+1, .08+1, .1+1, .11+1, .13+1
^DIC .04+1, .05+1, .06+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BWNOT - [#9002086.4] ID.02+1, .02(XREF 1S), .14(XREF 1S)
^BWNOT("AOPEN" .02(XREF 1S), .02(XREF 1K), .14(XREF 1S)
^BWNOT("APRD" .1(XREF 1S), .1(XREF 1K)
^BWNOT("APRT" .11(XREF 1S), .11(XREF 1K)
^BWNOT("B" .01(XREF 1S), .01(XREF 1K)
^BWNOT("C" .06(XREF 1S), .06(XREF 1K)
^BWNOT("D" .02(XREF 2S), .02(XREF 2K)
^BWPCD - [#9002086.1] ID.02+1, .06(XREF 1S), .06(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %DT .02+1*, .08+1*, .1+1*, .11+1*, .13+1*
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .06(XREF 1S), .1(XREF 1S), .1(XREF 1K), .11(XREF 1S)
, .11(XREF 1K), .14(XREF 1S)
DIC .04+1!*, .05+1!*, .06+1!*
DIC("S" .04+1*, .04SCR+1*, .05+1*, .05SCR+1*, .06+1*, .06SCR+1*
>> DIE .04+1, .05+1, .06+1
U ID.02+1, .02(XREF 1S), .06(XREF 1S), .06(XREF 1K), .14(XREF 1S)
X .01(XREF 1S), .01(XREF 1K), .02+1*!, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .04+1*!, .05+1*!, .06+1*!
, .06(XREF 1S), .06(XREF 1K), .08+1*!, .1+1*!, .1(XREF 1S), .1(XREF 1K), .11+1*!, .11(XREF 1S), .11(XREF 1K), .13+1*!
, .14(XREF 1S), .15+1!
>> Y ID.02+1, .02+1, .04+1, .05+1, .06+1, .08+1, .1+1, .11+1, .13+1
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All