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 |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PRCHJRP5

Package: IFCAP

Routine: PRCHJRP5


Information

PRCHJRP5 ;OI&T/DDA - Transaction Report from 414.06 ;3/22/13 13:48

Source Information

Source file <PRCHJRP5.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
VA FileMan 5 DD^%DT  NOW^%DTC  IX^DIC  $$GET1^DIQ  ^DIR  
Kernel 4 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  OP^XQCHK  
IFCAP 1 GATHER^PRCHJRP6  

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: 4

Package Total Caller Graph
IFCAP 4 PRCHJ TRANS REPORT  PRCHJ TRANS REPORT2  PRCHJ TRANS REPORT3  PRCHJRP6  

Entry Points

Name Comments DBIA/ICR reference
EN ;Revised Transaction Report
EN2 ;
ENSING ;prompt for a single 2237
ENECMS ;prompt for a unique eCMS contact. PRCHECMS equals ALL or selection from ACONTACT cross-reference.
DATE ;prompt for a date range.
ENSTN ;prompt for a unique station or substation. PRCHSTN equals ALL or selection from ASN cross-reference.
ENFCP ;prompt for a unique Fund Control Point. PRCHFUND equals ALL or selection from ACP cross-reference.
ENTYPE ;
ENERROR ;prompt for inclusion of ERROR text. Default = NO, do not include error text.
SINGLE ;
ECMS ;Returns with PRCHECMS set. Failure code = 0
STN ;Returns with PRCHSTN set. Failure = 0
; EXCLUDE SUBSTATIONS from inital lookup.
SUBSTN ;Returns PRCHSUB = ALL if the user does not want to select a substation.
FCP ; Allow selection of a FCP.
; All FCP accessible to this user are stored in the following array which can be used for AO screening.
; PRCHURCP(fcp with any leading zeros,station)=full fcp text
USERFCP ; Build the arrays of the FCPs and Stations the user has access to.
EXITZT ;
EXIT ;
FAUXPR ; DISPLAY OF THE SELECTIONS
FX ; Get Device

External References

Name Field # of Occurrence
DD^%DT DATE+3, DATE+4, FAUXPR+8
NOW^%DTC DATE+4
^%ZIS FX+2
HOME^%ZIS EXITZT+1
^%ZISC EXITZT+1
^%ZTLOAD FX+4
IX^DIC SINGLE+5, FCP+19
$$GET1^DIQ EN+5
^DIR ENSING+4, ENECMS+2, DATE+7, DATE+15, DATE+22, ENSTN+7, ENFCP+3, ENTYPE+11, ENERROR+2, ECMS+16
, STN+8, SUBSTN+4, SUBSTN+11
GATHER^PRCHJRP6 FX+5
OP^XQCHK EN+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"REPORT MUST BE RUN FROM APPROPRIATE MENU OPTIONS."
  • Line Location: EN+4
Function Call: WRITE
  • Prompt: !!,"You are not a PPM Accountable Officer or Manager!"
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!,"You do not have access to any Fund Control Points!"
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ECMS+3
Function Call: WRITE
  • Prompt: " "_PRCHFUND
  • Line Location: FCP+22
Function Call: WRITE
  • Prompt: !
  • Line Location: EXITZT+1
Function Call: WRITE
  • Prompt: !!,"The single 2237, "_PRCH2237_", has been selected for printing. "
  • Line Location: FAUXPR+2
Function Call: WRITE
  • Prompt: !!,"All eCMS 2237s matching your selections below will be displayed:"
  • Line Location: FAUXPR+4
Function Call: WRITE
  • Prompt: !," ",$S(PRCHECMS="ALL":"All eCMS Contacts",1:"eCMS Contact: "_PRCHEML)
  • Line Location: FAUXPR+6
Function Call: WRITE
  • Prompt: !," ",$S(PRCHDATE="ALL":"All dates: ("_PRCHSTAR_" - "_PRCHEND_")",1:"Dates: ("_PRCHSTAR_" - "_PRCHEND_")")
  • Line Location: FAUXPR+9
Function Call: WRITE
  • Prompt: !," ",$S(PRCHSTN="ALL":"All Stations and Substations",1:"Station: "_$S(+PRCHSTN:PRCHSTN,PRCHSTN="SUB":+PRCHSUB,1:""))
  • Line Location: FAUXPR+11
