source:
WorldVistAEHR/trunk/r/NETWORK_HEALTH_EXCHANGE-AFJX/AFJXTEMA.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 408 bytes |
Line | |
---|---|
1 | AFJXTEMA ;FO-OAKLAND/GMB-ONE-TIME ADD PTS TO DB ;1/17/96 13:11 |
2 | ;;5.1;Network Health Exchange;**31**;Jan 23, 1996 |
3 | ; Totally rewritten 11/2001. (Previously FJ/CWS.) |
4 | ENTER ; Send data from patient file 0 node |
5 | N ZTSAVE,ZTIO,ZTRTN,ZTDESC |
6 | S ZTIO="",ZTRTN="PROCESS^AFJXTEMA",ZTDESC="ONE-TIME ADD PTS TO NETWORK FILE" |
7 | D ^%ZTLOAD |
8 | Q |
9 | PROCESS ; |
10 | D PROCESS^AFJXPNHA("ONE-TIME ADD PTS TO NETWORK FILE",2940420) |
11 | Q |
Note:
See TracBrowser
for help on using the repository browser.