source: WorldVistAEHR/trunk/r/SPINAL_CORD_DYSFUNCTION-SPN/SPNLS2.m@ 1476

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1SPNLS2 ;ISC-SF/RAH - INDIVIDUAL FULL HISTORY FORCED RE-SEND ;9/25/95 11:10
2V ;;2.0;Spinal Cord Dysfunction;;01/02/1997
3 ;
4EN1 ; 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
16SETDEFS ;
17 S (SPNLFDT,SPNLTDT)=1000101
18IDPTX ;
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
26END ;
27 K DIC,X,Y
28 K SPNLPID,SPNLFDT,SPNLTDT,SPNLTMPX,SPNLTMPY
29 Q
Note: See TracBrowser for help on using the repository browser.