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 |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^BWPN

Package: Women's Health

Global: ^BWPN


Information

FileMan FileNo FileMan Filename Package
9002086.2 BW PROCEDURE TYPE Women's Health

Description

Directly Accessed By Routines, Total: 13

Package Total Routines
Women's Health 12 BW2P13IN    BWDIAG    BWPCC    BWPCC1    BWPCC2    BWPROC    BWPROF2    BWRPPCD2
BWUTL1    BWUTL4    BWUTL5    BWUTL6    
Tracking Procedure Workflow 1 BTPWPFND    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Women's Health 2 BWMPMAIN    BWP10ENV    
IHS Mods To Text Integration Utilities 1 BTIULO2    

Pointed To By FileMan Files, Total: 4

Package Total FileMan Files
Women's Health 3 BW RESULTS/DIAGNOSIS(#9002086.31)[.03, .04, .05, .06, .07, .08, .09, .1, .11, .12, .13, .14, .15, .16, .17, .18, .19]    BW MDE FORMAT(#9002086.96)[#9002086.9611(.01)]    BW PROCEDURE(#9002086.1)[.04, 2.37]    
Tracking Procedure Workflow 1 CM EVENT(#90621)[.05]    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
CPT Files 1 CPT(#81)[.08]    
DRG Grouper 1 ICD OPERATION/PROCEDURE(#80.1)[.09, .14]    
Lab Service 1 LABORATORY TEST(#60)[.15]    
Radiology Nuclear Medicine 1 RAD/NUC MED PROCEDURES(#71)[.17]    
Utility Tables 1 EXAM(#9999999.15)[.16]    
VA Fileman 1 FILE(#1)[.12]    

Fields, Total: 16

Field # Name Loc Type Details
.01 PROCEDURE TYPE 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  MAR 12, 1996
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DELETE TEST:  .01,0)= I 1 D EN^DDIOL("DELETIONS ARE NOT ALLOWED")
  • LAYGO TEST:  .01,0)= D:'$D(XPDGREF) EN^DDIOL("ADDITIONS ARE NOT ALLOWED") I $D(XPDGREF)
    UNEDITABLE
  • CROSS-REFERENCE:  9002086.2^B
    1)= S ^BWPN("B",$E(X,1,30),DA)=""
    2)= K ^BWPN("B",$E(X,1,30),DA)
.02 ABBREVIATION 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>8!($L(X)<1) X
  • LAST EDITED:  MAR 12, 1996
  • HELP-PROMPT:  Answer must be 1-8 characters in length.
  • CROSS-REFERENCE:  9002086.2^C
    1)= S ^BWPN("C",$E(X,1,30),DA)=""
    2)= K ^BWPN("C",$E(X,1,30),DA)
.03 ASK COLPOSCOPY-TYPE RESULTS 0;3 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAR 12, 1996
  • HELP-PROMPT:  This field indicates that Colposcopy-type results (page 2) should be available when editing this Procedure.
.04 ACCESSION PREFIX 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  MAR 12, 1996
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • CROSS-REFERENCE:  9002086.2^D
    1)= S ^BWPN("D",$E(X,1,30),DA)=""
    2)= K ^BWPN("D",$E(X,1,30),DA)
.06 LAST ACCESSION# 0;6 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>15!($L(X)<1) X
  • LAST EDITED:  JUL 05, 1994
  • HELP-PROMPT:  Answer must be 1-15 characters in length.
.08 CPT CODE 0;8 POINTER TO CPT FILE (#81) CPT(#81)

  • INPUT TRANSFORM:  S DIC("S")="I $$SCRN^BWFMAN(DA)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 19, 2014
  • SCREEN:  S DIC("S")="I $$SCRN^BWFMAN(DA)"
  • EXPLANATION:  Selection restricted to active codes.
.09 ICD CODE 0;9 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,9)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 21, 2003
  • SCREEN:  S DIC("S")="I '$P(^(0),U,9)"
  • EXPLANATION:  Selection restricted to active codes.
.11 ASK MARGINS CLEAR? QUESTION 0;11 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  OCT 16, 1994
  • HELP-PROMPT:  Should the question "MARGINS CLEAR?" be asked on PAGE 2 of Treatment data screen.
.12 PCC V FILE 0;12 POINTER TO FILE FILE (#1) FILE(#1)

  • LAST EDITED:  JAN 18, 1996
  • HELP-PROMPT:  Enter the PCC V File where procedures of the Procedure Type will be stored.
.13 CDC EXPORT 0;13 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUL 17, 1995
  • HELP-PROMPT:  Enter "YES" if this is a Procedure Type that should be exported to CDC by MDE-reporting sites.
.14 PCC PROCEDURE(ICD0) FILE PTR 0;14 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1) ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,9)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 21, 2003
  • HELP-PROMPT:  Select the ICD OPERATION/PROCEDURE that is the equivalent of this Women's Health Procedure. The ICD OP/PROC you select will be the one passed to the PCC files for this Women's Health Procedure.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,9)"
  • EXPLANATION:  Selection restricted to active codes.
