| [613] | 1 | SR88UTL ;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
|
|---|
| 4 | LAB ; 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
|
|---|
| 11 | EN1 ; 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
|
|---|
| 23 | END 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
|
|---|
| 25 | FY99 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
|
|---|
| 29 | POST ; 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
|
|---|
| 33 | WL ; 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
|
|---|
