AFJXPATS.m

AFJXPATS ;FO-OAKLAND/GMB-NETWORK HEALTH CROSS REF PATIENT ;1/17/96  13:11

 ;;5.1;Network Health Exchange;**23,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^AFJXPATS",ZTDESC="NETWORK PATIENT LIST"

 D ^%ZTLOAD

 Q

PROCESS ;

 D PROCESS^AFJXPNHA("Summary Network Patients",0,1)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---AFJXPATS   408     printed  Dec 13, 2024@02:17:47                                                                                                                                                                                                     Page 2

AFJXPATS  ;FO-OAKLAND/GMB-NETWORK HEALTH CROSS REF PATIENT ;1/17/96  13:11

 +1       ;;5.1;Network Health Exchange;**23,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^AFJXPATS"

           SET ZTDESC="NETWORK PATIENT LIST"

 +3        DO ^%ZTLOAD

 +4        QUIT 

PROCESS   ;

 +1        DO PROCESS^AFJXPNHA("Summary Network Patients",0,1)

 +2        QUIT