[613] | 1 | SPNLS2 ;ISC-SF/RAH - INDIVIDUAL FULL HISTORY FORCED RE-SEND ;9/25/95 11:10
|
---|
| 2 | V ;;2.0;Spinal Cord Dysfunction;;01/02/1997
|
---|
| 3 | ;
|
---|
| 4 | EN1 ; ID Registrant
|
---|
| 5 | S DIC(0)="AEMQZ",DIC="^SPNL(154,",DIC("A")="Select PATIENT: "
|
---|
| 6 | W ! D ^DIC G:$D(DTOUT)!($D(DUOUT))!(X="") END
|
---|
| 7 | S SPNLTMPY=Y,SPNLTMPX=X K DIC,X,Y
|
---|
| 8 | I SPNLTMPY=-1 W !!," COULD NOT FIND REGISTRANT: ",SPNLTMPX,". TRY AGAIN.",! G EN1
|
---|
| 9 | S SPNLPID=$P(SPNLTMPY,U,1)
|
---|
| 10 | S DIR(0)="YOA",DIR("A")="OK to Full History: ",DIR("B")="YES" D ^DIR K DIR
|
---|
| 11 | I Y'=1 G EN1
|
---|
| 12 | I "1^T"'=$P(^SPNL(154,SPNLPID,0),U,3,4) W !!," REGISTRANT NOT ELIGIBLE FOR TRANSMISSION. CHECK STATUSES",!! G EN1
|
---|
| 13 | S DIC(0)="MNO",DIC="^SPNL(154.9,",X=SPNLPID D ^DIC
|
---|
| 14 | I Y=-1 W !!," REGISTRANT FULL HISTORY WILL BE SENT AT NEXT SCHEDULED TRANSMISSION.",!! G EN1
|
---|
| 15 | K DIC,X,Y
|
---|
| 16 | SETDEFS ;
|
---|
| 17 | S (SPNLFDT,SPNLTDT)=1000101
|
---|
| 18 | IDPTX ;
|
---|
| 19 | S DA=SPNLPID,DIE="^SPNL(154.9,"
|
---|
| 20 | S DR="1///^S X=SPNLFDT;2///^S X=SPNLTDT"
|
---|
| 21 | D ^DIE K DIE,DA,DR
|
---|
| 22 | S DA=SPNLPID,DIE=154,DR="9///1" D ^DIE
|
---|
| 23 | K DIE,DA,DR
|
---|
| 24 | W !!," REGISTRANT FULL HISTORY WILL BE SENT AT NEXT SCHEDULED TRANSMISSION.",!!
|
---|
| 25 | G EN1
|
---|
| 26 | END ;
|
---|
| 27 | K DIC,X,Y
|
---|
| 28 | K SPNLPID,SPNLFDT,SPNLTDT,SPNLTMPX,SPNLTMPY
|
---|
| 29 | Q
|
---|