{"aaData": [["File: 601, IEN: 1", "
Yes
\n", "
S YSTY=\"TL\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 10", "
Yes
\n", "
D BPRS^YSMTI1
\n", "
TEST
\n", "
Yes
\n", "", ""], ["File: 601, IEN: 100", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 101", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 103", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 104", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 105", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 106", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 107", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 108", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 110", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 111", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 112", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 113", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 114", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 115", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 12", "
Yes
\n", "
S YSTY=\"TS\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 13", "
Yes
\n", "
S YSTY=\"TS\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 14", "
No
\n", "", "
UTILITY
\n", "", "", ""], ["File: 601, IEN: 18", "
Yes
\n", "
S YSTY=\"TS\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 19", "
Yes
\n", "
S YSTY=\"T\" D ^YTREPT
\n", "
TEST
\n", "
Yes
\n", "", ""], ["File: 601, IEN: 2", "
No
\n", "", "
TEST
\n", "", "", ""], ["File: 601, IEN: 20", "
No
\n", "", "
UTILITY
\n", "", "", ""], ["File: 601, IEN: 201", "
Yes
\n", "
D ^YSMTI4
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 202", "
Yes
\n", "
D ^YSMTI3
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 203", "
Yes
\n", "
D ^YSMTI3
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 204", "
No
\n", "
D ^YTSCII
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 205", "
Yes
\n", "
S YSTY=\"W\" D ^YTREPT
\n", "
TEST
\n", "
Yes
\n", "
S X=YSSR S X=$S(X<107:1,X>106:2,1:0)
\n", "
\n
\n\n
\n"], ["File: 601, IEN: 206", "
Yes
\n", "
S YSTY=\"W\" D ^YTREPT
\n", "
TEST
\n", "
Yes
\n", "", ""], ["File: 601, IEN: 208", "
Yes
\n", "
S YSTY=\"WR\" D ^YTREPT
\n", "
TEST
\n", "
Yes
\n", "
S X=YSSR,X1=$P(^DPT(YSDFN,0),U,2),X=$S(X>3:2,((X1=\"F\")&(X=3)):2,1:1)
\n", "
\n
\n\n
\n"], ["File: 601, IEN: 215", "
Yes
\n", "
S (YSXK,R,S)=\"\",YSMX=5 D RD^YTNEOPI,SCOR^YTNEOPI,STND^YTNEOPI
\n", "
TEST
\n", "
No
\n", "", ""], ["File: 601, IEN: 216", "
Yes
\n", "
D PAI^YSMTI6
\n", "
TEST
\n", "
No
\n", "", ""], ["File: 601, IEN: 217", "
Yes
\n", "
D MULT^YTSCL9R
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 220", "
Yes
\n", "
S YSTY=\"W\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 221", "
Yes
\n", "
S YSTY=\"W\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 222", "
Yes
\n", "
S YSTY=\"WS\" D ^YSMTI5
\n", "
TEST
\n", "
Yes
\n", "", ""], ["File: 601, IEN: 223", "
Yes
\n", "
D BDI^YSMTI1
\n", "
TEST
\n", "
Yes
\n", "
S X=$S(YSSR<10:1,YSSR<17:2,YSSR<30:3,YSSR>29:4,1:0)
\n", "
\n
\n\n
\n"], ["File: 601, IEN: 226", "
Yes
\n", "
S YSTY=\"R\" D ^YTREPT
\n", "
TEST
\n", "
Yes
\n", "
S X=$P(YSDATA(6),U,3) S X=$S(X>1:1,X=1!(X=0):2,1:0)
\n", "
\n
\n\n
\n"], ["File: 601, IEN: 227", "
Yes
\n", "
D AUDIT^YSMTI6
\n", "
TEST
\n", "
Yes
\n", "
S X=YSSR S X=$S(X<8:1,X>7:2,1:0)
\n", "
\n
\n\n
\n"], ["File: 601, IEN: 228", "
Yes
\n", "
S YSTY=\"R\" D ^YTREPT
\n", "
TEST
\n", "
Yes
\n", "
S X=$S(YSSR>2:1,$E(YSX1,6)=\"Y\":2,$E(YSX1,10)=\"Y\":2,$E(YSX1,11)=\"Y\":2,1:3)
\n", "
\n
\n\n
\n"], ["File: 601, IEN: 229", "
Yes
\n", "
D DOM^YSMTI1
\n", "
TEST
\n", "
Yes
\n", "
S X=1 S:$E(YSX1,1)=\"Y\" X=2 S:($E(YSX1,2)=\"Y\")&($E(YSX1,3)=\"Y\")&($E(YSX1,4)>1) X=2
\n", "
\n
\n\n
\n"], ["File: 601, IEN: 230", "
No
\n", "", "", "", "", ""], ["File: 601, IEN: 231", "
No
\n", "", "", "
Yes
\n", "", ""], ["File: 601, IEN: 232", "
Yes
\n", "
D DOMG^YSMTI6
\n", "
TEST
\n", "
Yes
\n", "
S X=YSSR S X=$S(X<4:1,X>3:2,1:0)
\n", "
\n
\n\n
\n"], ["File: 601, IEN: 233", "
Yes
\n", "
S YSTY=\"W\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 234", "
Yes
\n", "
S YSTY=\"W\" D ^YTREPT
\n", "
TEST
\n", "
Yes
\n", "
S X=1
\n", "
\n
\n\n
\n"], ["File: 601, IEN: 240", "
Yes
\n", "
S YSTY=\"WR\" D ^YTREPT
\n", "
TEST
\n", "
Yes
\n", "
S X=YSSR S X=$S(X<4:1,X>3:2,1:0)
\n", "
\n
\n\n
\n"], ["File: 601, IEN: 241", "
Yes
\n", "
S YSTY=\"W\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 242", "
Yes
\n", "
S YSTY=\"W\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 244", "
Yes
\n", "
S YSTY=\"\" D ^YTMBMD
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 245", "
Yes
\n", "
S YSTY=\"\" D BDI2^YTBI
\n", "
TEST
\n", "
Yes
\n", "", ""], ["File: 601, IEN: 246", "
Yes
\n", "
S YSTY=\"\" D ^YTMCMI3
\n", "
TEST
\n", "
No
\n", "", ""], ["File: 601, IEN: 247", "
Yes
\n", "
S YSTY=\"\" D MAIN^YTBSI18
\n", "
TEST
\n", "
Yes
\n", "", ""], ["File: 601, IEN: 248", "
Yes
\n", "
S YSTY=\"\" D ^YTPHQ9
\n", "
TEST
\n", "
Yes
\n", "", ""], ["File: 601, IEN: 249", "
Yes
\n", "
S YSTY=\"W\" D ^YTCESD
\n", "
TEST
\n", "
Yes
\n", "", ""], ["File: 601, IEN: 250", "
Yes
\n", "
S YSTY=\"W\" D CESD5^YTCESD
\n", "
TEST
\n", "
Yes
\n", "", ""], ["File: 601, IEN: 3", "
Yes
\n", "
S YSTY=\"RL\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 30", "
Yes
\n", "
S YSTY=\"TS\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 31", "
Yes
\n", "
D FIRO^YSMTI1
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 33", "
Yes
\n", "
S YSTY=\"TS\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 37", "
Yes
\n", "
S YSTY=\"WS\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 38", "
Yes
\n", "
S YSTY=\"T\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 41", "
Yes
\n", "
S YSTY=\"T\" D ^YTREPT,ICL^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 42", "
Yes
\n", "
S YSTY=\"YSTS\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 44", "
Yes
\n", "
S YSTY=\"TS\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 47", "
Yes
\n", "
D ^YSMTI2
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 49", "
Yes
\n", "
D MATE^YSMTI1
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 50", "
Yes
\n", "
D MCMI^YSMTI1
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 51", "
No
\n", "", "
BATTERY
\n", "", "", ""], ["File: 601, IEN: 53", "
Yes
\n", "
S YSTY=\"WS\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 54", "
Yes
\n", "
S YSTY=\"WS\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 55", "
Yes
\n", "
S YSTY=\"WS\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 56", "
Yes
\n", "
D MILL^YSMTI1
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 6", "
Yes
\n", "
S YSTY=\"TS\" D ^YTATQ,STND^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 60", "
No
\n", "
D ^YSZMTI2
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 61", "
No
\n", "
D ^YTMMPI
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 65", "
Yes
\n", "
D MYER^YSMTI1
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 7", "
Yes
\n", "
S YSTY=\"TYX\" D ^YTAUIRR
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 70", "
Yes
\n", "
S YSTY=\"TS\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 72", "
Yes
\n", "
S YSTY=\"RS\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 75", "
Yes
\n", "
S YSMX=3,YSTY=\"WS\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 76", "
Yes
\n", "
S YSTY=\"WL\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 8", "
Yes
\n", "
D BECK^YSMTI1
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 82", "
Yes
\n", "
S YSTY=\"TS\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 84", "
Yes
\n", "
S YSTY=\"TS\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 85", "
Yes
\n", "
S YSTY=\"TS\" D ^YTREPT
\n", "
TEST
\n", "", "", ""], ["File: 601, IEN: 87", "
Yes
\n", "
S YSTY=\"WL\" D ^YTREPT
\n", "
TEST
\n", "
Yes
\n", "
S X=YSSR S X=$S(X<33:1,X<51:2,X>50:3,1:0)
\n", "
\n
\n\n
\n"], ["File: 601, IEN: 88", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 89", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 90", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 91", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 92", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 93", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 94", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 95", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 96", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 97", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 98", "
No
\n", "", "
INTERVIEW
\n", "", "", ""], ["File: 601, IEN: 99", "
No
\n", "", "
INTERVIEW
\n", "", "", ""]]}