source: WorldVistAEHR/trunk/r/SURGERY-SR/SR88UTL.m@ 1006

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

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1SR88UTL ;BIR/ADM - Post-install process for SR*3*88 ; [ 07/30/99 1:04 PM ]
2 ;;3.0; Surgery ;**88**;24 Jun 93
3 Q
4LAB ; pre-install action for SR*3*88
5 I $G(^SRO(139.2,2,0))'="TROPONIN I" D
6 .F DA=2,3 S DIK="^SRO(139.2," D ^DIK
7 .S ^SRO(139.2,2,0)="TROPONIN I",^SRO(139.2,2,2)=72
8 .S ^SRO(139.2,3,0)="TROPONIN T",^SRO(139.2,3,2)=72
9 .S DIK="^SRO(139.2,",DIK(1)=".01" D ENALL^DIK K DA,DIK
10 Q
11EN1 ; transmit anesthesia start and end times to NSQIP database
12 K ^TMP("SRA",$J) S SITE=+$P($$SITE^SROVAR,"^",3),SRI=0,SROPD=2981000
13 F S SROPD=$O(^SRF("AC",SROPD)) Q:'SROPD S SRTN=0 F S SRTN=$O(^SRF("AC",SROPD,SRTN)) Q:'SRTN I $P($G(^SRF(SRTN,.4)),"^",2)="T" D
14 .K SRP F I=1:1:16 S SRP(I)=""
15 .S SRA=$G(^SRF(SRTN,0)) Q:SRA="" S SRP(1)=SITE,SRP(2)=SRTN,DFN=$P(SRA,"^"),SRP(5)=$P(SRA,"^",9) D DEM^VADPT S SRP(4)=VA("PID")
16 .S X=$$SITE^SROUTL0(SRTN),SRDIV=$S(X:$P(^SRO(133,X,0),"^"),1:""),SRP(3)=$S(SRDIV:$$GET1^DIQ(4,SRDIV,99),1:SITE)
17 .S SRA=$G(^SRF(SRTN,.2)),SRP(6)=$P(SRA,"^"),SRP(7)=$P(SRA,"^",4)
18 .S SRTMP=SRP(1) F I=2:1:7 S SRTMP=SRTMP_"^"_SRP(I)
19 .S SRI=SRI+1,^TMP("SRA",$J,SRI)=SRTMP
20 S SRD=^XMB("NETNAME") S XMSUB="** SR*3*88 FROM VAMC-"_SITE_" **",XMDUZ=$S($D(DUZ):DUZ,1:.5)
21 S XMY("G.SRCOSERV@ISC-CHICAGO.VA.GOV")=""
22 S XMTEXT="^TMP(""SRA"",$J," N I D ^XMD
23END K DFN,I,SITE,SRA,SRD,SRDIV,SRI,SROPD,SRP,SRTMP,SRTN,VA,X,XMDUZ,XMSUB,XMTEXT,XMY,^TMP("SRA",$J)
24 ; send FY99 workload reports
25FY99 K ^TMP("SRWL",$J) F I=2981000,2981100,2981200,2990100,2990200,2990300,2990400,2990500,2990600,2990700,2990800,2990900 I DT>I S ^TMP("SRWL",$J,I)=""
26 D WL^SROATMIT
27 S ZTREQ="@"
28 Q
29POST ; post-install action for SR*3*88
30 N SRD D LAB S SRD=^XMB("NETNAME") I $E(SRD,1,3)="ISC"!(SRD["ISC-")!(SRD["ISC.")!(SRD["FORUM")!(SRD["TST.")!(SRD["TEST")!(SRD["UTL.")!(SRD["TRAIN")!(SRD[".IHS.GOV") Q
31 D NOW^%DTC S ZTDTH=$E(%,1,12),ZTRTN="EN1^SR88UTL",ZTDESC="Surgery Risk Assessment Retransmission",ZTIO="" D ^%ZTLOAD
32 Q
33WL ; queue FY99 workload reports
34 S ZTRTN="FY99^SR88UTL",ZTDESC="Surgery FY99 Workload Reports",ZTIO="" D ^%ZTLOAD
35 I $D(ZTSK) W !!,"Queued as task #"_ZTSK
36 Q
Note: See TracBrowser for help on using the repository browser.