YSCL122P ;ALB/RTW - NCC POST INSTALL;10 May 2019 16:19:28
;;5.01;MENTAL HEALTH;**122**;Dec 30, 1994;Build 112
; calls START^YSCLDIS to find clozapine patients in file #55
; registered more than 57 days ago that do not have a recent clozapine
; prescription or order, set them to discontinued and send a report to the NCC.
; the NCC software will maintain the file from this point
; Reference to ^DIE supported by DBIA #2053
; Reference to ^DIQ supported by DBIA #2056
; Reference to ^%DTC supported by DBIA #10000
START ;
;INITIALIZE ^XTMP("YSCLDEM") and ^XTMP("YSCLTRN")
N DIE,DA,DR S DR="",DIE="^YSCL(603.03,",DA=1,U="^"
I $$GET1^DIQ(8989.3,1,501,"I") S DR="3///0;" ;S $P(^YSCL(603.03,1,0),"^",3)=0
S DR=DR_"8///S.RUCLRXLAB@FO-HINES.DOMAIN.EXT;9///S.RUCLDEM@FO-HINES.DOMAIN.EXT;"
S DR=DR_"10///G.CLOZAPINE DEBUG@FO-DALLAS.DOMAIN.EXT;11///G.CLOZAPINE DEBUG@FO-DALLAS.DOMAIN.EXT"
D ^DIE
N YSDTS S YSDTS("+366")=$$FMADD^XLFDT(DT,366),YSDTS("-one")=$$FMADD^XLFDT(DT,-1)
F VAR="YSCLDEM","YSCLTRN" D
. S ^XTMP(VAR,0)=YSDTS("+366")_U_DT_U_"CLOZAPINE DAILY ROLLUP DATA"_U_(YSDTS("-one")_".000001")
D START^YSCLDIS
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HYSCL122P 1156 printed Nov 22, 2024@17:23:35 Page 2
YSCL122P ;ALB/RTW - NCC POST INSTALL;10 May 2019 16:19:28
+1 ;;5.01;MENTAL HEALTH;**122**;Dec 30, 1994;Build 112
+2 ; calls START^YSCLDIS to find clozapine patients in file #55
+3 ; registered more than 57 days ago that do not have a recent clozapine
+4 ; prescription or order, set them to discontinued and send a report to the NCC.
+5 ; the NCC software will maintain the file from this point
+6 ; Reference to ^DIE supported by DBIA #2053
+7 ; Reference to ^DIQ supported by DBIA #2056
+8 ; Reference to ^%DTC supported by DBIA #10000
START ;
+1 ;INITIALIZE ^XTMP("YSCLDEM") and ^XTMP("YSCLTRN")
+2 NEW DIE,DA,DR
SET DR=""
SET DIE="^YSCL(603.03,"
SET DA=1
SET U="^"
+3 ;S $P(^YSCL(603.03,1,0),"^",3)=0
IF $$GET1^DIQ(8989.3,1,501,"I")
SET DR="3///0;"
+4 SET DR=DR_"8///S.RUCLRXLAB@FO-HINES.DOMAIN.EXT;9///S.RUCLDEM@FO-HINES.DOMAIN.EXT;"
+5 SET DR=DR_"10///G.CLOZAPINE DEBUG@FO-DALLAS.DOMAIN.EXT;11///G.CLOZAPINE DEBUG@FO-DALLAS.DOMAIN.EXT"
+6 DO ^DIE
+7 NEW YSDTS
SET YSDTS("+366")=$$FMADD^XLFDT(DT,366)
SET YSDTS("-one")=$$FMADD^XLFDT(DT,-1)
+8 FOR VAR="YSCLDEM","YSCLTRN"
Begin DoDot:1
+9 SET ^XTMP(VAR,0)=YSDTS("+366")_U_DT_U_"CLOZAPINE DAILY ROLLUP DATA"_U_(YSDTS("-one")_".000001")
End DoDot:1
+10 DO START^YSCLDIS
+11 QUIT
+12 ;
