Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
IFCAP 6 (PODISCH,PODISCW)^PRCHLO1  (POITDRCH,POITDRCW,POITDSH,POITDSW,POITEMH,POITEMW,POITLNH,POITLNW)^PRCHLO2  (AD1358H,AD1358W,CONTRPH,CONTRPW,DR1358H,DR1358W,PAMDDH,PAMDDW,PAMTBKH,PAMTBKW,PO2237H,PO2237W,POAMDCH,POAMDCW,POAMDH,POAMDW,POAMTH,POAMTW,POBOCH,POBOCW,POCMTSH,POCMTSW,POMASTH,POMASTW,POOBHD,POOBW,POPART,POPARTW,POPMEH,POPMEW,POPPTH,POPPTW,PORMKH,PORMKW,SUBCPH,SUBCPW)^PRCHLO3  MAILFTP^PRCHLO4A  (INVCERT,INVFMS,INVHDR,INVPAY)^PRCHLO7  (BLDGP1,BLDGP2)^PRCPLO3  
Kernel 4 (CLOSE,OPEN)^%ZISH  USE^%ZISUTL  $$KSP^XUPARAM  $$DECRYP^XUSRB1  
Toolkit 1 $$GET^XPAR  
VA FileMan 1 $$GET1^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
IFCAP 1 PRCHLO5  

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

External References

Name Field # of Occurrence
CLOSE^%ZISH POMASTF+8, POOBF+7, POMETHF+7, PODISCF+7, POITMF+7, POITIVF+7, POITDRF+7, PODSCF+7, POPRTF+7, PO2237F+7
, POBOCF+7, POCOMF+7, POREMF+7, POPPTF+7, POAMTF+7, POAMDF+7, POAMDCF+7, POAMDDF+7, POAMBKF+7, FIL410+7
, FIL410+14, FIL424+7, FIL4241+7, TSTF+21, CRTCOM+27, CRTCOM1+17, CRTUNX1+49
OPEN^%ZISH POMASTF+4, POOBF+3, POMETHF+3, PODISCF+3, POITMF+3, POITIVF+3, POITDRF+3, PODSCF+3, POPRTF+3, PO2237F+3
, POBOCF+3, POCOMF+3, POREMF+3, POPPTF+3, POAMTF+3, POAMDF+3, POAMDCF+3, POAMDDF+3, POAMBKF+3, FIL410+3
, FIL410+10, FIL424+3, FIL4241+3, TSTF+7, CRTCOM+16, CRTCOM1+10, CRTUNX1+27
USE^%ZISUTL POMASTF+5, POOBF+4, POMETHF+4, PODISCF+4, POITMF+4, POITIVF+4, POITDRF+4, PODSCF+4, POPRTF+4, PO2237F+4
, POBOCF+4, POCOMF+4, POREMF+4, POPPTF+4, POAMTF+4, POAMDF+4, POAMDCF+4, POAMDDF+4, POAMBKF+4, FIL410+4
, FIL410+11, FIL424+4, FIL4241+4, TSTF+12, CRTCOM+21, CRTCOM1+11, CRTUNX1+28
$$GET1^DIQ CLRSFIL+6, TSTF+4, CRTCOM+11, CRTCOM1+5, FTPCOM+12, CRTUNX1+6, UNXFTP+13
PODISCH^PRCHLO1 PODISCF+5
PODISCW^PRCHLO1 PODISCF+6
POITDRCH^PRCHLO2 POITDRF+5
POITDRCW^PRCHLO2 POITDRF+6
POITDSH^PRCHLO2 PODSCF+5
POITDSW^PRCHLO2 PODSCF+6
POITEMH^PRCHLO2 POITMF+5
POITEMW^PRCHLO2 POITMF+6
POITLNH^PRCHLO2 POITIVF+5
POITLNW^PRCHLO2 POITIVF+6
AD1358H^PRCHLO3 FIL4241+5
AD1358W^PRCHLO3 FIL4241+6
CONTRPH^PRCHLO3 FIL410+5
CONTRPW^PRCHLO3 FIL410+6
DR1358H^PRCHLO3 FIL424+5
DR1358W^PRCHLO3 FIL424+6
PAMDDH^PRCHLO3 POAMDDF+5
PAMDDW^PRCHLO3 POAMDDF+6
PAMTBKH^PRCHLO3 POAMBKF+5
PAMTBKW^PRCHLO3 POAMBKF+6
PO2237H^PRCHLO3 PO2237F+5
PO2237W^PRCHLO3 PO2237F+6
POAMDCH^PRCHLO3 POAMDCF+5
POAMDCW^PRCHLO3 POAMDCF+6
POAMDH^PRCHLO3 POAMDF+5
POAMDW^PRCHLO3 POAMDF+6
POAMTH^PRCHLO3 POAMTF+5
POAMTW^PRCHLO3 POAMTF+6
POBOCH^PRCHLO3 POBOCF+5
POBOCW^PRCHLO3 POBOCF+6
POCMTSH^PRCHLO3 POCOMF+5
POCMTSW^PRCHLO3 POCOMF+6
POMASTH^PRCHLO3 POMASTF+6
POMASTW^PRCHLO3 POMASTF+7
POOBHD^PRCHLO3 POOBF+5
POOBW^PRCHLO3 POOBF+6
POPART^PRCHLO3 POPRTF+5
POPARTW^PRCHLO3 POPRTF+6
POPMEH^PRCHLO3 POMETHF+5
POPMEW^PRCHLO3 POMETHF+6
POPPTH^PRCHLO3 POPPTF+5
POPPTW^PRCHLO3 POPPTF+6
PORMKH^PRCHLO3 POREMF+5
PORMKW^PRCHLO3 POREMF+6
SUBCPH^PRCHLO3 FIL410+12
SUBCPW^PRCHLO3 FIL410+13
MAILFTP^PRCHLO4A CRTCOM+5, CRTCOM+8, CRTCOM1+8, CRTUNX1+9, CRTUNX1+16, CRTUNX1+19
INVCERT^PRCHLO7 TSTFIL+27
INVFMS^PRCHLO7 TSTFIL+26
INVHDR^PRCHLO7 TSTFIL+24
INVPAY^PRCHLO7 TSTFIL+25
BLDGP1^PRCPLO3 GIPBL1+1
BLDGP2^PRCPLO3 GIPBL1+2
$$GET^XPAR GETDIR+1, CLRSFIL+2, TSTF+6, CRTCOM+4, CRTCOM+7, CRTCOM+14, CRTCOM1+6, CRTCOM1+7, FTPCOM+11, CRTUNX1+7
, CRTUNX1+8, CRTUNX1+15, CRTUNX1+18, UNXFTP+12
$$KSP^XUPARAM CLRSFIL+6, TSTF+4, CRTCOM+11, CRTCOM1+5, FTPCOM+12, CRTUNX1+6, UNXFTP+13
$$DECRYP^XUSRB1 CRTCOM+6, CRTCOM+9, CRTUNX1+17, CRTUNX1+20

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

