source: FOIAVistA/tag/r/CMOP-PSX/PSXSERV.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1PSXSERV ;BIR/BAB,WPB-Server Management Utility ;[ 04/08/97 2:06 PM ]
2 ;;2.0;CMOP;;11 Apr 97
3START ;Receive initial incoming message for CMOP route by message type
4 S TTXMZ=XMZ
5 X XMREC G:$G(XMER)<0 EX
6 I $E(XMRG,1,6)["$$XMIT" S ZTRTN="HDR^PSXRECV",ZTDESC="CMOP Data Transmission",ZTIO="PSX" G QUE
7 I $E(XMRG,1,6)["$$ACKN" S ZTRTN="ACK^PSXRSYU",ZTDESC="CMOP Data Transmission Acknowledgement",ZTIO="PSX" G QUE
8 I $E(XMRG,1,6)["$$VACK" S ZTRTN="ACK^PSXRSYU",ZTDESC="CMOP Data Transmission Acknowledgement",ZTIO="PSX" G QUE
9 I $E(XMRG,1,6)["$$RMIT" S ZTRTN="HDR^PSXRECV",ZTDESC="CMOP Data Transmission",ZTIO="PSX" G QUE
10 I $E(XMRG,1,5)["$$VND" S ZTRTN="EN^PSXVND",ZTDESC="CMOP Remote Release Filer",ZTIO="PSX" G QUE
11 I $E(XMRG,1,5)["$$RTN" S ZTRTN="RTN^PSXVEND",ZTDESC="CMOP Release Acknowledgement Filer",ZTIO="PSX" G QUE
12 I $E(XMRG,1,5)["$$ACT" S ZTRTN="EN^PSXACT",ZTDESC="CMOP Activiation at Host",ZTIO="PSX" G QUE
13 I $E(XMRG,1,5)["$$SYS" S ZTRTN="ACT^PSXRSYU",ZTDESC="CMOP Activation at Remote",ZTIO="PSX" G QUE
14 I $E(XMRG,1,6)["$$DACT" S ZTRTN="DEACT^PSXACT",ZTDESC="CMOP Inactivation",ZTIO="PSX" G QUE
15 I $E(XMRG,1,6)["$$AUTO" S ZTRTN="AUTO^PSXMISC",ZTDESC="CMOP Auto Transmission Notice at Host",ZTIO="PSX" G QUE
16 I $E(XMRG,1,6)["$$INV" S ZTRTN="INV^PSXVEND",ZTDESC="CMOP Invalid Release Data Filer",ZTIO="PSX" G QUE
17 G:$E(XMRG,1,5)["$$END" EX
18QUE S ZTDTH=$H,ZTSAVE("XMREC")="",ZTSAVE("XMZ")="",ZTSAVE("XQMSG")="",ZTSAVE("XQSOP")="",ZTSAVE("XMER")="",ZTSAVE("TTXMZ")="",ZTSAVE("XMFROM")="",ZTSAVE("XMRG")="" D ^%ZTLOAD
19 ;Insert code to generate MM msg if invalid message type received
20EX ;S XMZ=TTXMZ,XMSER="S.PSXX CMOP SERVER" D REMSBMSG^XMA1C
21 K ZTDTH,ZTRTN,ZTIO,ZTSAVE("XMER"),ZTDESC,ZTSAVE("XMRG"),ZTSAVE("XQMSG"),ZTSAVE("XMFROM"),ZTSAVE("XQSOP"),ZTSAVE("XMZ"),ZTSAVE("XMREC"),ZTSAVE("XMSER"),TTXMZ
22 S ZTREQ="@"
23 Q
Note: See TracBrowser for help on using the repository browser.