close Warning: Can't use blame annotator: 
svn blame failed on WorldVistAEHR/trunk/r/SURGERY-SR/SR103UTL.m: 'GenericSWIGWrapper' object has no attribute '_wrap'

source: WorldVistAEHR/trunk/r/SURGERY-SR/SR103UTL.m@ 691

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

initial load of WorldVistAEHR
File size: 1.2 KB
RevLine 
1SR103UTL ;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
4POST ; 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
8OTH 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
11EN1 ; 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
15QR ; 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
23TSK S ZTDTH=SRNOW,ZTIO="",ZTDESC="Surgery Quarterly Report",(ZTSAVE("SRSTART"),ZTSAVE("SREND"),ZTSAVE("SRFLG"),ZTSAVE("SRT"))="",ZTRTN="EN^SROQT" D ^%ZTLOAD
24 Q
Note: See TracBrowser for help on using the repository browser.