The following global references are made:
Global Nodes
DGPT $O(^DGPT(DA))
$P(^DGPT(DA,0),U,1)
$O(^DGPT(DA, S ,D1))
$P(^DGPT(DA, S ,D1,0),U,M)
M=1,8,9,10,11,12
$O(^DGPT(DA, P ,D1))
$P(^DGPT(DA, P ,D1,0),U,M)
M=1,5,6,7,8,9
$P(^DGPT(DA,70),U,M)
M=10,11,16,17,18,19,20,21,22,23,24
$O(^DGPT(DA, M ,D1))
$P(^DGPT(DA, M ,D1,0),U,N)
N=5,6,7,8,9,10,11,12,13,14,15