Function Call: WRITE
  • Prompt: !," ",$S(PRCHFUND="ALL":"All Fund Control Points",1:"Fund Control Point: "_PRCHFUND)
  • Line Location: FAUXPR+14
Function Call: WRITE
  • Prompt: !," Event Types selected are:"
  • Line Location: FAUXPR+16
Function Call: WRITE
  • Prompt: !," 1 = Sent to eCMS (includes resent 2237s)"
  • Line Location: FAUXPR+20
Function Call: WRITE
  • Prompt: !," 2 = Returned to Accountable Officer"
  • Line Location: FAUXPR+21
Function Call: WRITE
  • Prompt: !," 3 = Returned to Control Point"
  • Line Location: FAUXPR+22
Function Call: WRITE
  • Prompt: !," 4 = Cancelled within eCMS"
  • Line Location: FAUXPR+23
Function Call: WRITE
  • Prompt: !," ",$S(PRCHERTX:"The full text of any errors will be displayed.",1:"A note will display for any errors, but not the full text.")
  • Line Location: FAUXPR+26
Function Call: WRITE
  • Prompt: !
  • Line Location: FX+2
Function Call: WRITE
  • Prompt: !
  • Line Location: FX+2
Function Call: WRITE
  • Prompt: !,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled!"),!
  • Line Location: FX+4
Routine Call
  • DIC
  • Line Location:
    • SINGLE+5
    • FCP+19
Routine Call
  • DIR
  • Line Location:
    • ENSING+4
    • ENECMS+2
    • DATE+7
    • DATE+15
    • DATE+22
    • ENSTN+7
    • ENFCP+3
    • ENTYPE+11
    • ENERROR+2
    • ECMS+16
    • STN+8
    • SUBSTN+4
    • SUBSTN+11
Routine Call
  • %ZIS
  • Line Location:
    • FX+2
Routine Call
  • %ZIS
  • Line Location:
    • EXITZT+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] USERFCP+40, USERFCP+41
