AFJXTEMA.m

AFJXTEMA ;FO-OAKLAND/GMB-ONE-TIME ADD PTS TO DB ;1/17/96  13:11

 ;;5.1;Network Health Exchange;**31**;Jan 23, 1996

 ; Totally rewritten 11/2001.  (Previously FJ/CWS.)

ENTER ; Send data from patient file 0 node

 N ZTSAVE,ZTIO,ZTRTN,ZTDESC

 S ZTIO="",ZTRTN="PROCESS^AFJXTEMA",ZTDESC="ONE-TIME ADD PTS TO NETWORK FILE"

 D ^%ZTLOAD

 Q

PROCESS ;

 D PROCESS^AFJXPNHA("ONE-TIME ADD PTS TO NETWORK FILE",2940420)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---AFJXTEMA   419     printed  Dec 13, 2024@02:17:53                                                                                                                                                                                                     Page 2

AFJXTEMA  ;FO-OAKLAND/GMB-ONE-TIME ADD PTS TO DB ;1/17/96  13:11

 +1       ;;5.1;Network Health Exchange;**31**;Jan 23, 1996

 +2       ; Totally rewritten 11/2001.  (Previously FJ/CWS.)

ENTER     ; Send data from patient file 0 node

 +1        NEW ZTSAVE,ZTIO,ZTRTN,ZTDESC

 +2        SET ZTIO=""

           SET ZTRTN="PROCESS^AFJXTEMA"

           SET ZTDESC="ONE-TIME ADD PTS TO NETWORK FILE"

 +3        DO ^%ZTLOAD

 +4        QUIT 

PROCESS   ;

 +1        DO PROCESS^AFJXPNHA("ONE-TIME ADD PTS TO NETWORK FILE",2940420)

 +2        QUIT