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 | Fields | ICR | Found Entries | External References | Global Variables Directly Accessed | Local Variables | All

Print Page as PDF

Global: ^DIC(21

Package: Registration

Global: ^DIC(21

Information

FileMan FileNo	FileMan Filename	Package
21	PERIOD OF SERVICE	Registration

Description

Directly Accessed By Routines, Total: 41

Package	Total	Routines
Registration	27	^DIC(21 DG53367A DG53654P DGCOL DGDEATH DGENELA1 DGENUPL1 DGENUPL3 DGENUPL4 DGLOCK1 DGPMBSR2 DGPMV DGPMVODS DGPTF4 DGPTR0 DGQEMPS DGRP7 DGRPC DGRPC1 DGRPC2 DGRPD DGRPTL2 DGRRPSEE DGYZODS VADPT4 VAFHLZSP ^DPT
Scheduling	6	SCDXUTL0 SCMSVUT1 SCMSVUT3 SDAMEP2 SDCO22 SDPPAT2
Lab Service	4	LREPI3 LREPIRP2 LREPIRS1 LREPIRS3
Beneficiary Travel	1	DGBTCR1
IHS Changes To ADT	1	ADGRPD
IHS Changes To Lab	1	BLRDPT4
IHS Electronic Health Record	1	BEHOPTC1

Accessed By FileMan Db Calls, Total: 4

Package	Total	Routines
Registration	3	DG53P314 DG53P524 DGYQPOST
Scheduling	1	SDWLTR

Pointed To By FileMan Files, Total: 2

Package	Total	FileMan Files
Registration	2	POW PERIOD(#22)[101] VA PATIENT(#2)[.323]

Fields, Total: 7

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>25!($L(X)<4) X` LAST EDITED: `MAR 26, 1984` HELP-PROMPT: `ANSWER MUST BE 4-25 CHARACTERS IN LENGTH` DELETE TEST: `.01,0)= I 1` CROSS-REFERENCE: `21^B` 1)= S ^DIC(21,"B",$E(X,1,30),DA)="" 2)= K ^DIC(21,"B",$E(X,1,30),DA)
.02	ABBREVIATION	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!(X'?.ANP)!(X<0) X I $D(X) K:$L(X)>9!($L(X)<2) X` HELP-PROMPT: `MAXIMUM LENGTH: 9, MINIMUM LENGTH: 2` CROSS-REFERENCE: `21^C` 1)= S ^DIC(21,"C",X,DA)="" 2)= K ^DIC(21,"C",X,DA)
.03	CODE	0;3	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>1!($L(X)<1) X` LAST EDITED: `OCT 14, 1982` HELP-PROMPT: `ANSWER MUST BE 1 CHARACTER IN LENGTH` CROSS-REFERENCE: `21^D` 1)= S ^DIC(21,"D",$E(X,1,30),DA)="" 2)= K ^DIC(21,"D",$E(X,1,30),DA)
.04	BEGIN DATE	0;4	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X`
.05	END DATE	0;5	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X`
.06	WAR/PEACE	0;6	SET	'W' FOR WAR; 'P' FOR PEACE;
.07	LATEST DOB	0;7	DATE	INPUT TRANSFORM: `S %DT="E" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `MAR 26, 1984` HELP-PROMPT: `Enter the latest year in which a person could be born and still serve in this period.`

ICR, Total: 8

ICR LINK	Subscribing Package(s)	Fields Referenced	Description
ICR #702	FEE BASIS
ICR #732	Automated Medical Information Exchange
ICR #913	LAB SERVICE ACCOUNTS RECEIVABLE	NAME (.01). Access: Direct Global Read & w/Fileman
ICR #1847	DSS EXTRACTS	CODE (.03). Access: Read w/Fileman
ICR #2504	LAB SERVICE	ABBREVIATION (2). Access: Read w/Fileman
ICR #3529	BENEFICIARY TRAVEL SCHEDULING	CODE (.03). Access: Direct Global Read & w/Fileman
ICR #4280	LAB SERVICE	CODE (.03). Access: Direct Global Read & w/Fileman
ICR #5346	Fee Basis	CODE (.03). Access: Direct Global Read & w/Fileman

External References

Name	Field # of Occurrence
^%DT	.04+1, .05+1, .07+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(21 - [#21]	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.04+1, .05+1, .07+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K), .03+1!, .03(XREF 1S), .03(XREF 1K), .04+1! , .05+1!, .07+1*!
>> Y	.04+1, .05+1, .07+1

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointed To By FileMan Files | Fields | ICR | Found Entries | External References | Global Variables Directly Accessed | Local Variables | All