^PRC(411 - [#411] USERFCP+38, USERFCP+39, USERFCP+40, USERFCP+41
^PRC(420 - [#420] USERFCP+12, USERFCP+14, USERFCP+15, USERFCP+17, USERFCP+24, USERFCP+26, USERFCP+27, USERFCP+29, USERFCP+30, USERFCP+31
^PRCV(414.06 - [#414.06] DATE+2, ECMS+8, USERFCP+4, USERFCP+6

Label References

Name Line Occurrences
DATE DATE+10
ECMS ENECMS+5
ENECMS ENECMS+5
ENFCP ENSTN+4, ENSTN+5, ENFCP+6
ENSING ENSING+6
ENSTN ENSTN+10
EXIT ENSING+9, ENECMS+6, DATE+26, ENSTN+11, ENFCP+7, ENTYPE+14, ENERROR+6, FX+3, FX+6
EXITZT FX+4
FAUXPR ENSING+7, ENERROR+9
FCP ENFCP+6
FX FAUXPR+2
SINGLE ENSING+6
STN ENSTN+10, SUBSTN+6
SUBSTN ENSTN+4, ENSTN+5, SUBSTN+14
USERFCP EN2+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EXIT+1!, FX+1!, FX+2*
D SINGLE+2*, FCP+4*, FCP+23!, EXIT+1!
DIC SINGLE+1!, SINGLE+2*, SINGLE+6!, FCP+4*, FCP+23!, EXIT+1!
DIC("A" SINGLE+3*, FCP+5*
DIC("S" SINGLE+4*, FCP+10*, FCP+11*, FCP+12*, FCP+13*, FCP+15*, FCP+17*, FCP+18*
DIC("W" FCP+6*
DIC(0 SINGLE+2*, FCP+4*
DIR ENSING+1!, ENSING+6!, ENSING+10!, ENECMS+7!, DATE+11!, DATE+19!, DATE+27!, ENSTN+12!, ENFCP+8!, ENTYPE+15!
, ENERROR+7!, SINGLE+9!, ECMS+2!, ECMS+21!, STN+3!, SUBSTN+7!, EXIT+1!
DIR("?" ENTYPE+2*
DIR("A" ENSING+3*, ENECMS+1*, DATE+6*, DATE+14*, DATE+21*, ENSTN+6*, ENFCP+2*, ENTYPE+3*, ENTYPE+4*, ENTYPE+5*
, ENTYPE+6*, ENTYPE+7*, ENTYPE+8*, ENTYPE+9*, ENTYPE+10*, ENERROR+1*, STN+5*, SUBSTN+3*, SUBSTN+11*
DIR("B" ENSING+4*, ENECMS+2*, DATE+7*, DATE+15*, DATE+22*, ENSTN+7*, ENFCP+3*, ENTYPE+1*, ENERROR+2*, SUBSTN+4*
DIR("L" ECMS+5*, ECMS+6*, ECMS+12*, ECMS+13*, ECMS+15*, ECMS+19
DIR("S" STN+6*, STN+7*
DIR(0 ENSING+4*, ENECMS+2*, DATE+7*, DATE+15*, DATE+22*, ENSTN+7*, ENFCP+3*, ENTYPE+1*, ENERROR+2*, ECMS+7*
, ECMS+10*, ECMS+11*, STN+4*, SUBSTN+4*, SUBSTN+8*, SUBSTN+10*
DIROUT EXIT+1!
DIRUT ECMS+17, STN+10, SUBSTN+6, SUBSTN+14, EXIT+1!
>> DTOUT ENSING+9, ENECMS+6, DATE+26, ENSTN+11, ENFCP+7, ENTYPE+14, ENERROR+6, ECMS+17, STN+10, SUBSTN+6
, SUBSTN+14
>> DUOUT ENSING+9, ENECMS+6, DATE+26, ENSTN+11, ENFCP+7, ENTYPE+14, ENERROR+6, ECMS+17, STN+10, SUBSTN+6
, SUBSTN+14
DUZ EN+5, USERFCP+30, USERFCP+31
>> I ENTYPE+13*
IO("Q" EXITZT+1!, FX+4
IOP FX+1!
>> POP FX+3
>> PRCETMP0 ECMS+7*, ECMS+8*, ECMS+9, ECMS+13
>> PRCETMP1 ECMS+9*, ECMS+11
>> PRCETMP3 ECMS+9*
PRCH SINGLE+6!
PRCH2237 ENSING+2*, ENSING+6, ENSING+7, ENSING+8*, SINGLE+8*, EXIT+2!, FAUXPR+2
>> PRCH411 ENSTN+4, USERFCP+38*, USERFCP+40*
>> PRCH411( ENSTN+4, ENSTN+5, SUBSTN+2, SUBSTN+8, SUBSTN+10, USERFCP+40*, USERFCP+41*, FAUXPR+12
>> PRCH411(0 ENSTN+4
PRCH420 USERFCP+10*, USERFCP+12*, USERFCP+14, USERFCP+15, USERFCP+17, USERFCP+18, USERFCP+19, USERFCP+24*, USERFCP+26, USERFCP+27
, USERFCP+29, USERFCP+30, USERFCP+31, USERFCP+32, USERFCP+33, EXIT+1!
PRCH4206 USERFCP+13*, USERFCP+14*, USERFCP+15, USERFCP+17, USERFCP+25*, USERFCP+26*, USERFCP+27, USERFCP+29, USERFCP+30, USERFCP+31
, EXIT+1!
PRCH6 USERFCP+15*, USERFCP+16, USERFCP+19, USERFCP+27*, USERFCP+28, USERFCP+33, EXIT+1!
PRCHDATE DATE+2*, DATE+3, DATE+9*, DATE+15, EXIT+2!, FAUXPR+8, FAUXPR+9
PRCHECMS ENECMS+4*, ENECMS+5, ECMS+1*, ECMS+19*, ECMS+20, EXIT+2!, FAUXPR+6
>> PRCHEML ENECMS+4*, ECMS+20*, FAUXPR+6
PRCHEMP EN+5*, EN+6, USERFCP+9, EXIT+2!
>> PRCHEND DATE+4*, DATE+6, FAUXPR+8*, FAUXPR+9
PRCHENDT DATE+4*, DATE+20*, DATE+23*, EXIT+2!, FAUXPR+8
>> PRCHERTX ENERROR+4*, ENERROR+5*, SINGLE+8*, FAUXPR+26
PRCHFUND ENFCP+5*, ENFCP+6, FCP+3*, FCP+21*, FCP+22, EXIT+2!, FAUXPR+14
>> PRCHI USERFCP+3*, USERFCP+4*, USERFCP+5*, USERFCP+6*, FAUXPR+17*, FAUXPR+19*
>> PRCHINIC USERFCP+39*, USERFCP+40, USERFCP+41
>> PRCHINSN USERFCP+38*, USERFCP+39, USERFCP+40, USERFCP+41
>> PRCHJ FAUXPR+19*, FAUXPR+20, FAUXPR+21, FAUXPR+22, FAUXPR+23
PRCHJSB EXIT+2!
PRCHJSB( SUBSTN+10, USERFCP+6*
PRCHJSN EXIT+2!
PRCHJSN( USERFCP+4*
PRCHLAST EXIT+2!
PRCHOPT EN+3*, EN+4, EN+6, ENSTN+5, SINGLE+4, STN+7, FCP+10, FCP+11, FCP+12, FCP+13
, FCP+15, FCP+17, FCP+18, USERFCP+12, USERFCP+24, EXIT+2!
>> PRCHSLTY FAUXPR+17*, FAUXPR+19
>> PRCHSTAR DATE+3*, DATE+6, FAUXPR+8*, FAUXPR+9
PRCHSTDT DATE+3*, DATE+10, DATE+13*, DATE+16*, DATE+22, DATE+24*, EXIT+2!, FAUXPR+8
PRCHSTN ENSTN+4*, ENSTN+5*, ENSTN+9*, ENSTN+10, STN+2*, STN+11*, SUBSTN+2, SUBSTN+3, SUBSTN+8, SUBSTN+9
, SUBSTN+10, SUBSTN+16*, SUBSTN+17, FCP+10, FCP+11, FCP+12, FCP+13, FCP+15, FCP+17, FCP+18
, EXIT+2!, FAUXPR+11, FAUXPR+12
PRCHSUB ENSTN+4*, ENSTN+5*, ENSTN+9*, SUBSTN+1*, SUBSTN+2*, SUBSTN+5*, SUBSTN+9*, SUBSTN+10*, SUBSTN+15*, SUBSTN+16
, SUBSTN+17*, EXIT+2!, FAUXPR+11, FAUXPR+12
>> PRCHTT ENTYPE+12*, ENTYPE+13*
PRCHTYPE ENTYPE+12*, ENTYPE+13, EXIT+2!, FAUXPR+17, FAUXPR+18*, FAUXPR+20*, FAUXPR+21*, FAUXPR+22*, FAUXPR+23*
>> PRCHTYTX ENTYPE+12*, ENTYPE+13*
PRCHURCP USERFCP+1!, EXIT+2!
PRCHURCP( USERFCP+19*, USERFCP+33*
PRCHURLV USERFCP+7*, USERFCP+9*, USERFCP+12, EXIT+2!
PRCHURSN EN2+2, ENSTN+5, USERFCP+1!, USERFCP+10*, USERFCP+18*, USERFCP+24*, USERFCP+32*, EXIT+2!
PRCHURSN( USERFCP+18*, USERFCP+32*
PRCHURSN(0 ENSTN+5
PRCRI ECMS+7*, ECMS+9*, ECMS+10, ECMS+11, ECMS+12, ECMS+13, STN+9!, SUBSTN+9*, SUBSTN+10*, EXIT+1!
PRCRIL ECMS+7*, ECMS+9*, ECMS+12, ECMS+13, ECMS+18*, ECMS+19, ECMS+21!
PRCSUBF ENSTN+3*, ENSTN+4*, SUBSTN+6, EXIT+1!
RESULTS SINGLE+6!
X DATE+4, EXIT+1!
>> XQOPT EN+3
XQORNOD EN+2!
Y ENSING+6, ENECMS+4, ENECMS+5, DATE+3*, DATE+4*, DATE+5!, DATE+9, DATE+10, DATE+11!, DATE+16
, DATE+17, DATE+19!, DATE+23, DATE+24, ENSTN+9, ENSTN+10, ENFCP+5, ENFCP+6, ENTYPE+12, ENERROR+4
, ENERROR+5, SINGLE+7, ECMS+18, ECMS+19, STN+11, SUBSTN+5, FCP+20, EXIT+1!, FAUXPR+8*!
Y(0 SINGLE+8, SUBSTN+15, FCP+21
ZTDESC EXIT+1!, FX+4*
ZTRTN EXIT+1!, FX+4*
ZTSAVE EXIT+1!
ZTSAVE("PRCH*" FX+4*
ZTSK EXIT+1!, FX+4
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All