©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
Select the objects that you wish to see in the downloaded PDF
InfoBWUTL1 ;IHS/ANMC/MWR - UTIL: MOSTLY PATIENT DATA;11-Feb-2003 18:51;PLS
Source file <BWUTL1.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 1 | (,NOW)^%DTC |
| Women's Health | 1 | ($$AGENCY,$$SLDT2,$$TXDT)^BWUTL5 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| DES(DFN) | ;EP
; YIELD PATIENT'S STATUS AS A DES DAUGHTER: 1=YES, 0=NO. ; DFN=IEN PATIENT FILE |
|
| REFS(DFN) | ;EP
; RETURN REFERRAL SOURCE FOR THIS PATIENT (INTO CDC PROGRAM). ; DFN=IEN PATIENT FILE |
|
| CITY(DFN) | ;EP
; GET CITY ADDRESS. ; REQ: DFN=IEN PATIENT FILE |
|
| PAPRG1(PREG) | ;EP
; YIELD PATIENT'S PAP REGIMEN. ; REQ: PREG=IEN IN BW PAP REGIMEN FILE #9002086.03. |
|
| BNEED(DFN,TXDT) | ;PEP
; YIELD PATIENT'S BR TX NEED AND BR TX NEED DUE DATE. ; REQ: DFN=IEN PATIENT FILE ; OPT: TXDT=1 IF DATE SHOULD BE TEXT FORMAT. |
|
| EDC(DFN) | ;EP
; YIELD IF PATIENT IS PREGNANT, AND EDC. ; REQ: DFN=IEN PATIENT FILE |
|
| INACT(DFN) | ;EP
; DATE THIS PATIENT BECAME INACTIVE ; REQ: DFN=IEN PATIENT FILE |
|
| CURCOM(DFN) | ;EP
; GET CURRENT COMMUNITY IEN (ITEM 6 ON PAGE 1 OF REGISTRATION). ; REQ: DFN=IEN PATIENT FILE |
|
| DECEASED(DFN) | ;EP
; RETURN 1 IF PATIENT IS DECEASED, 0 IF NOT DECEASED. ; REQ: DFN=IEN PATIENT FILE |
|
| Z(X,Z) | ;EP
; SET Z = NUMERIC (1/1/95) OR TEXT (JAN 1,1995) FORMAT OF DATE. ; REQ: X=FILEMAN INTERNAL DATE FORMAT. ; OPT: Z=1 IF TEXT, 0/"" IF NUMERIC. |
|
| AGEAT(DFN,DATE) | ;EP
; YIELD PATIENT'S AGE IN YEARS AT GIVEN DATE. ; REQ: DFN =IEN PATIENT FILE ; DATE=DATE AT WHICH AGE IS DESIRED. |
|
| HRCN(DFN,DUZ2) | ;EP
; IHS HEALTH RECORD NUMBER. IF NOT IHS, RETURN SSN. ; REQ: DFN ; OPT: DUZ2 (SITE), IF NOT PASSED, ASSUMED =DUZ(2). |
|
| ZIP(DFN) | ;EP
; GET ZIPCODE ADDRESS. ; REQ: DFN=IEN PATIENT FILE |
|
| SEX(DFN) | ;EP
; RETURN 1 IF PATIENT IS FEMALE. ; REQ: DFN=IEN PATIENT FILE |
|
| SSN(DFN) | ;EP
; SOCIAL SECURITY NUMBER. ; REQ: DFN=IEN PATIENT FILE |
|
| NAME(DFN) | ;EP
; PATIENT NAME. ; REQ: DFN=IEN PATIENT FILE |
|
| CNEED(DFN,TXDT) | ;PEP
; YIELD PATIENT'S CX TX NEED AND CX TX NEED DUE DATE. ; REQ: DFN=IEN PATIENT FILE ; OPT: TXDT=1 IF DATE SHOULD BE TEXT FORMAT. |
|
| HPHONE(DFN) | ;EP
; GET HOME PHONE#. ; REQ: DFN=IEN PATIENT FILE |
|
| PROC1() | ;EP
; DISPLAY PROCEDURE TYPE OF THIS PROCEDURE, USING DA. ; CALLED BY BW PROC-HEADER-1, WHICH CANNOT USE X. ; REQ: DA=IEN OF PROCEDURE IN PROC FILE #9002086.1. |
|
| STATE(DFN) | ;EP
; GET STATE ADDRESS. ; REQ: DFN=IEN PATIENT FILE |
|
| NTPROC() | ;EP
; CALLED FROM BW NOTIF-EDITBLK-1(?) BLOCK TO DISPLAY PROCEDURE ; NAME, BASED ON ACCESSION# PTR, WHEN FIRST DISPLAYING SCREEN. ; REQ: X=ACCESSION# OF PROCEDURE |
|
| PRIOR1() | ;EP
; CALLED FROM BW NOTIF-EDITBLK-1 TO GET VALUE AND TEXT OF ; NOTIFICATION PRIORITY FROM PURPOSE OF NOTIFICATION AS AN ; ACTION WHEN EDITING PURPOSE OF NOTIFICATION. ALSO DISPLAY ; WHETHER PURPOSE IS A RESULT OR A REMINDER. ; REQ: X=IEN IN NOTIFICATION PURPOSE FILE. |
|
| PRIOR() | ;EP
; CALLED FROM BW NOTIF-EDITBLK-1 TO GET VALUE AND TEXT OF ; NOTIFICATION PRIORITY AND RESULT/REMINDER, FROM PURPOSE OF ; NOTIFICATION WHEN FIRST DISPLAYING SCREEN. ; REQ: DA=IEN OF NOTIFICATION. |
|
| AGE(DFN) | ;EP
; YIELD PATIENT'S AGE IN YEARS. ; REQ: DFN=IEN PATIENT FILE |
|
| NAMAGE(DFN) | ;EP
; PATIENT NAME CONCAT WITH AGE. ; REQ: DFN=IEN PATIENT FILE |
|
| ENRLDT(DFN,TXDT) | ;PEP
; YIELD PATIENT'S ENROLLMENT DATE. ; REQ: DFN=IEN PATIENT FILE ; OPT: TXDT=1 IF DATE SHOULD BE IN TEXT FORMAT. |
|
| ACC(IEN) | ;EP
; ACCESSION#; CONCATENATE SCREENING PAP IF IT EXISTS. ; IEN=IEN IN BW PROCEDURE FILE #9002086.1). |
|
| PERSON(X) | ;EP
; RETURN PERSON'S NAME FROM FILE #200. |
|
| CDCID(DFN) | ;EP
; CDC UNIQUE PATIENT ID. ; REQ: DFN=IEN PATIENT FILE |
|
| FAMHX(DFN) | ;EP
; RETURN FAMILY HISTORY OF BREAST CANCER. ; DFN=IEN PATIENT FILE |
|
| STREET(DFN) | ;EP
; GET STREET ADDRESS. ; REQ: DFN=IEN PATIENT FILE |
|
| PROC() | ;EP
; DISPLAY PROCEDURE TYPE OF THIS PROCEDURE. ; REQ: X=IEN OF PROCEDURE IN PROC FILE #9002086.1. |
|
| PAPRG(DFN,TXDT) | ;EP
; YIELD PATIENT'S PAP REGIMEN AND DATE IT BEGAN. ; REQ: DFN=IEN PATIENT FILE ; OPT: TXDT=1 IF DATE SHOULD BE TEXT FORMAT. |
|
| CMGR(DFN) | ;EP
; YIELD PATIENT'S CASE MANAGER. ; REQ: DFN=IEN PATIENT FILE |
|
| CTYSTZ(DFN) | ;EP
; GET ZIPCODE ADDRESS. ; REQ: DFN=IEN PATIENT FILE |
|
| DOB(DFN) | ;EP
; RETURN PATIENT'S DATE OF BIRTH IN FILEMAN FORMAT. ; REQ: DFN=IEN PATIENT FILE |
|
| HRCN1(DFN,DUZ2) | ;EP
; IHS HEALTH RECORD NUMBER, WITH NO DASHES INSERTED. ; REQUIRED VARIABLES: DFN, DUZ(2) |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNPAT - [#9000001] | HRCN1+4, HRCN1+5, HRCN1+6, CURCOM+5, CURCOM+6 |
| ^AUTTCOM - [#9999999.05] | CURCOM+8 |
| ^BWCUR - [#9002086.5] | CNEED+9, CNEED+11 |
| ^BWMAMT - [#9002086.51] | BNEED+10, BNEED+13 |
| ^BWNOT - [#9002086.4] | PRIOR+7, PRIOR+8, NTPROC+5 |
| ^BWNOTP - [#9002086.404] | PRIOR1+9, PRIOR1+10, PRIOR1+14 |
| ^BWP - [#9002086] | INACT+5, CDCID+4, CDCID+5, CMGR+5, CMGR+6, EDC+5, EDC+6, EDC+7, PAPRG+6, PAPRG+7 , PAPRG+8, CNEED+6, CNEED+7, CNEED+10, BNEED+6, BNEED+8, BNEED+12, DES+4, DES+6, FAMHX+5 , FAMHX+7, REFS+4, REFS+6, ENRLDT+6, ENRLDT+7 |
| ^BWPCD - [#9002086.1] | ACC+4, ACC+5, ACC+6, ACC+7, PROC+5, PROC+6, PROC+12 |
| ^BWPN - [#9002086.2] | PROC+8, PROC+9 |
| ^BWPR - [#9002086.03] | PAPRG1+4, PAPRG1+5 |
| ^DD(9002086 | DES+5, DES+8, FAMHX+6, FAMHX+9, REFS+5, REFS+8 |
| ^DD(9002086.404 | PRIOR1+12, PRIOR1+13 |
| ^DIC(5 - [#5] | STATE+6 |
| ^DPT - [#2] | NAME+4, NAME+5, DOB+4, DOB+5, AGE+7, DECEASED+4, DECEASED+5, SEX+4, SEX+5, INACT+4 , SSN+5, SSN+6, HPHONE+4, HPHONE+5, HPHONE+6, STREET+4, STREET+5, STREET+6, CITY+4, CITY+5 , CITY+6, STATE+4, STATE+5, STATE+6, ZIP+4, ZIP+5, ZIP+6 |
| ^VA(200 - [#200] | PERSON+3, PERSON+4 |
| Name | Line Occurrences |
|---|---|
| $$AGE | NAMAGE+4 |
| $$CITY | CTYSTZ+4 |
| $$DECEASED | AGE+7 |
| $$DOB | AGE+5, AGEAT+7 |
| $$HRCN1 | HRCN+6 |
| $$NAME | NAMAGE+4 |
| $$PAPRG1 | PAPRG+9 |
| $$PERSON | CMGR+7 |
| $$PRIOR1 | PRIOR+10 |
| $$PROC | NTPROC+6, PROC1+5 |
| $$SSN | HRCN+5 |
| $$STATE | CTYSTZ+4 |
| $$ZIP | CTYSTZ+4 |
| Z | PAPRG+8, CNEED+10, BNEED+12, ENRLDT+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> BWCUTF | AGE+7 |
| BWY | PROC+3~, PROC+6*, PROC+7, PROC+8, PROC+9 |
| BWYY | PROC+3~*, PROC+5, PROC+7, PROC+8 |
| >> DA | PRIOR+6, PRIOR+7, PRIOR+8, NTPROC+5, PROC1+4 |
| DATE | AGEAT~, AGEAT+6, AGEAT+9 |
| DFN | NAME~, NAME+3, NAME+4, NAME+5, DOB~, DOB+3, DOB+4, DOB+5, AGE~, AGE+4 , AGE+5, AGE+7, DECEASED~, DECEASED+3, DECEASED+4, DECEASED+5, SEX~, SEX+3, SEX+4, SEX+5 , INACT~, INACT+3, INACT+4, INACT+5, AGEAT~, AGEAT+5, AGEAT+7, NAMAGE~, NAMAGE+3, NAMAGE+4 , SSN~, SSN+4, SSN+5, SSN+6, CDCID~, CDCID+3, CDCID+4, CDCID+5, HRCN1~, HRCN1+3 , HRCN1+4, HRCN1+5, HRCN1+6, HRCN~, HRCN+5, HRCN+6, HPHONE~, HPHONE+3, HPHONE+4, HPHONE+5 , HPHONE+6, STREET~, STREET+3, STREET+4, STREET+5, STREET+6, CITY~, CITY+3, CITY+4, CITY+5 , CITY+6, STATE~, STATE+3, STATE+4, STATE+5, STATE+6, ZIP~, ZIP+3, ZIP+4, ZIP+5 , ZIP+6, CTYSTZ~, CTYSTZ+3, CTYSTZ+4, CURCOM~, CURCOM+4, CURCOM+5, CURCOM+6, CMGR~, CMGR+4 , CMGR+5, CMGR+6, EDC~, EDC+4, EDC+5, EDC+6, EDC+7, PAPRG~, PAPRG+5, PAPRG+6 , PAPRG+7, PAPRG+8, CNEED~, CNEED+5, CNEED+6, CNEED+7, CNEED+10, BNEED~, BNEED+5, BNEED+6 , BNEED+8, BNEED+12, DES~, DES+3, DES+4, DES+6, FAMHX~, FAMHX+4, FAMHX+5, FAMHX+7 , REFS~, REFS+3, REFS+4, REFS+6, ENRLDT~, ENRLDT+5, ENRLDT+6, ENRLDT+7 |
| DT | AGE+8*, AGE+9 |
| DUZ(2 | HRCN+4 |
| DUZ2 | HRCN1~, HRCN1+3, HRCN1+4, HRCN1+5, HRCN1+6, HRCN~, HRCN+4*, HRCN+5, HRCN+6 |
| IEN | ACC~, ACC+3, ACC+4, ACC+5, ACC+7 |
| PREG | PAPRG1~, PAPRG1+3, PAPRG1+4, PAPRG1+5 |
| R | PRIOR1+6~, PRIOR1+11*, PRIOR1+12*, PRIOR1+13*, PRIOR1+15, PRIOR1+16, PRIOR1+17 |
| TXDT | PAPRG~, PAPRG+8, CNEED~, CNEED+10, BNEED~, BNEED+12, ENRLDT~, ENRLDT+8 |
| U | NAME+5, DOB+4, DOB+5, SEX+5, INACT+5, SSN+6, CDCID+5, HPHONE+5, HPHONE+6, STREET+5 , STREET+6, CITY+5, CITY+6, STATE+5, STATE+6, ZIP+5, ZIP+6, CURCOM+6, CMGR+6, PERSON+4 , EDC+6, EDC+7, PAPRG+7, PAPRG+8, PAPRG1+5, CNEED+7, CNEED+10, CNEED+11, BNEED+8, BNEED+12 , BNEED+13, DES+6, FAMHX+7, REFS+6, ENRLDT+7, ACC+5, ACC+6, ACC+7, PRIOR+8, PRIOR1+10 , PRIOR1+14, NTPROC+5, PROC+6, PROC+9, PROC+12 |
| X | AGE+3~, AGE+8, AGE+11, AGEAT+4~, AGEAT+11, SSN+3~, SSN+6*, SSN+7, SSN+8, CMGR+3~ , CMGR+6*, CMGR+7, PERSON~, PERSON+2, PERSON+3, PERSON+4, EDC+3~, EDC+7*, EDC+10, PAPRG+4~ , PAPRG+8*, PAPRG+9, CNEED+4~, CNEED+10*, CNEED+11, BNEED+4~, BNEED+12*, BNEED+13, DES+6*, DES+7 , DES+8, FAMHX+3~, FAMHX+7*, FAMHX+8, FAMHX+9, REFS+6*, REFS+7, REFS+8, ENRLDT+4~, ENRLDT+7* , ENRLDT+8, ENRLDT+9, Z~, Z+4*, ACC+5~*, ACC+6*, ACC+7, PRIOR+5~, PRIOR+8*, PRIOR+9 , PRIOR1+7, PRIOR1+8, PRIOR1+9, PRIOR1+10, PRIOR1+14, NTPROC+4~, NTPROC+5*, PROC+4, PROC+5, PROC+6 , PROC+12, PROC1+4~* |
| X1 | AGE+3~, AGE+9*, AGEAT+4~, AGEAT+9* |
| X2 | AGE+3~, AGE+5*, AGE+6, AGEAT+4~, AGEAT+7*, AGEAT+8 |
| Y | HRCN+6~*, HRCN+7, HRCN+8, HRCN+9*, HRCN+10*, HRCN+11*, HRCN+12, CURCOM+3~, CURCOM+6*, CURCOM+7 , CURCOM+8, CURCOM+9, EDC+3~, EDC+6*, EDC+8, EDC+9*, EDC+10, PAPRG+4~, PAPRG+7*, PAPRG+9 , CNEED+4~, CNEED+7*, CNEED+8, CNEED+9, CNEED+11, BNEED+4~, BNEED+8*, BNEED+9, BNEED+10, BNEED+13 , PRIOR1+6~, PRIOR1+10*, PRIOR1+11, PRIOR1+13, PROC+3~, PROC+12*, PROC+13*, PROC+14, PROC+15 |
| Z | BNEED+4~, Z~, Z+4, PRIOR1+6~, PRIOR1+14*, PRIOR1+15, PRIOR1+16, PROC+3~, PROC+9*, PROC+14 , PROC+15 |