source: WorldVistAEHR/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSD40051.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1005 bytes
Line 
1YSD40051 ;DALISC/LJA - Repoint Gen. Progress Notes data continued... ;04/08/94 0 9:52
2 ;;5.01;MENTAL HEALTH;;Dec 30, 1994
3 ;;
4 ;
5REP ; 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 ;
30NDN(ONO) QUIT +$P($G(^DIC(627.5,+$G(ONO),0)),U,3)
31 ;
32EOR ;YSD40051 - Repoint Gen. Progress Notes data continued... ;12/9/93 10:03
Note: See TracBrowser for help on using the repository browser.