| 1 | GMTSONE ; HIN/GWB - Oncology Health Summary Comp ; 1/11/05 8:52am
|
|---|
| 2 | ;;2.7;Health Summary;**36,35,42,54,56,72**;Oct 20, 1995
|
|---|
| 3 | ;
|
|---|
| 4 | ; External References
|
|---|
| 5 | ; DBIA 2924 ^ONCO(160,
|
|---|
| 6 | ; DBIA 2888 ^ONCO(165.5,
|
|---|
| 7 | ; DBIA 10015 ^UTILITY("DIQ1"
|
|---|
| 8 | ; DBIA 2056 GETS^DIQ (file 160 and 165,5)
|
|---|
| 9 | ; DBIA 10015 EN^DIQ1 (file 165.5)
|
|---|
| 10 | ;
|
|---|
| 11 | ; Variables Used but not NEWed or KILLed
|
|---|
| 12 | ; DFN, GMTSQIT
|
|---|
| 13 | ;
|
|---|
| 14 | EXTRACT ; Extract Data for Patient DFN
|
|---|
| 15 | K ^UTILITY("DIQ1",$J),ONC
|
|---|
| 16 | N CNT,DA,DIC,DIQ,DR,HSFLAG,IEN,IEN1,IEN2,LINE,LOS,NOP,ONC,PTIEN
|
|---|
| 17 | N SUB,SUBCNT,SUBIEN,SUBLET,TSIEN,TXT,TXT1,TXT2
|
|---|
| 18 | Q:'$D(^ONCO(160,"B",DFN_";DPT(")) S PTIEN=$O(^ONCO(160,"B",DFN_";DPT(",0))
|
|---|
| 19 | S SUB="abcdefghijklmnopqrstuvwxyz",HSFLAG=1
|
|---|
| 20 | S IEN=0 F S IEN=$O(^ONCO(165.5,"C",PTIEN,IEN)) Q:IEN="" D
|
|---|
| 21 | . S DIC="^ONCO(165.5,",DR=".04;3;20;22;24;29;30;37.1;37.2;37.3;38;85;86;87;88;58.1;58.3;50;51.2;51;442;125;53.2;53;54.2;54;55.2;55;346;560;91;58;75;2000;57;57.2;95;22.3;58.6;153;153.1;12;443;32;33"
|
|---|
| 22 | . S DA=IEN D EN^DIQ1
|
|---|
| 23 | . S DR="29.2;30.2;29.1;31.1;32.1;34.3;34.4;44.1;44.2;44.3;44.4;44.5;44.6;160;161;162;163;164;165;166;167;168"
|
|---|
| 24 | . S DA=IEN D EN^DIQ1
|
|---|
| 25 | . S DR="3",DIQ(0)="I" D EN^DIQ1
|
|---|
| 26 | . D GETS^DIQ(165.5,IEN_",","60*","N","ONC")
|
|---|
| 27 | S IEN=0 F S IEN=$O(ONC(165.51,IEN)) Q:IEN'>0 D
|
|---|
| 28 | . S IEN1=$P(IEN,",",2)
|
|---|
| 29 | . S IEN2=$P(IEN,",",1)
|
|---|
| 30 | . M ONC("SUB",IEN1,IEN2)=ONC(165.51,IEN)
|
|---|
| 31 | . K IEN1,IEN2
|
|---|
| 32 | K ONC(165.51)
|
|---|
| 33 | D GETS^DIQ(160,PTIEN_",","16;400*","N","ONC")
|
|---|
| 34 | D ^GMTSONE1
|
|---|
| 35 | K ^UTILITY("DIQ1",$J),CNT,DA,DIC,DIQ,DR,HSFLAG,IEN,LINE,LOS,NOP
|
|---|
| 36 | K ONC,PTIEN,SUB,SUBIEN,SUBCNT,SUBLET,TSIEN,TXT,TXT1,TXT2
|
|---|
| 37 | Q
|
|---|
