| 1 | YSD40051 ;DALISC/LJA - Repoint Gen. Progress Notes data continued... ;04/08/94 0 9:52
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;;Dec 30, 1994
|
|---|
| 3 | ;;
|
|---|
| 4 | ;
|
|---|
| 5 | REP ; Repoint Generic Progress Notes data (Called from ^YSD40050)
|
|---|
| 6 | ;
|
|---|
| 7 | ; Key Variables...
|
|---|
| 8 | ; YSD4IEN -- req --> YSD4CFLG Conversion flag
|
|---|
| 9 | ; YSD4ND -- req (Original #;DIC(627.8, pointer. p(1) of ^(1))
|
|---|
| 10 | ;
|
|---|
| 11 | ; Find new DX IEN...
|
|---|
| 12 | S YSD4NDN=$$NDN(+YSD4ND)
|
|---|
| 13 | ;
|
|---|
| 14 | ; New DX ien located?
|
|---|
| 15 | I 'YSD4NDN D QUIT ;->
|
|---|
| 16 | . D NOW^%DTC
|
|---|
| 17 | . D PED^YSD4E010(%,"New DSM # not found",121,30,+YSD4IEN,"",+$P($G(^GMR(121,+YSD4IEN,0)),U))
|
|---|
| 18 | . S $P(^YSD(627.99,+YSD4CIEN,0),U,2)="E",YSD4EREP=1
|
|---|
| 19 | ;
|
|---|
| 20 | ; New var-pointer reference created
|
|---|
| 21 | S YSD4REF=+YSD4NDN_";YSD(627.7,"
|
|---|
| 22 | ;
|
|---|
| 23 | ; Reset .01 0;1... (no xrefs...)
|
|---|
| 24 | S $P(^GMR(121,+YSD4IEN,30),U)=YSD4REF
|
|---|
| 25 | ;
|
|---|
| 26 | ; Change Status to CONVERTED and "trip" flag...
|
|---|
| 27 | S $P(^YSD(627.99,+YSD4CIEN,0),U,2)="C",YSD4CFLG=1
|
|---|
| 28 | QUIT
|
|---|
| 29 | ;
|
|---|
| 30 | NDN(ONO) QUIT +$P($G(^DIC(627.5,+$G(ONO),0)),U,3)
|
|---|
| 31 | ;
|
|---|
| 32 | EOR ;YSD40051 - Repoint Gen. Progress Notes data continued... ;12/9/93 10:03
|
|---|
