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 | All

Print Page as PDF

Global: ^BCHRPAT

Package: IHS RPMS CHR System

Global: ^BCHRPAT

Information

FileMan FileNo	FileMan Filename	Package
90002.11	CHR NON REGISTERED PATIENTS	IHS RPMS CHR System

Description

Directly Accessed By Routines, Total: 7

Accessed By FileMan Db Calls, Total: 5

Pointed To By FileMan Files, Total: 2

Pointer To FileMan Files, Total: 3

Fields, Total: 9

Field #	Name	Loc	Type	Details
.01	PATIENT NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>30!($L(X)<3) X I $D(X) K DG20NAME S DG20NAME=X,(X,DG20NAME)=$$FORMAT^DPTNAME(.DG20NAME,3,30) K:'$L(X) X,DG20NAME S:$D(X) DGNEWVAL=X` LAST EDITED: `NOV 16, 2011` HELP-PROMPT: `Answer must be 3-30 characters in length.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `90002.11^B` 1)= S ^BCHRPAT("B",$E(X,1,30),DA)="" 2)= K ^BCHRPAT("B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^90002.11^.09` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHRPAT(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X="CHR"_DA S DIH=$G(^BCHRPAT(DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=90002.11,DIG=.09 D ^DICR 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BCHRPAT(D0,0)):^(0),1:"") S X=$P(Y(1),U,9),X=X S DIU=X K Y S X=DIV S X="CHR"_DA S DIH=$G(^BCHRPAT(DIV(0),0)),DIV=X S $P(^(0),U,9)=DIV,DIH=90002.11,DIG=.09 D ^DICR CREATE VALUE)= S X="CHR"_DA DELETE VALUE)= S X="CHR"_DA FIELD)= #.09 CROSS-REFERENCE: `90002.11^C^SOUNDEX` 1)= S I=$E(X,1,27) D SOU^DICM S ^BCHRPAT("C",X_I,DA)="" 2)= S I=$E(X,1,27) D SOU^DICM K ^BCHRPAT("C",X_I,DA) CROSS-REFERENCE: `90002.11^D^KWIC` 1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^BCHRPAT("D",I,DA)="" 2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^BCHRPAT("D",I,DA)
.02	DOB	0;2	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EXP" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `NOV 16, 2011` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.03	GENDER	0;3	SET	**********************REQUIRED FIELD********************** 'F' FOR FEMALE; 'M' FOR MALE; LAST EDITED: `NOV 16, 2011`
.04	SSN	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>9!($L(X)<9)!'(X?9N) X` LAST EDITED: `MAR 23, 2011` HELP-PROMPT: `Answer must be 9 characters in length. Enter the SSN without the dashes`
.05	TRIBE	0;5	POINTER TO TRIBE FILE (#9999999.03)	**********************REQUIRED FIELD********************** TRIBE(#9999999.03) 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: `NOV 16, 2011` SCREEN: `S DIC("S")="I '$P(^(0),U,4)"` EXPLANATION: `Must not be an inactive tribe.`
.06	COMMUNITY OF RESIDENCE	0;6	POINTER TO COMMUNITY FILE (#9999999.05)	COMMUNITY(#9999999.05) LAST EDITED: `APR 15, 2011`
.07	HRN	0;7	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999999)!(X<1)!(X?.E1"."1N.N) X` LAST EDITED: `APR 15, 2011` HELP-PROMPT: `Type a Number between 1 and 9999999, 0 Decimal Digits`
.08	FACILITY	0;8	POINTER TO LOCATION FILE (#9999999.06)	LOCATION(#9999999.06) LAST EDITED: `APR 15, 2011`
.09	CHR INTERNAL NUMBER	0;9	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `MAY 24, 2011` HELP-PROMPT: `Answer must be 1-20 characters in length.` WRITE AUTHORITY: ^ UNEDITABLE NOTES: `TRIGGERED by the PATIENT NAME field of the CHR NON REGISTERED PATIENTS File`

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Pointer To FileMan Files | Fields | Found Entries | All