Label References

Name Line Occurrences
FIL410 TSTFIL+21
FIL424 TSTFIL+22
FIL4241 TSTFIL+23
PO2237F TSTFIL+11
POAMBKF TSTFIL+20
POAMDCF TSTFIL+18
POAMDDF TSTFIL+19
POAMDF TSTFIL+17
POAMTF TSTFIL+16
POBOCF TSTFIL+12
POCOMF TSTFIL+13
PODISCF TSTFIL+5
PODSCF TSTFIL+9
POITDRF TSTFIL+8
POITIVF TSTFIL+7
POITMF TSTFIL+6
POMASTF TSTFIL+2
POMETHF TSTFIL+4
POOBF TSTFIL+3
POPPTF TSTFIL+15
POPRTF TSTFIL+10
POREMF TSTFIL+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADDR CRTCOM1+4~, CRTCOM1+7*, CRTCOM1+8, CRTCOM1+14, CRTUNX1+5~, CRTUNX1+8*, CRTUNX1+9, CRTUNX1+13
>> CLRSERR TSTF+9*, TSTF+11, CRTCOM+5*, CRTCOM+8*, CRTCOM+18*, CRTCOM+20, CRTCOM1+8*, FTPCOM+18*, CRTUNX1+9*, CRTUNX1+16*
, CRTUNX1+19*, UNXFTP+19*
CMD CRTUNX1+5~, CRTUNX1+51*, CRTUNX1+52
FILEDIR GETDIR+1*, CLRSFIL+1~, CLRSFIL+2*, POMASTF+4, POOBF+3, POMETHF+3, PODISCF+3, POITMF+3, POITIVF+3, POITDRF+3
, PODSCF+3, POPRTF+3, PO2237F+3, POBOCF+3, POCOMF+3, POREMF+3, POPPTF+3, POAMTF+3, POAMDF+3, POAMDCF+3
, POAMDDF+3, POAMBKF+3, FIL410+3, FIL410+10, FIL424+3, FIL4241+3, TSTF+1~, TSTF+6*, TSTF+7, CRTCOM+1~
, CRTCOM+14*, CRTCOM+16, CRTCOM+24, CRTCOM1+4~, CRTCOM1+6*, CRTCOM1+10, CRTCOM1+13, CRTCOM1+14, FTPCOM+8~, FTPCOM+11*
, FTPCOM+13, CRTUNX1+5~, CRTUNX1+7*, CRTUNX1+27, CRTUNX1+38, CRTUNX1+52, UNXFTP+9~, UNXFTP+12*, UNXFTP+14
FILES CRTUNX1+5~, CRTUNX1+23*, CRTUNX1+36
HOST CRTUNX1+5~, CRTUNX1+13*, CRTUNX1+33
OUTFIL1 POMASTF+2~, POMASTF+3*, POMASTF+4
OUTFIL10 PO2237F+1~, PO2237F+2*, PO2237F+3
OUTFIL11 POBOCF+1~, POBOCF+2*, POBOCF+3
OUTFIL12 POCOMF+1~, POCOMF+2*, POCOMF+3
OUTFIL13 POREMF+1~, POREMF+2*, POREMF+3
OUTFIL14 POPPTF+1~, POPPTF+2*, POPPTF+3
OUTFIL15 POAMTF+1~, POAMTF+2*, POAMTF+3
OUTFIL16 POAMDF+1~, POAMDF+2*, POAMDF+3
OUTFIL17 POAMDCF+1~, POAMDCF+2*, POAMDCF+3
OUTFIL18 POAMDDF+1~, POAMDDF+2*, POAMDDF+3
OUTFIL19 POAMBKF+1~, POAMBKF+2*, POAMBKF+3
OUTFIL2 POOBF+1~, POOBF+2*, POOBF+3
OUTFIL20 FIL410+1~, FIL410+2*, FIL410+3
OUTFIL21 FIL410+8~, FIL410+9*, FIL410+10
OUTFIL22 FIL424+1~, FIL424+2*, FIL424+3
OUTFIL23 FIL4241+1~, FIL4241+2*, FIL4241+3
OUTFIL3 POMETHF+1~, POMETHF+2*, POMETHF+3
OUTFIL4 PODISCF+1~, PODISCF+2*, PODISCF+3
OUTFIL5 POITMF+1~, POITMF+2*, POITMF+3
OUTFIL6 POITIVF+1~, POITIVF+2*, POITIVF+3
OUTFIL7 POITDRF+1~, POITDRF+2*, POITDRF+3
OUTFIL8 PODSCF+1~, PODSCF+2*, PODSCF+3
OUTFIL9 POPRTF+1~, POPRTF+2*, POPRTF+3
OUTFILT TSTF+1~, TSTF+5*, TSTF+7
OUTFLL1 CRTCOM+1~, CRTCOM+15*, CRTCOM+16
OUTFLL2 CRTCOM1+4~, CRTCOM1+9*, CRTCOM1+10, CRTUNX1+5~, CRTUNX1+10*, CRTUNX1+27
PASSWD CRTUNX1+5~, CRTUNX1+22*, CRTUNX1+35
POP TSTF+1~, TSTF+3*, TSTF+8, CRTCOM+1~, CRTCOM+12*, CRTCOM+17
PRCHPSW CRTCOM+3~, CRTCOM+7*, CRTCOM+8, CRTCOM+9*, CRTCOM+23, CRTUNX1+18*, CRTUNX1+19, CRTUNX1+20*, CRTUNX1+22
PRCHUSN CRTCOM+3~, CRTCOM+4*, CRTCOM+5, CRTCOM+6*, CRTCOM+23, CRTUNX1+15*, CRTUNX1+16, CRTUNX1+17*, CRTUNX1+21
>> PRCPMSG(1 CRTCOM+5*, CRTCOM+8*, CRTCOM1+8*, CRTUNX1+9*, CRTUNX1+16*, CRTUNX1+19*
>> PRCPMSG(2 CRTCOM+5*, CRTCOM+8*, CRTCOM1+8*, CRTUNX1+9*, CRTUNX1+16*, CRTUNX1+19*
PV FTPCOM+8~, FTPCOM+17, UNXFTP+9~
STID CLRSFIL+4~, CLRSFIL+6*, POMASTF+3, POOBF+2, POMETHF+2, PODISCF+2, POITMF+2, POITIVF+2, POITDRF+2, PODSCF+2
, POPRTF+2, PO2237F+2, POBOCF+2, POCOMF+2, POREMF+2, POPPTF+2, POAMTF+2, POAMDF+2, POAMDCF+2, POAMDDF+2
, POAMBKF+2, FIL410+2, FIL410+9, FIL424+2, FIL4241+2, TSTF+1~, TSTF+4*, TSTF+5, CRTCOM+1~, CRTCOM+11*
, CRTCOM+15, CRTCOM+25, CRTCOM1+4~, CRTCOM1+5*, CRTCOM1+9, CRTCOM1+14, FTPCOM+8~, FTPCOM+12*, FTPCOM+13, CRTUNX1+5~
, CRTUNX1+6*, CRTUNX1+10, CRTUNX1+52, UNXFTP+9~, UNXFTP+13*, UNXFTP+14
TFILE TSTF+1~
USER CRTUNX1+5~, CRTUNX1+21*, CRTUNX1+34
XPV1 FTPCOM+8~, FTPCOM+13*, FTPCOM+14, CRTUNX1+52*, CRTUNX1+53, UNXFTP+9~, UNXFTP+14*, UNXFTP+15, UNXFTP+18
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All