Sub-Field: 509850.66

Parent File	Name	Number	Package
A&SP CLINIC VISIT(#509850.6)	SECONDARY PROVIDER	509850.66	Quasar

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	SECONDARY PROVIDER	0;1	POINTER TO A&SP STAFF FILE (#509850.3)	A&SP STAFF(#509850.3) INPUT TRANSFORM: `S DIC("S")="I $D(ACKVD) S ACKVALSC=$$STACT^ACKQUTL(+Y,ACKVD) I ACKVALSC=""0""!(ACKVALSC=""-6"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `JAN 08, 2008` HELP-PROMPT: `If a secondary provider was involved with this visit, enter his or her name.` DESCRIPTION: `If more than one provider was involved in this exam, the name or names of the SECONDARY PROVIDER(S) should be entered here. In order to enter a provider in this field, the provider must already exist in the A&SP STAFF` `file (#509850.3) and the ACTIVATION DATE and INACTIVATION DATE must indicate that the selected provider is active on the date of the exam. The SECONDARY PROVIDER field can be left blank.` SCREEN: `S DIC("S")="I $D(ACKVD) S ACKVALSC=$$STACT^ACKQUTL(+Y,ACKVD) I ACKVALSC=""0""!(ACKVALSC=""-6"")"` EXECUTABLE HELP: `I '$D(ACKVD) W !?5,"Input should take place ONLY through the QUASAR menu options.",!` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `509850.66^B` `1)= S ^ACK(509850.6,DA(1),2.7,"B",$E(X,1,30),DA)=""` `2)= K ^ACK(509850.6,DA(1),2.7,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `509850.66^ST2^MUMPS` `1)= S ^ACK(509850.6,"ST",X,DA(1))=2` `2)= K ^ACK(509850.6,"ST",X,DA(1))` `3)= Do Not Delete` `The ST subscript holds cross-references for all staff involved in this clinic visit. Rather than set the cross-reference equal to null, it is coded as to the position of the staff member.` `1 = PRIMARY PROVIDER` `2 = SECONDARY PROVIDER` `3 = STUDENT` CROSS-REFERENCE: `509850.66^AJ^MUMPS` `1)= D SEND^ACKQUTL5(DA(1))` `2)= D SEND^ACKQUTL5(DA(1))` `3)= Do not Delete` `Call to update send to PCE field with todays date, this in turn creates the cross reference used by the overnight send to PCE process.`

.01

SECONDARY PROVIDER

0;1

POINTER TO A&SP STAFF FILE (#509850.3)

A&SP STAFF(#509850.3)

INPUT TRANSFORM: S DIC("S")="I $D(ACKVD) S ACKVALSC=$$STACT^ACKQUTL(+Y,ACKVD) I ACKVALSC=""0""!(ACKVALSC=""-6"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: JAN 08, 2008
HELP-PROMPT: If a secondary provider was involved with this visit, enter his or her name.
DESCRIPTION: If more than one provider was involved in this exam, the name or names of the SECONDARY PROVIDER(S) should be entered here. In order to enter a provider in this field, the provider must already exist in the A&SP STAFF
file (#509850.3) and the ACTIVATION DATE and INACTIVATION DATE must indicate that the selected provider is active on the date of the exam. The SECONDARY PROVIDER field can be left blank.
SCREEN: S DIC("S")="I $D(ACKVD) S ACKVALSC=$$STACT^ACKQUTL(+Y,ACKVD) I ACKVALSC=""0""!(ACKVALSC=""-6"")"
EXECUTABLE HELP: I '$D(ACKVD) W !?5,"Input should take place ONLY through the QUASAR menu options.",!
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE: 509850.66^B
1)= S ^ACK(509850.6,DA(1),2.7,"B",$E(X,1,30),DA)=""
2)= K ^ACK(509850.6,DA(1),2.7,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 509850.66^ST2^MUMPS
1)= S ^ACK(509850.6,"ST",X,DA(1))=2
2)= K ^ACK(509850.6,"ST",X,DA(1))
3)= Do Not Delete
The ST subscript holds cross-references for all staff involved in this clinic visit. Rather than set the cross-reference equal to null, it is coded as to the position of the staff member.
1 = PRIMARY PROVIDER
2 = SECONDARY PROVIDER
3 = STUDENT
CROSS-REFERENCE: 509850.66^AJ^MUMPS
1)= D SEND^ACKQUTL5(DA(1))
2)= D SEND^ACKQUTL5(DA(1))
3)= Do not Delete
Call to update send to PCE field with todays date, this in turn creates the cross reference used by the overnight send to PCE process.

Customize PDF page

Package: Quasar

A&SP CLINIC VISIT(#509850.6)-->509850.66

Sub-Field: 509850.66

Information

Details