Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PRCHLO4

Package: IFCAP

Routine: PRCHLO4


Information

PRCHLO4 ;WOIFO/RLL/DAP-EXTRACT ROUTINE CLO REPORT SERVER ;12/30/10 15:01

Source Information

Source file <PRCHLO4.m>

Entry Points

Name Comments DBIA/ICR reference
GETDIR ; Get directory from System parameter for CLRS
CLRSFIL ; Create output files for CLRS
TSTFIL ; Test entry point
GIPBL1 ; GIP REPORTS
POMASTF ; Save PO Master table data to a file to FTP to report Server
; build file name
POOBF ; Create flat file for PO OBLIGATION DATA
POMETHF ; Create flat for for Purchase Order Method
PODISCF ; Create flat file for Purchase Order Discount
POITMF ; Create flat file for PO Item data
POITIVF ; Create flat file for PO Item inv. point data
POITDRF ; Create flat file for PO Item date received
PODSCF ; Create flat file for PO item description
POPRTF ; Create flat file for PO Partial data
PO2237F ; Create flat file for 2237 data
POBOCF ; Create flat file for PO BOC data
POCOMF ; Create flat file for PO Comments
POREMF ; Create flat file for PO Remarks
POPPTF ; Create flat file for PO Prompt payment terms data
POAMTF ; Create flat file for PO Amount data
POAMDF ; Create flat file for PO Amendment data
POAMDCF ; Create flat file for PO Amendment changes
POAMDDF ; Create flat file for PO Amendment Desc data
POAMBKF ; Create flat file for PO amount breakout code
FIL410 ; Create flat file for file 410 (Control Point Activity)
FIL424 ; Create flat file for file 424 (1358 Daily Record)
FIL4241 ;Create flat file for file 424.1 (1358 Authorization Detail)
TSTF ; Test directory for file creation
CRTCOM ; Create .DAT file to transfer file(s)
CRTCOM1 ; Run CLRSFTP1.COM as com file for exception handling
FTPCOM ; Issue the FTP command after CLRS1.TXT file is built
; remain in CACHE during FTP Process using
; $ZF(-1) call
; ; SACC Exception received for usage of $ZF(-1) in PRC*5.1*83
; See IFCAP technical manual
CRTUNX1 ;PRC*5.1*172 added logic for Full Linux
; Run CLRS_STID_UNX.sh as shell script file for exception handling
UNXFTP ;PRC*5.1*172 added logic for Full Linux
; Issue the FTP command after CLRS1.TXT file is built
; remain in CACHE during FTP Process using
; $ZF(-1) call
; ; SACC Exception received for usage of $ZF(-1) in PRC*5.1*83
; See IFCAP technical manual

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"$ ! This directory is used to store PO activity"
  • Line Location: TSTF+13
Function Call: WRITE
  • Prompt: !,"$ ! extracts and GIP Extracts which are transmitted"
  • Line Location: TSTF+14
Function Call: WRITE
  • Prompt: !,"$ ! to the Clinical Logistics Report Server on a monthly"
  • Line Location: TSTF+15
Function Call: WRITE
  • Prompt: !,"$ ! basis. There are 29 extract files IFCPXXXF1 through"
  • Line Location: TSTF+16
Function Call: WRITE
  • Prompt: !,"$ ! IFCPXXXF27, IFCPXXXG1 and IFCPXXXG2. In addition, there"
  • Line Location: TSTF+17
Function Call: WRITE
  • Prompt: !,"$ ! are 2 working files used for the FTP Transfer:"
  • Line Location: TSTF+18
Function Call: WRITE
  • Prompt: !,"$ ! CLRSxxx.DAT and CLRS1xxx.COM. CLRSREADMExxx.TXT is also present"
  • Line Location: TSTF+19
Function Call: WRITE
  • Prompt: !,"$ EXIT"
  • Line Location: TSTF+20
Function Call: WRITE
  • Prompt: PRCHUSN,!,PRCHPSW,!
  • Line Location: CRTCOM+23
Function Call: WRITE
  • Prompt: "SET DEFAULT /LOCAL "_FILEDIR,!
  • Line Location: CRTCOM+24
Function Call: WRITE
  • Prompt: "PUT IFCP"_STID_"*.*;*",!
  • Line Location: CRTCOM+25
Function Call: WRITE
  • Prompt: "EXIT",!
  • Line Location: CRTCOM+26
Function Call: WRITE
  • Prompt: "$ SET VERIFY=(PROCEDURE,IMAGE)",!
  • Line Location: CRTCOM1+12
Function Call: WRITE
  • Prompt: "$ SET DEFAULT "_FILEDIR,!
  • Line Location: CRTCOM1+13
Function Call: WRITE
  • Prompt: "$ FTP "_ADDR_" /INPUT="_FILEDIR_"CLRS"_STID_"FTP.DAT",!
  • Line Location: CRTCOM1+14
Function Call: WRITE
  • Prompt: "$ EXIT 3",!
  • Line Location: CRTCOM1+16
Function Call: WRITE
  • Prompt: "#!/bin/bash",!
  • Line Location: CRTUNX1+31
Function Call: WRITE
  • Prompt: !
  • Line Location: CRTUNX1+32
Function Call: WRITE
  • Prompt: "HOST='"_HOST_"'",!
  • Line Location: CRTUNX1+33
Function Call: WRITE
  • Prompt: "USER='"_USER_"'",!
  • Line Location: CRTUNX1+34
Function Call: WRITE
  • Prompt: "PASSWD='"_PASSWD_"'",!
  • Line Location: CRTUNX1+35
Function Call: WRITE
  • Prompt: "FILES='"_FILES_"'",!
  • Line Location: CRTUNX1+36
Function Call: WRITE
  • Prompt: !
  • Line Location: CRTUNX1+37
Function Call: WRITE
  • Prompt: "cd ",FILEDIR,!
  • Line Location: CRTUNX1+38
Function Call: WRITE
  • Prompt: !
  • Line Location: CRTUNX1+39
Function Call: WRITE
  • Prompt: "ftp -n $HOST <<END_SCRIPT",!
  • Line Location: CRTUNX1+40
Function Call: WRITE
  • Prompt: "quote USER $USER",!
  • Line Location: CRTUNX1+41
Function Call: WRITE
  • Prompt: "quote PASS $PASSWD",!
  • Line Location: CRTUNX1+42
Function Call: WRITE
  • Prompt: "prompt",!
  • Line Location: CRTUNX1+43
Function Call: WRITE
  • Prompt: "mput $FILES",!
  • Line Location: CRTUNX1+44
Function Call: WRITE
  • Prompt: "quit",!
  • Line Location: CRTUNX1+45
Function Call: WRITE
  • Prompt: "END_SCRIPT",!
  • Line Location: CRTUNX1+46
Function Call: WRITE
  • Prompt: "exit 0",!
  • Line Location: CRTUNX1+47
Function Call: WRITE
  • Prompt: "$ EXIT 3",!
  • Line Location: CRTUNX1+48

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call