{"aaData": [["NAME", "
S Y=\"\" S:$D(^DPT(DFN,0)) Y=$P(^(0),\"^\",1)
\n"], ["SEX", "
S Y=\"\" S:$D(^DPT(DFN,0)) Y=$P(^(0),\"^\",2)
\n"], ["DOB", "
S (X,Y)=\"\" S:$D(^DPT(DFN,0)) X=$P(^(0),\"^\",3) F I=4,6,2 S Z=$E(X,I,I+1) S:'Z Z=\"00\" S Y=Y_Z
\n"], ["STATION", "
S Y=+^DD(\"SITE\",1)
\n"], ["CLAIM", "
S Y=\"\" I $D(^DPT(DFN,.31)) S Y=$P(^(.31),\"^\",3) I Y'=\"\" S:$L(Y)>8 Y=\"-SSN\" S:$L(Y)<9 Y=\"C\"_Y
\n"], ["ELIG.", "
D ELIG^DGQEMPS
\n"], ["SVC%", "
S Y=\"\" S:$D(^DPT(DFN,.3)) Y=$P(^(.3),\"^\",2) S:Y'=\"\" Y=$E(Y+1000,2,4)
\n"], ["PERIOD OF SERVICE", "
D PER^DGQEMPS
\n"], ["MODIFIER", "
D MOD^DGQEMPS
\n"], ["SPECIAL", "
D SPEC^DGQEMPS
\n"], ["BLANK", "
S Y=\"\"
\n"], ["RELIGION", "
S Y=\"\" I $D(^DPT(DFN,0)) S X=$P(^(0),\"^\",8) I X,$D(^DIC(13,X,0)) S Y=$P(^(0),\"^\",4) S:Y<10 Y=\"0\"_Y
\n"], ["WARD LOCATION", "
S Y=\"\" I $G(^DPT(DFN,.1))]\"\" S Y=$O(^DIC(42,\"B\",$G(^DPT(DFN,.1)),0)) S Y=$S($P($G(^DIC(42,+Y,0)),U,4)=\"N\":\"\",1:$P($G(^DIC(42,+Y,0)),U))
\n"], ["ALLERGY", "
S Y=\"Allergy: _______________\",X=\"GMRADPT\" X ^%ZOSF(\"TEST\") I $T D EN1^GMRADPT I $G(GMRAL) S Y=\"Allergy: YES\"
\n"], ["VET TYPE", "
S Y=$S($P($G(^DPT(DFN,\"VET\")),\"^\",1)'=\"Y\":\"NON\",$P($G(^DPT(DFN,.3)),\"^\",1)'=\"Y\":\"NSC\",1:\" SC\")
\n"], ["VET TYPE (TEXT)", "
S Y=$S($P($G(^DPT(DFN,\"VET\")),\"^\",1)'=\"Y\":\"NON\",$P($G(^DPT(DFN,.3)),\"^\",1)'=\"Y\":\"NSC\",1:\"SC\")_\" VETERAN\"
\n"], ["VETERAN Y/N", "
S Y=$S($P($G(^DPT(DFN,\"VET\")),\"^\",1)=\"Y\":\"Y\",$P($G(^DPT(DFN,\"VET\")),\"^\",1)=\"N\":\"N\",1:\"N\")
\n"], ["SERVICE Y/N", "
S Y=$S($P($G(^DPT(DFN,.3)),\"^\",1)=\"Y\":\"Y\",$P($G(^DPT(DFN,.3)),\"^\",1)=\"N\":\"N\",1:\"N\")
\n"], ["CLAIM NO", "
S Y=\"\" I $D(^DPT(DFN,.31)) S Y=$P(^(.31),\"^\",3) I Y'=\"\" S:$L(Y)>8 Y=\"\"
\n"], ["PID", "
S Y=\"\" I $D(^DPT(DFN,0)),$D(^DPT(DFN,.36)) S Y=$P(^DPT(DFN,.36),\"^\",3) I Y'=\"\" S Y=$E(Y,1,3)_\" \"_$E(Y,5,6)_\" \"_$E(Y,8,$L(Y))
\n"], ["PATIENT DFN", "
S Y=DFN
\n"], ["STREET", "
S Y=\"\" S:$D(^DPT(DFN,.11)) Y=$P(^(.11),\"^\",1)
\n"], ["SSN (NO SPACES)", "
S Y=\"\" I $D(^DPT(DFN,0)) S Y=$P(^(0),\"^\",9)
\n"], ["COUNTY", "
S Y=\"\" I $D(^DPT(DFN,.11)) S X=$P(^(.11),\"^\",5),Z=$P(^(.11),\"^\",7) I X,Z,$D(^DIC(5,X,1,Z,0)) S Y=$P(^(0),\"^\",3)
\n"], ["CITY", "
S Y=\"\" S:$D(^DPT(DFN,.11)) Y=$P(^(.11),\"^\",4)
\n"], ["STATE", "
S Y=\"\" I $D(^DPT(DFN,.11)) S X=$P(^(.11),\"^\",5) I X,$D(^DIC(5,X,0)) S Y=$P(^(0),\"^\",2)
\n"], ["ZIP", "
S Y=\"\" S:$D(^DPT(DFN,.11)) Y=$P(^(.11),\"^\",6)
\n"], ["SSN", "
S Y=\"\" I $D(^DPT(DFN,0)) S Y=$P(^(0),\"^\",9) I Y'=\"\" S Y=$E(Y,1,3)_\" \"_$E(Y,4,5)_\" \"_$E(Y,6,9)
\n"], ["MARITAL", "
S Y=\"\" I $D(^DPT(DFN,0)) S X=$P(^(0),\"^\",5) I X,$D(^DIC(11,X,0)) S Y=$P(^(0),\"^\",3)
\n"]]}