Global: ^VEN(7.2

FileMan FileNo	FileMan Filename	Package
19707.2	VEN QUEUE	PCC New Encounter Form

Directly Accessed By Routines, Total: 6

Package	Total	Routines
PCC New Encounter Form	5	VENPCCA VENPCCMF VENPCCP3 VENPCCU VENPCCW
Local Area Programs	1	AZAXDPM2

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
PCC New Encounter Form	3	VENPCCA VENPCCMF VENPCCP3

Pointed To By FileMan Files, Total: 1

Package	Total	FileMan Files
PCC New Encounter Form	1	VEN QUEUE(#19707.2)[.09]

Pointer To FileMan Files, Total: 6

Package	Total	FileMan Files
PCC New Encounter Form	3	VEN QUEUE(#19707.2)[.09] VEN QUEUE TYPE(#19707.22)[.03] VEN EHP CLINIC(#19707.95)[.04, .12]
IHS Patient	1	VISIT(#9000010)[1.2]
Kernel	1	NEW PERSON(#200)[.06, .07, .1, .11, 1.5]
Registration	1	VA PATIENT(#2)[1.1]

Fields, Total: 24

Field #	Name	Loc	Type	Details
.01	TIME IN	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 20, 2000` CROSS-REFERENCE: `19707.2^B` 1)= S ^VEN(7.2,"B",$E(X,1,30),DA)="" 2)= K ^VEN(7.2,"B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^19707.2^.05` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=1 X ^DD(19707.2,.01,1,2,1.4) 1.4)= S DIH=$S($D(^VEN(7.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=19707.2,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= S X=1 DELETE VALUE)= NO EFFECT FIELD)= STATUS
.02	TIME OUT	0;2	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 20, 2000` CROSS-REFERENCE: `^^TRIGGER^19707.2^.08` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y S X=DIV S X=$$LEN^VENPCCU(D0) X ^DD(19707.2,.02,1,1,1.4) 1.4)= S DIH=$S($D(^VEN(7.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=19707.2,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= S X=$$LEN^VENPCCU(D0) DELETE VALUE)= NO EFFECT FIELD)= DURATION CROSS-REFERENCE: `^^TRIGGER^19707.2^.05` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,5),X=X S DIU=X K Y S X=DIV S X=0 X ^DD(19707.2,.02,1,2,1.4) 1.4)= S DIH=$S($D(^VEN(7.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,5)=DIV,DIH=19707.2,DIG=.05 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= S X=0 DELETE VALUE)= NO EFFECT FIELD)= STATUS
.03	QUEUE TYPE	0;3	POINTER TO VEN QUEUE TYPE FILE (#19707.22)	VEN QUEUE TYPE(#19707.22) LAST EDITED: `OCT 20, 2000`
.04	QUEUE DESTINATION	0;4	POINTER TO VEN EHP CLINIC FILE (#19707.95)	VEN EHP CLINIC(#19707.95) LAST EDITED: `FEB 20, 2001` CROSS-REFERENCE: `19707.2^AD` 1)= S ^VEN(7.2,"AD",$E(X,1,30),DA)="" 2)= K ^VEN(7.2,"AD",$E(X,1,30),DA)
.05	STATUS	0;5	SET	'1' FOR PENDING; '0' FOR RESOLVED; '4' FOR CANCELLED; '2' FOR ACTIVE; '-2' FOR EXPIRED; '3' FOR STANDBY; '-1' FOR DONT USE ANYMORE; LAST EDITED: `FEB 28, 2001` NOTES: `TRIGGERED by the TIME IN field of the VEN QUEUE File` TRIGGERED by the TIME OUT field of the VEN QUEUE File CROSS-REFERENCE: `19707.2^AC` 1)= S ^VEN(7.2,"AC",$E(X,1,30),DA)="" 2)= K ^VEN(7.2,"AC",$E(X,1,30),DA)
.06	ORIGINATOR	0;6	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 20, 2000`
.07	RECIPIENT	0;7	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `OCT 20, 2000`
.08	DURATION	0;8	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>30!($L(X)<1) X` LAST EDITED: `OCT 20, 2000` HELP-PROMPT: `Answer must be 1-30 characters in length.` WRITE AUTHORITY: ^ NOTES: `TRIGGERED by the TIME OUT field of the VEN QUEUE File`
.09	PARENT QUEUE	0;9	POINTER TO VEN QUEUE FILE (#19707.2)	VEN QUEUE(#19707.2) LAST EDITED: `OCT 20, 2000` CROSS-REFERENCE: `19707.2^AE` 1)= S ^VEN(7.2,"AE",$E(X,1,30),DA)="" 2)= K ^VEN(7.2,"AE",$E(X,1,30),DA)
.1	CANCELLED BY	0;10	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 08, 2000`
.11	ACTIVE USER	0;11	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `NOV 11, 2000`
.12	QUEUE ORIGIN	0;12	POINTER TO VEN EHP CLINIC FILE (#19707.95)	VEN EHP CLINIC(#19707.95) LAST EDITED: `FEB 20, 2001` CROSS-REFERENCE: `19707.2^AQ^MUMPS` 1)= D AQ^VENPCCU(DA,X) 2)= D AQ1^VENPCCU(DA)
1	ELAPSED TIME		COMPUTED	MUMPS CODE: `S X=$$DUR^VENPCCU(D0)` ALGORITHM: `S X=$$DUR^VENPCCU(D0)` LAST EDITED: `DEC 01, 2000`
1.1	PATIENT	1;1	POINTER TO VA PATIENT FILE (#2)	VA PATIENT(#2) LAST EDITED: `FEB 14, 2001` CROSS-REFERENCE: `19707.2^AP` 1)= S ^VEN(7.2,"AP",$E(X,1,30),DA)="" 2)= K ^VEN(7.2,"AP",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^19707.2^1.3` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^VEN(7.2,D0,1)):^(1),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV S X=$$HRN^AUPNPAT(X,+$G(DUZ(2))) X ^DD(19707.2,1.1,1,2,1.4) 1.4)= S DIH=$S($D(^VEN(7.2,DIV(0),1)):^(1),1:""),DIV=X S $P(^(1),U,3)=DIV,DIH=19707.2,DIG=1.3 D ^DICR:$O(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= S X=$$HRN^AUPNPAT(X,+$G(DUZ(2))) DELETE VALUE)= NO EFFECT FIELD)= HRN
1.2	VISIT	1;2	POINTER TO VISIT FILE (#9000010)	VISIT(#9000010) LAST EDITED: `NOV 20, 2000` CROSS-REFERENCE: `19707.2^AV` 1)= S ^VEN(7.2,"AV",$E(X,1,30),DA)="" 2)= K ^VEN(7.2,"AV",$E(X,1,30),DA)
1.3	HRN	1;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>15!($L(X)<1) X` LAST EDITED: `FEB 14, 2001` HELP-PROMPT: `Answer must be 1-15 characters in length.` NOTES: `TRIGGERED by the PATIENT field of the VEN QUEUE File`
1.4	LAST DEMOGRAPHICS CHECK	1;4	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 17, 2001` DESCRIPTION: Date the last time the check in clerk asked to review deomg/ins info.
1.5	PROVIDER	1;5	POINTER TO NEW PERSON FILE (#200)	NEW PERSON(#200) LAST EDITED: `MAR 21, 2005`
1.6	VCN	1;6	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>20!($L(X)<1) X` LAST EDITED: `MAR 21, 2005` HELP-PROMPT: `Answer must be 1-20 characters in length.`
1.7	CLERKS INITIALS	1;7	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<1) X` LAST EDITED: `MAR 21, 2005` HELP-PROMPT: `Answer must be 1-3 characters in length.`
2	IMAGE LOCATION	2;E1,245	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>240!($L(X)<1) X` LAST EDITED: `OCT 20, 2000` HELP-PROMPT: `Answer must be 1-240 characters in length.`
3	CHART REQUEST DESTINATION	3;1	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>200!($L(X)<1) X` LAST EDITED: `APR 27, 2001` HELP-PROMPT: `Answer must be 1-200 characters in length.`
302	MED. RECORDS INITIALS	3;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>6!($L(X)<2) X` LAST EDITED: `APR 18, 2001` HELP-PROMPT: `Answer must be 2-6 characters in length.`
303	IMAGE ID	3;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>40!($L(X)<1) X` LAST EDITED: `APR 19, 2001` HELP-PROMPT: `Answer must be 1-40 characters in length.`

Customize PDF page

Package: PCC New Encounter Form

Global: ^VEN(7.2

Information

Description

Directly Accessed By Routines, Total: 6

Accessed By FileMan Db Calls, Total: 3

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 6

Fields, Total: 24