3)= REGULAR 'B' XREF OF AFFILIATED SERVICES SUBFILE
CROSS-REFERENCE: 9002169.1^AB
1)= S ^AQAO1(1,"AB",$E(X,1,30),DA(1),DA)=""
2)= K ^AQAO1(1,"AB",$E(X,1,30),DA(1),DA)
3)= TO FIND ALL TEAMS BY AN AFFILIATED SERVICE
Created for security screen on automatic entry occurrences that need to be separated by service, such as readmissions. This way only surgical service will see surgical readmissions. Security code in ^AQAOSEC.