Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PRCHLO4

PRCHLO4.m

Go to the documentation of this file. 
  1. PRCHLO4 ;WOIFO/RLL/DAP-EXTRACT ROUTINE CLO REPORT SERVER ;12/30/10  15:01
  1.  ;;5.1;IFCAP;**83,98,130,154,172**;Oct 20, 2000;Build 2
  1.  ;Per VHA Directive 2004-038, this routine should not be modified.
  1.  ; Continuation of PRCHLO3
  1.  ;
  1.  ; PRCHLO3 routines are used to Write out the Header and data
  1.  ; associated with each of the 29 tables created for the Clinical
  1.  ; logistics Report Server. The files are built from the extracts
  1.  ; located in the ^TMP($J) global.
  1.  ;
  1.  ;Patch PRC*5.1*172 are modifications to CLRS transmission processing 
  1.  ;to support those sites that have migrated to Full LINUX OS
  1.  ; 
  1.  Q
  1. GETDIR ; Get directory from System parameter for CLRS
  1.  S FILEDIR=$$GET^XPAR("SYS","PRCPLO EXTRACT DIRECTORY",1,"Q")
  1.  ;
  1.  Q
  1. CLRSFIL ; Create output files for CLRS
  1.  N FILEDIR
  1.  S FILEDIR=$$GET^XPAR("SYS","PRCPLO EXTRACT DIRECTORY",1,"Q")
  1.  ; GET station id
  1.  N STID
  1.  ; S STID=$G(^DD("SITE",1)) Old call
  1.  S STID=$$GET1^DIQ(4,$$KSP^XUPARAM("INST")_",",99)
  1. TSTFIL ; Test entry point
  1.  ;
  1.  D POMASTF  ; Po Master Data
  1.  D POOBF  ; Po Obligation Data
  1.  D POMETHF  ; PO Method of Purchase Data
  1.  D PODISCF  ; PO Discount Data
  1.  D POITMF  ; Po Item Data
  1.  D POITIVF  ; PO Item Inventory Point Data
  1.  D POITDRF  ; PO Item Desc Data
  1.  D PODSCF  ; PO Description
  1.  D POPRTF  ; PO Partial Data
  1.  D PO2237F  ; PO 2237 data
  1.  D POBOCF  ; PO BOC Data
  1.  D POCOMF  ; PO Comments data
  1.  D POREMF  ; PO Remarks data
  1.  D POPPTF  ; PO Prompt Payment Terms data
  1.  D POAMTF  ; PO Amount data
  1.  D POAMDF  ; PO Amendment Data
  1.  D POAMDCF  ; PO Amendment Changes Data
  1.  D POAMDDF  ; PO Amendment Description Data
  1.  D POAMBKF  ; PO Amount Breakout Code Data
  1.  D FIL410   ; FILE 410
  1.  D FIL424   ; FILE 424
  1.  D FIL4241  ; FILE 424.1
  1.  D INVHDR^PRCHLO7 ;File 421.5 header
  1.  D INVPAY^PRCHLO7 ;Subfile 421.531
  1.  D INVFMS^PRCHLO7 ;Subfile 421.541
  1.  D INVCERT^PRCHLO7 ;Subfile 421.51
  1. GIPBL1 ; GIP REPORTS
  1.  D BLDGP1^PRCPLO3
  1.  D BLDGP2^PRCPLO3
  1.  Q
  1. POMASTF ; Save PO Master table data to a file to FTP to report Server
  1.  ; build file name
  1.  N OUTFIL1
  1.  S OUTFIL1="IFCP"_STID_"F1.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL1,"W")  ; Open the file
  1.  D USE^%ZISUTL("FILE1")  ; Use the file as the output device
  1.  D POMASTH^PRCHLO3   ; Write the Header to the file
  1.  D POMASTW^PRCHLO3   ; Write the data to the file
  1.  D CLOSE^%ZISH("FILE1")  ; Close the file
  1.  Q
  1. POOBF ; Create flat file for PO OBLIGATION DATA
  1.  N OUTFIL2
  1.  S OUTFIL2="IFCP"_STID_"F2.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL2,"W")  ; Open the file
  1.  D USE^%ZISUTL("FILE1")  ; Use the file as the output device
  1.  D POOBHD^PRCHLO3
  1.  D POOBW^PRCHLO3
  1.  D CLOSE^%ZISH("FILE1")  ; Close the file
  1.  Q
  1. POMETHF ; Create flat for for Purchase Order Method
  1.  N OUTFIL3
  1.  S OUTFIL3="IFCP"_STID_"F3.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL3,"W")  ; Open the file
  1.  D USE^%ZISUTL("FILE1")  ; Use the file as the output device
  1.  D POPMEH^PRCHLO3
  1.  D POPMEW^PRCHLO3
  1.  D CLOSE^%ZISH("FILE1")  ; Close the file
  1.  Q
  1. PODISCF ; Create flat file for Purchase Order Discount
  1.  N OUTFIL4
  1.  S OUTFIL4="IFCP"_STID_"F4.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL4,"W")  ; Open the file
  1.  D USE^%ZISUTL("FILE1")
  1.  D PODISCH^PRCHLO1
  1.  D PODISCW^PRCHLO1
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. POITMF ; Create flat file for PO Item data
  1.  N OUTFIL5
  1.  S OUTFIL5="IFCP"_STID_"F5.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL5,"W")  ; Open the file
  1.  D USE^%ZISUTL("FILE1")
  1.  D POITEMH^PRCHLO2
  1.  D POITEMW^PRCHLO2
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. POITIVF ; Create flat file for PO Item inv. point data
  1.  N OUTFIL6
  1.  S OUTFIL6="IFCP"_STID_"F6.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL6,"W")  ; Open the file
  1.  D USE^%ZISUTL("FILE1")
  1.  D POITLNH^PRCHLO2
  1.  D POITLNW^PRCHLO2
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. POITDRF ; Create flat file for PO Item date received
  1.  N OUTFIL7
  1.  S OUTFIL7="IFCP"_STID_"F7.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL7,"W")  ; Open the file
  1.  D USE^%ZISUTL("FILE1")
  1.  D POITDRCH^PRCHLO2
  1.  D POITDRCW^PRCHLO2
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. PODSCF ; Create flat file for PO item description
  1.  N OUTFIL8
  1.  S OUTFIL8="IFCP"_STID_"F8.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL8,"W")  ; Open the file
  1.  D USE^%ZISUTL("FILE1")
  1.  D POITDSH^PRCHLO2
  1.  D POITDSW^PRCHLO2
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. POPRTF ; Create flat file for PO Partial data
  1.  N OUTFIL9
  1.  S OUTFIL9="IFCP"_STID_"F9.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL9,"W")  ; Open the file
  1.  D USE^%ZISUTL("FILE1")
  1.  D POPART^PRCHLO3
  1.  D POPARTW^PRCHLO3
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. PO2237F ; Create flat file for 2237 data
  1.  N OUTFIL10
  1.  S OUTFIL10="IFCP"_STID_"F10.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL10,"W")  ; Open the file
  1.  D USE^%ZISUTL("FILE1")
  1.  D PO2237H^PRCHLO3
  1.  D PO2237W^PRCHLO3
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. POBOCF ; Create flat file for PO BOC data
  1.  N OUTFIL11
  1.  S OUTFIL11="IFCP"_STID_"F11.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL11,"W")
  1.  D USE^%ZISUTL("FILE1")
  1.  D POBOCH^PRCHLO3
  1.  D POBOCW^PRCHLO3
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. POCOMF ; Create flat file for PO Comments
  1.  N OUTFIL12
  1.  S OUTFIL12="IFCP"_STID_"F12.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL12,"W")
  1.  D USE^%ZISUTL("FILE1")
  1.  D POCMTSH^PRCHLO3
  1.  D POCMTSW^PRCHLO3
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. POREMF ; Create flat file for PO Remarks
  1.  N OUTFIL13
  1.  S OUTFIL13="IFCP"_STID_"F13.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL13,"W")
  1.  D USE^%ZISUTL("FILE1")
  1.  D PORMKH^PRCHLO3
  1.  D PORMKW^PRCHLO3
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. POPPTF ; Create flat file for PO Prompt payment terms data
  1.  N OUTFIL14
  1.  S OUTFIL14="IFCP"_STID_"F14.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL14,"W")
  1.  D USE^%ZISUTL("FILE1")
  1.  D POPPTH^PRCHLO3
  1.  D POPPTW^PRCHLO3
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. POAMTF ; Create flat file for PO Amount data
  1.  N OUTFIL15
  1.  S OUTFIL15="IFCP"_STID_"F15.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL15,"W")
  1.  D USE^%ZISUTL("FILE1")
  1.  D POAMTH^PRCHLO3
  1.  D POAMTW^PRCHLO3
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. POAMDF ; Create flat file for PO Amendment data
  1.  N OUTFIL16
  1.  S OUTFIL16="IFCP"_STID_"F16.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL16,"W")
  1.  D USE^%ZISUTL("FILE1")
  1.  D POAMDH^PRCHLO3
  1.  D POAMDW^PRCHLO3
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. POAMDCF ; Create flat file for PO Amendment changes
  1.  N OUTFIL17
  1.  S OUTFIL17="IFCP"_STID_"F17.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL17,"W")
  1.  D USE^%ZISUTL("FILE1")
  1.  D POAMDCH^PRCHLO3
  1.  D POAMDCW^PRCHLO3
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. POAMDDF ; Create flat file for PO Amendment Desc data
  1.  N OUTFIL18
  1.  S OUTFIL18="IFCP"_STID_"F18.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL18,"W")
  1.  D USE^%ZISUTL("FILE1")
  1.  D PAMDDH^PRCHLO3
  1.  D PAMDDW^PRCHLO3
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. POAMBKF ; Create flat file for PO amount breakout code
  1.  N OUTFIL19
  1.  S OUTFIL19="IFCP"_STID_"F19.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL19,"W")
  1.  D USE^%ZISUTL("FILE1")
  1.  D PAMTBKH^PRCHLO3
  1.  D PAMTBKW^PRCHLO3
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. FIL410 ; Create flat file for file 410 (Control Point Activity)
  1.  N OUTFIL20
  1.  S OUTFIL20="IFCP"_STID_"F20.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL20,"W")
  1.  D USE^%ZISUTL("FILE1")
  1.  D CONTRPH^PRCHLO3
  1.  D CONTRPW^PRCHLO3
  1.  D CLOSE^%ZISH("FILE1")
  1.  N OUTFIL21
  1.  S OUTFIL21="IFCP"_STID_"F21.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL21,"W")
  1.  D USE^%ZISUTL("FILE1")
  1.  D SUBCPH^PRCHLO3
  1.  D SUBCPW^PRCHLO3
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. FIL424 ; Create flat file for file 424 (1358 Daily Record)
  1.  N OUTFIL22
  1.  S OUTFIL22="IFCP"_STID_"F22.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL22,"W")
  1.  D USE^%ZISUTL("FILE1")
  1.  D DR1358H^PRCHLO3
  1.  D DR1358W^PRCHLO3
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. FIL4241 ;Create flat file for file 424.1 (1358 Authorization Detail)
  1.  N OUTFIL23
  1.  S OUTFIL23="IFCP"_STID_"F23.TXT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFIL23,"W")
  1.  D USE^%ZISUTL("FILE1")
  1.  D AD1358H^PRCHLO3
  1.  D AD1358W^PRCHLO3
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. TSTF ; Test directory for file creation
  1.  N FILEDIR,TFILE,OUTFILT,POP,STID
  1.  ; POP is returned by OPEN^%ZISH if file cannot be created.
  1.  S POP=""
  1.  S STID=$$GET1^DIQ(4,$$KSP^XUPARAM("INST")_",",99)
  1.  S OUTFILT="CLRSREADME"_STID_".TXT"
  1.  S FILEDIR=$$GET^XPAR("SYS","PRCPLO EXTRACT DIRECTORY",1,"Q")
  1.  D OPEN^%ZISH("TFILE",FILEDIR,OUTFILT,"W")
  1.  I POP  D
  1.  . S CLRSERR=2
  1.  . Q
  1.  I CLRSERR'=2  D
  1.  . D USE^%ZISUTL("TFILE")
  1.  . W !,"$ ! This directory is used to store PO activity"
  1.  . W !,"$ ! extracts and GIP Extracts which are transmitted"
  1.  . W !,"$ ! to the Clinical Logistics Report Server on a monthly"
  1.  . W !,"$ ! basis. There are 29 extract files IFCPXXXF1 through"
  1.  . W !,"$ ! IFCPXXXF27, IFCPXXXG1 and IFCPXXXG2. In addition, there"
  1.  . W !,"$ ! are 2 working files used for the FTP Transfer:"
  1.  . W !,"$ ! CLRSxxx.DAT and CLRS1xxx.COM. CLRSREADMExxx.TXT is also present"
  1.  . W !,"$ EXIT"
  1.  . D CLOSE^%ZISH("TFILE")
  1.  . Q
  1.  Q
  1.  ;
  1. CRTCOM ; Create .DAT file to transfer file(s)
  1.  N FILEDIR,POP,STID,OUTFLL1
  1.  ; PRC*5.1*130 begin
  1.  N PRCHUSN,PRCHPSW
  1.  S PRCHUSN=$$GET^XPAR("SYS","PRCPLO USER NAME",1,"Q")
  1.  I PRCHUSN="" S PRCPMSG(1)="There is no user name identified in the CLRS USER NAME Parameter.",PRCPMSG(2)="Please correct and retry." D MAILFTP^PRCHLO4A S CLRSERR=3 Q
  1.  S PRCHUSN=$$DECRYP^XUSRB1(PRCHUSN)
  1.  S PRCHPSW=$$GET^XPAR("SYS","PRCPLO PASSWORD",1,"Q")
  1.  I PRCHPSW="" S PRCPMSG(1)="There is no password identified in the CLRS PASSWORD Parameter.",PRCPMSG(2)="Please correct and retry." D MAILFTP^PRCHLO4A S CLRSERR=3 Q
  1.  S PRCHPSW=$$DECRYP^XUSRB1(PRCHPSW)
  1.  ; PRC*5.1*130 end
  1.  S STID=$$GET1^DIQ(4,$$KSP^XUPARAM("INST")_",",99)
  1.  S POP=""  ; POP is returned by OPEN^%ZISH
  1.  ; S FILEDIR="$1$DGA2:[ANONYMOUS.CLRS]"  ;set dir for outpt files.
  1.  S FILEDIR=$$GET^XPAR("SYS","PRCPLO EXTRACT DIRECTORY",1,"Q")
  1.  S OUTFLL1="CLRS"_STID_"FTP.DAT"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFLL1,"W")
  1.  I POP  D
  1.  . S CLRSERR=3
  1.  . Q
  1.  I CLRSERR'=3  D
  1.  . D USE^%ZISUTL("FILE1")
  1.  . ; Enter user name and password for Report Server Login ; PRC*5.1*130
  1.  . W PRCHUSN,!,PRCHPSW,!
  1.  . W "SET DEFAULT /LOCAL "_FILEDIR,!
  1.  . W "PUT IFCP"_STID_"*.*;*",!  ; new code to issue PUT command
  1.  . W "EXIT",!  ; Exit FTP
  1.  . D CLOSE^%ZISH("FILE1")
  1.  . Q
  1.  Q
  1. CRTCOM1 ; Run CLRSFTP1.COM as com file for exception handling
  1.  ;
  1.  ;*98 Modified code to work with PRC CLRS ADDRESS parameter
  1.  ;
  1.  N FILEDIR,STID,OUTFLL2,ADDR
  1.  S STID=$$GET1^DIQ(4,$$KSP^XUPARAM("INST")_",",99)
  1.  S FILEDIR=$$GET^XPAR("SYS","PRCPLO EXTRACT DIRECTORY",1,"Q")
  1.  S ADDR=$$GET^XPAR("SYS","PRC CLRS ADDRESS",1,"Q")
  1.  I ADDR="" S PRCPMSG(1)="There is no address identified in the CLRS Address Parameter.",PRCPMSG(2)="Please correct and retry." D MAILFTP^PRCHLO4A S CLRSERR=1 Q
  1.  S OUTFLL2="CLRS"_STID_"FTP1.COM"
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFLL2,"W")
  1.  D USE^%ZISUTL("FILE1")
  1.  W "$ SET VERIFY=(PROCEDURE,IMAGE)",!
  1.  W "$ SET DEFAULT "_FILEDIR,!
  1.  W "$ FTP "_ADDR_" /INPUT="_FILEDIR_"CLRS"_STID_"FTP.DAT",!
  1.  ;
  1.  W "$ EXIT 3",!
  1.  D CLOSE^%ZISH("FILE1")
  1.  Q
  1. FTPCOM ; Issue the FTP command after CLRS1.TXT file is built
  1.  ; remain in CACHE during FTP Process using
  1.  ; $ZF(-1) call
  1.  ; ; SACC Exception received for usage of $ZF(-1) in PRC*5.1*83
  1.  ; See IFCAP technical manual
  1.  ;
  1.  ; commented out for testing
  1.  ; add hook to mailman messaging for ftp, check variable PV
  1.  N PV,XPV1,FILEDIR,STID
  1.  ;
  1.  ;
  1.  S FILEDIR=$$GET^XPAR("SYS","PRCPLO EXTRACT DIRECTORY",1,"Q")
  1.  S STID=$$GET1^DIQ(4,$$KSP^XUPARAM("INST")_",",99)
  1.  S XPV1="S PV=$ZF(-1,""@"_FILEDIR_"CLRS"_STID_"FTP1.COM/OUTPUT="_FILEDIR_"CLRS"_STID_"FTP1.LOG"")"
  1.  X XPV1  ; Run the .COM file to transfer files
  1.  ;
  1.  ; Error flag logic
  1.  I PV=-1  D  ; This error is generated if failure during xfer occurs
  1.  . S CLRSERR=1
  1.  . Q
  1.  Q
  1. CRTUNX1 ;PRC*5.1*172 added logic for Full Linux
  1.  ; Run CLRS_STID_UNX.sh as shell script file for exception handling
  1.  ;
  1.  ;*98 Modified code to work with PRC CLRS ADDRESS parameter
  1.  ;
  1.  N FILEDIR,STID,OUTFLL2,ADDR,CMD,FILES,HOST,PASSWD,USER
  1.  S STID=$$GET1^DIQ(4,$$KSP^XUPARAM("INST")_",",99)
  1.  S FILEDIR=$$GET^XPAR("SYS","PRCPLO EXTRACT DIRECTORY",1,"Q")
  1.  S ADDR=$$GET^XPAR("SYS","PRC CLRS ADDRESS",1,"Q")
  1.  I ADDR="" S PRCPMSG(1)="There is no address identified in the CLRS Address Parameter.",PRCPMSG(2)="Please correct and retry." D MAILFTP^PRCHLO4A S CLRSERR=1 Q
  1.  S OUTFLL2="CLRS"_STID_"UNX.SH"
  1.  ; add linux variables here
  1.   ; 
  1.  S HOST=ADDR
  1.  ; 
  1.  S PRCHUSN=$$GET^XPAR("SYS","PRCPLO USER NAME",1,"Q")
  1.  I PRCHUSN="" S PRCPMSG(1)="There is no user name identified in the CLRS USER NAME Parameter.",PRCPMSG(2)="Please correct and retry." D MAILFTP^PRCHLO4A S CLRSERR=1 Q
  1.  S PRCHUSN=$$DECRYP^XUSRB1(PRCHUSN)
  1.  S PRCHPSW=$$GET^XPAR("SYS","PRCPLO PASSWORD",1,"Q")
  1.  I PRCHPSW="" S PRCPMSG(1)="There is no password identified in the CLRS PASSWORD Parameter.",PRCPMSG(2)="Please correct and retry." D MAILFTP^PRCHLO4A S CLRSERR=1 Q
  1.  S PRCHPSW=$$DECRYP^XUSRB1(PRCHPSW)
  1.  S USER=PRCHUSN
  1.  S PASSWD=PRCHPSW
  1.  S FILES="IFCP*TXT"
  1.  ; end adding LINUX variables
  1.  ; PRC*5.1*130 end
  1.  ;
  1.  D OPEN^%ZISH("FILE1",FILEDIR,OUTFLL2,"W")
  1.  D USE^%ZISUTL("FILE1")
  1.  ;
  1.  ; add Linux code below
  1.  W "#!/bin/bash",!
  1.  W !
  1.  W "HOST='"_HOST_"'",!
  1.  W "USER='"_USER_"'",!
  1.  W "PASSWD='"_PASSWD_"'",!
  1.  W "FILES='"_FILES_"'",!
  1.  W !
  1.  W "cd ",FILEDIR,!
  1.  W !
  1.  W "ftp -n $HOST <<END_SCRIPT",!
  1.  W "quote USER $USER",!
  1.  W "quote PASS $PASSWD",!
  1.  W "prompt",!
  1.  W "mput $FILES",!
  1.  W "quit",!
  1.  W "END_SCRIPT",!
  1.  W "exit 0",!
  1.  ; W "$ EXIT 3",!
  1.  D CLOSE^%ZISH("FILE1")
  1.  ; delete the test file before LINUX FTP transmission
  1.  S CMD="rm -f "
  1.  S XPV1="S PV=$ZF(-1,"""_CMD_FILEDIR_"IFCP"_STID_"TST.TXT"")"
  1.  X XPV1
  1.  Q
  1. UNXFTP ;PRC*5.1*172 added logic for Full Linux
  1.  ; Issue the FTP command after CLRS1.TXT file is built
  1.  ; remain in CACHE during FTP Process using
  1.  ; $ZF(-1) call
  1.  ; ; SACC Exception received for usage of $ZF(-1) in PRC*5.1*83
  1.  ; See IFCAP technical manual
  1.  ;
  1.  ; commented out for testing
  1.  ; add hook to mailman messaging for ftp, check variable PV
  1.  N PV,XPV1,FILEDIR,STID
  1.  ;
  1.  ;
  1.  S FILEDIR=$$GET^XPAR("SYS","PRCPLO EXTRACT DIRECTORY",1,"Q")
  1.  S STID=$$GET1^DIQ(4,$$KSP^XUPARAM("INST")_",",99)
  1.  S XPV1="S PV=$ZF(-1,"""_FILEDIR_"CLRS"_STID_"UNX.SH >"_FILEDIR_"UNIXFTP.LOG"")"
  1.  X XPV1  ; Run the .SH file to transfer files
  1.  ;
  1.  ; Error flag logic
  1.  I XPV1=-1  D  ; This error is generated if failure during xfer occurs
  1.  . S CLRSERR=1
  1.  . Q
  1.  Q