.15 PCC LAB TEST FILE PTR 0;15 POINTER TO LABORATORY TEST FILE (#60) LABORATORY TEST(#60)

  • LAST EDITED:  JAN 25, 1996
  • HELP-PROMPT:  Select the LABORATORY TEST that is the equivalent of this Women's Health Procedure. The LAB TEST you select will be the one passed to the PCC files for this Women's Health Procedure.
.16 PCC EXAM FILE PTR 0;16 POINTER TO EXAM FILE (#9999999.15) EXAM(#9999999.15)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,4)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 22, 2003
  • HELP-PROMPT:  Select the EXAM type that is the equivalent of this Women's Health Procedure. The EXAM type you select will be the one passed to the PCC files for this Women's Health Procedure.
  • SCREEN:  S DIC("S")="I '$P(^(0),U,4)"
  • EXPLANATION:  Selection restricted to active codes.
.17 PCC RAD PROCEDURE FILE PTR 0;17 POINTER TO RAD/NUC MED PROCEDURES FILE (#71) RAD/NUC MED PROCEDURES(#71)

  • LAST EDITED:  JAN 26, 1996
  • HELP-PROMPT:  Select the RADIOLOGY PROCEDURE that is the equivalent of this Women's Health Procedure. The RADIOLOGY PROCEDURE that you select will be the one passed to the PCC files for this Women's Health proc.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.2 SYNONYM1 0;20 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  FEB 10, 1996
  • HELP-PROMPT:  Enter a synonym for this Procedure Type.
  • CROSS-REFERENCE:  9002086.2^E
    1)= S ^BWPN("E",$E(X,1,30),DA)=""
    2)= K ^BWPN("E",$E(X,1,30),DA)
.21 SYNONYM2 0;21 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
  • LAST EDITED:  FEB 10, 1996
  • HELP-PROMPT:  Enter a synomym for this Procedure Type.
  • CROSS-REFERENCE:  9002086.2^F
    1)= S ^BWPN("F",$E(X,1,30),DA)=""
    2)= K ^BWPN("F",$E(X,1,30),DA)

Found Entries, Total: 33

PROCEDURE TYPE: BREAST ULTRASOUND    PROCEDURE TYPE: CLINICAL BREAST EXAM    PROCEDURE TYPE: COLPOSCOPY IMPRESSION (NO BX)    PROCEDURE TYPE: COLPOSCOPY W/BIOPSY    PROCEDURE TYPE: CONE BIOPSY    PROCEDURE TYPE: CRYOTHERAPY    PROCEDURE TYPE: ECTOCERVICAL BIOPSY    PROCEDURE TYPE: ENDOCERVICAL CURRETTAGE    
PROCEDURE TYPE: ENDOMETRIAL BIOPSY    PROCEDURE TYPE: FINE NEEDLE ASPIRATION    PROCEDURE TYPE: GENERAL SURGERY CONSULT    PROCEDURE TYPE: GYN ONC CONSULT    PROCEDURE TYPE: HPV SCREEN    PROCEDURE TYPE: HYSTERECTOMY    PROCEDURE TYPE: LASER ABLATION    PROCEDURE TYPE: LASER CONE    
PROCEDURE TYPE: LEEP    PROCEDURE TYPE: LUMPECTOMY    PROCEDURE TYPE: MAMMOGRAM DX BILAT    PROCEDURE TYPE: MAMMOGRAM DX UNILAT    PROCEDURE TYPE: MAMMOGRAM SCREENING    PROCEDURE TYPE: MAMMOGRAPHY PROJECT    PROCEDURE TYPE: MASTECTOMY    PROCEDURE TYPE: NEEDLE BIOPSY    
PROCEDURE TYPE: OPEN BIOPSY    PROCEDURE TYPE: PAP SMEAR    PROCEDURE TYPE: PELVIC ULTRASOUND    PROCEDURE TYPE: PREGNANCY TEST    PROCEDURE TYPE: STD EVALUATION    PROCEDURE TYPE: STEREOTACTIC BIOPSY    PROCEDURE TYPE: TUBAL LIGATION    PROCEDURE TYPE: VAGINAL ULTRASOUND    
PROCEDURE TYPE: WISE WOMAN    

External References

Name Field # of Occurrence
EN^DDIOL .01DEL.01+1, .01LAYGO.01+1
^DIC .08+1, .09+1, .14+1, .16+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BWPN("B" .01(XREF 1S), .01(XREF 1K)
^BWPN("C" .02(XREF 1S), .02(XREF 1K)
^BWPN("D" .04(XREF 1S), .04(XREF 1K)
^BWPN("E" .2(XREF 1S), .2(XREF 1K)
^BWPN("F" .21(XREF 1S), .21(XREF 1K)

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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