← Back to branch summary

~ov+server/openvista-server/mainline

« back to all changes in this revision

Viewing changes to routines/medsphere/MSCF0.m

  • Committer: Jonathan Tai
  • Date: 2010-07-21 07:39:07 UTC
  • Revision ID: jon.tai@medsphere.com-20100721073907-6swd9zhzxongtra5
OpenVista 1.5 Service Pack 5

Installed the following builds (in order):

LR*5.2*1501
MSCPSBCOA*0.9*2
LR*5.2*1500
OR*3.0*1500
PSJ*5.0*1500
PSB*3.0*1500
OR*3.0*1503
RA*5.0*1502
MSCF*1.5*1501
RA*5.0*1501
MSCO*1.5*1505
PSJ*5.0*1501
OR*3.0*1502
MSCF*1.5*1502

From these files:

LR_52_1501.KID
MSCPSBCOA0_9_2.KID
LR_52_1500_REVD.KID
OR_30_1500.KID
PSJ_50_1500.KID
psb_3_1500a.kid
OR_30_1503.KID
RA_50_1502.KID
MSCF_15_1501.KID
RA_50_1501.KID
MSCO_15_1505.KID
PSJ_50_1501.KID
OR_30_1502_6.KID
MSCF_15_1502.KID

After all KIDS builds were installed, FileMan 1039 routines were imported from MSCFILEMAN 1039.RSA and ^DINIT was run.

Show diffs side-by-side

added added

removed removed

Lines of Context:
routines/medsphere/MSCF0.m
1
 
MSCF0   ;MSC/REC ;AUTO FAXING;07 NOV 2008
2
 
        ;;1.5;AUTO FAX;**MSC,1502**;1/23/2008
 
1
MSCF0   ;MSC/REC ;AUTO FAXING; 14 JULY 2010 - 1414
 
2
        ;;1.5;AUTO FAX;**1502**;1/23/2008
3
3
        ;
4
4
        Q:$$GET^XPAR("ALL","MSC AUTO FAX ON")<1  ; check auto fax parameter
5
5
        S MSCAFMP=$$GET^XPAR("ALL","MSC AUTO FAX PRELIM MICROS")
6
6
        Q:$G(DUZ(2))']""  ; no division
7
7
        Q:$G(PKG)']""  ; no package designation
8
8
        N MSCEXIT,MSG,%DT S MSCEXIT=0
 
9
        D DEV I MSCEXIT D EXIT Q
9
10
        D VAR I MSCEXIT D EXIT Q
10
11
        D PROV  ; get provider IEN
11
12
        Q:MSCEXIT  ; problem with getting provider IEN
12
13
        D FAXINFO I MSCEXIT D EXIT Q
13
14
        D MCD
14
15
        D FAXED I MSCEXIT D EXIT Q
 
16
        ;
15
17
        I PKG="LR" D
16
18
        . D CHK I MSCEXIT Q
17
 
        . D DEV I MSCEXIT D EXIT Q
18
 
        . U IO
19
19
        . D INTERIM^MSCF1
20
 
        . D ^%ZISC
 
20
        ;
21
21
        I PKG="RA" D
22
 
        . ;D DEV I MSCEXIT D EXIT Q
23
 
        . ;U IO
24
22
        . D RADFAX^MSCFR1
25
23
        ;
26
24
        D EXIT
63
61
        Q
64
62
DEV     ; get device info
65
63
        I $$GET^XPAR("ALL","MSC AUTO FAX DEBUG ON") D HOME^%ZIS U IO S IOSL=55 Q
66
 
        S IOP="FAX APPLIANCE" D ^%ZIS
67
 
        I POP  W !,"COULD NOT OPEN FAX APPLIANCE.  RESULTS NOT FAXED.",! S MSCEXIT=1 Q
 
64
        ;
 
65
        ; Need to have a device in the device file called fax appliance!
 
66
        I '$D(^%ZIS(1,"B","FAX APPLIANCE")) W !!!,"FAX APPLIANCE Device undefined.  Contact IRM.",!!! S MSCEXIT=1
68
67
        Q
69
68
        ;
70
69
FAXED   ; check if fax already sent for LRUID.  Only checking for "CH" subscripted results at this time.