AFJXPATL.m

AFJXPATL ;FO-OAKLAND/GMB-NETWORK HEALTH PATIENT LIST ;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^AFJXPATL",ZTDESC="NETWORK PATIENT LIST"

 D ^%ZTLOAD

 Q

PROCESS ;

 D PROCESS^AFJXPNHA("Network Patient List",0,1,5000,1)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---AFJXPATL   403     printed  Dec 13, 2024@02:17:46                                                                                                                                                                                                     Page 2

AFJXPATL  ;FO-OAKLAND/GMB-NETWORK HEALTH PATIENT LIST ;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^AFJXPATL"

           SET ZTDESC="NETWORK PATIENT LIST"

 +3        DO ^%ZTLOAD

 +4        QUIT 

PROCESS   ;

 +1        DO PROCESS^AFJXPNHA("Network Patient List",0,1,5000,1)

 +2        QUIT