| 1 | SR103UTL ;BIR/ADM-Utility routine for patch SR*3*103; [06/14/01 10:33 AM ]
|
|---|
| 2 | ;;3.0; Surgery ;**103**;24 Jun 93
|
|---|
| 3 | Q
|
|---|
| 4 | POST ; post-install action for SR*3*103
|
|---|
| 5 | D NOW^%DTC S (SRNOW,ZTDTH)=+$E(%,1,12),ZTRTN="EN1^SR103UTL",ZTDESC="SR*3*103 Post-Install",ZTIO="" D ^%ZTLOAD H 2
|
|---|
| 6 | D OTH,MES^XPDUTL(" Post-install process queued...") K SRNOW
|
|---|
| 7 | Q
|
|---|
| 8 | OTH N SRD S SRD=^XMB("NETNAME") I SRD["TST."!(SRD["TEST")!(SRD["UTL.")!(SRD["TRAIN")!(SRD[".IHS.GOV")!(SRD["CPRS") Q
|
|---|
| 9 | S ZTDTH=SRNOW,ZTRTN="QR^SR103UTL",ZTDESC="Surgery Quarterly Report",ZTIO="" D ^%ZTLOAD
|
|---|
| 10 | Q
|
|---|
| 11 | EN1 ; remove trailing zeros in field 1.098
|
|---|
| 12 | N SREQDT,SRTN S SRTN=0 F S SRTN=$O(^SRF(SRTN)) Q:'SRTN S SREQDT=$P($G(^SRF(SRTN,"1.0")),"^",11) I SREQDT'="" S $P(^SRF(SRTN,"1.0"),"^",11)=+SREQDT
|
|---|
| 13 | S ZTREQ="@"
|
|---|
| 14 | Q
|
|---|
| 15 | QR ; transmit quarterly reports for FY2000
|
|---|
| 16 | S (SRFLG,SRT)=1 D NOW^%DTC S SRNOW=+$E(%,1,12)
|
|---|
| 17 | S SRSTART=3001001,SREND=3001231 D TSK H 2
|
|---|
| 18 | S SRSTART=3010101,SREND=3010331 D TSK H 2
|
|---|
| 19 | I DT>3010813 S SRSTART=3010401,SREND=3010630 D TSK H 2
|
|---|
| 20 | I DT>3011113 S SRSTART=3010701,SREND=3010930 D TSK
|
|---|
| 21 | S ZTREQ="@"
|
|---|
| 22 | Q
|
|---|
| 23 | TSK S ZTDTH=SRNOW,ZTIO="",ZTDESC="Surgery Quarterly Report",(ZTSAVE("SRSTART"),ZTSAVE("SREND"),ZTSAVE("SRFLG"),ZTSAVE("SRT"))="",ZTRTN="EN^SROQT" D ^%ZTLOAD
|
|---|
| 24 | Q
|
|---|
