Global: ^APSPQA(32.6

Field #	Name	Loc	Type	Details
.01	VISIT DATE	0;1	DATE	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` HELP-PROMPT: `ENTER A DATE AND TIME` DELETE TEST: `1,0)= I '$D(APSP("LOG DEL FLG"))` CROSS-REFERENCE: `9009032.6^B` 1)= S ^APSPQA(32.6,"B",$E(X,1,30),DA)="" 2)= K ^APSPQA(32.6,"B",$E(X,1,30),DA)
.02	PATIENT	0;2	POINTER TO VA PATIENT FILE (#2)	**********************REQUIRED FIELD********************** VA PATIENT(#2) CROSS-REFERENCE: `9009032.6^C` 1)= S ^APSPQA(32.6,"C",$E(X,1,30),DA)="" 2)= K ^APSPQA(32.6,"C",$E(X,1,30),DA)
.03	PHARMACIST	0;3	POINTER TO USER FILE (#3)	**********************REQUIRED FIELD********************** USER(#3)
.04	TYPE OF VISIT	0;4	SET	**********************REQUIRED FIELD********************** 'a' FOR ACUTE; 'c' FOR CHRONIC; 'r' FOR REFERRAL; HELP-PROMPT: `Enter 'a' for Acute, 'c' for Chronic, or 'r' for Referral` CROSS-REFERENCE: `9009032.6^AC^MUMPS` 1)= S ^APSPQA(32.6,"AC",$P(^APSPQA(32.6,DA,0),U,1),X,DA)="" 2)= K ^APSPQA(32.6,"AC",$P(^APSPQA(32.6,DA,0),U,1),X,DA)
1100	ASSESSMENT	11;0	POINTER Multiple #9009032.6011	9009032.6011

Information