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 |  Naked Globals |  Local Variables |  Marked Items  | All
Print Page as PDF
Routine: PRCHG

Package: IFCAP

Routine: PRCHG


Information

PRCHG ;ID/RSD,SF-ISC/TKW/DAP-PROCESS 2237 ;5/8/13 15:39

Source Information

Source file <PRCHG.m>

Call Graph

Call Graph

Call Graph Total: 25

Package Total Call Graph
IFCAP 18 RETURN^PRCEFIS1  ^PRCFSITE  ENCODE^PRCHES11  EN^PRCHG1  PHMSG^PRCHJMSG  $$SEND2237^PRCHJS01  LOG^PRCHJTA  $$ECMS2237^PRCHJUTL  
(ERR,N)^PRCHNPO3  $$ERR^PRCHQQ  ^PRCHSP  EN3^PRCPWI  REMOVE^PRCSC1  REMOVE^PRCSC3  TRANK^PRCSES  PRF1^PRCSP1  
ESIG^PRCUESIG  $$CHKDM^PRCVLIC  
VA FileMan 5 NOW^%DTC  ^DIC  WAIT^DICD  ^DIE  ^DIR  
Kernel 1 $$NOW^XLFDT  
Toolkit 1 $$GET^XPAR  

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

Package Total Caller Graph
IFCAP 10 PRCFGPF  PRCH410  PRCHPC ASSIGN REQUEST  PRCHPC RETURN REQUEST  PRCHPM REQN EDIT  PRCHPM REQST  PRCHPM REQST SPLIT  PRCHQ41B  
PRCHUSER PPM  ^PRC(443  

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**81,167,174**;Oct 20, 2000;Build 23
ES ;SIGN 2237 IN PPM
ES1 ;S PRCHG=$S($D(^PRCD(442.3,+$P(^PRC(443,DA,0),U,7),0)):$P(^(0),U,2),1:""),$P(^PRC(443,DA,0),"^",3)="",P=+PRC("PER")
QQ
Q
RET ;RETURN TO SERVICE--UPDATE CP BALANCES, ERASE CP OFFICIAL SIGNATURE, SEND BULLETIN BACK TO SERVICE
SIT
TR
DIC
ST
PPM
EN ;SIGN 2237 IN PPM
EN0
EN1 ;SIGN 2237 IN PC
EN10
EN2 ;RETURN 2237 IN PC
EN20 ;D ST G:'$D(DA) Q S DR="[PRCHPCR]" D ^DIE K PRCHPCR S Z=$S($D(^PRCD(442.3,+$P(^PRC(443,DA,0),U,7),0)):$P(^(0),U,2),1:"") G:Z'=76 EN20
EN3 ;SPLIT 2237 IN PPM
EN30
EN4 ;EDIT A SIGNED 2237 IN PPM
EN40
EN5 ;DISPLAY NO.OF REQUESTS TO BE PROCESSED BY PPM
W1
STAT

External References

Name Field # of Occurrence
NOW^%DTC ES1+9
^DIC DIC
WAIT^DICD EN30+1
^DIE RET+1, PPMEN10EN20+1
^DIR QQ
RETURN^PRCEFIS1 RET+5
^PRCFSITE SIT
ENCODE^PRCHES11 ES1+7
EN^PRCHG1 EN+3
PHMSG^PRCHJMSG ES1+57
$$SEND2237^PRCHJS01 ES1+18
LOG^PRCHJTA ES1+29, ES1+47
$$ECMS2237^PRCHJUTL STAT+11
ERR^PRCHNPO3 EN30+1
N^PRCHNPO3 EN30
$$ERR^PRCHQQ QQ
^PRCHSP EN30+1
EN3^PRCPWI RET+5
REMOVE^PRCSC1 RET+2
REMOVE^PRCSC3 RET+2
TRANK^PRCSES RET+1
PRF1^PRCSP1 EN30+2
ESIG^PRCUESIG ES+2
$$CHKDM^PRCVLIC STAT+6
$$NOW^XLFDT ES1+54
$$GET^XPAR EN+3, STAT+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"You are not a Supply Accountable Officer !",$C(7)
  • Line Location: ES+1
Function Call: WRITE
  • Prompt: !!,"Transmitting 2237 transaction to eCMS..."
  • Line Location: ES1+17
Function Call: WRITE
  • Prompt: !?3,">>> 2237 transaction has been successfully transmitted to eCMS."
  • Line Location: ES1+22
Function Call: WRITE
  • Prompt: !?7,"Transaction Number: "_$G(PRCTRANS)
  • Line Location: ES1+23
Function Call: WRITE
  • Prompt: !?11,"HLO Message ID: "_$G(PRCMSGID)
  • Line Location: ES1+24
Function Call: WRITE
  • Prompt: !!?3,">>> Updating transmission in IFCAP/ECMS Transaction file..."
  • Line Location: ES1+25
Function Call: WRITE
  • Prompt: !?7,"Error: "_$P($G(PRCLOGER),U,2)
  • Line Location: ES1+30
Function Call: WRITE
  • Prompt: !?3,">>> ERROR: 2237 was not transmitted to eCMS!"
  • Line Location: ES1+32
Function Call: WRITE
  • Prompt: !?7,"Transaction Number: "_$G(PRCTRANS)
  • Line Location: ES1+33
Function Call: WRITE
  • Prompt: !?7,"Error #"_$G(PRCIDX1)_": "_$G(PRCER(PRCIDX1))
  • Line Location: ES1+44
Function Call: WRITE
  • Prompt: !!?3,">>> Updating transmission error in IFCAP/ECMS Transaction file..."
  • Line Location: ES1+46
Function Call: WRITE
  • Prompt: !?7,"Error: "_$P($G(PRCLOGER),U,2)
  • Line Location: ES1+48
Function Call: WRITE
  • Prompt: !!?3,">>> Sending error notification mail message to Accountable Officer..."
  • Line Location: ES1+50
Function Call: WRITE
  • Prompt: !!,$$ERR^PRCHQQ(ROUTINE,PRCSIG)
  • Line Location: QQ+0
Function Call: WRITE
  • Prompt: !,"Notify Application Coordinator!",$C(7)
  • Condition for execution: PRCSIG=0!(PRCSIG=-3)
  • Line Location: QQ+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: DIC+0
Function Call: WRITE
  • Prompt: !!,"The new 2237, ",PRCHSX,", will now be printed with the old one."
  • Line Location: EN30+2
Function Call: WRITE
  • Prompt: $C(7),!!!,?3,"There are "_X_" Requests ready to process."
  • Line Location: EN5+2
Function Call: WRITE
  • Prompt: !!,"You have selected all Line Items, NO action taken.",$C(7)
  • Line Location: W1+0
Routine Call
  • DIC
  • Line Location:
    • DIC
Routine Call
  • DIE
  • Line Location:
    • RET+1
    • PPM
    • EN10
    • EN20+1
Routine Call
  • DIR
  • Line Location:
    • QQ

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCS(410 - [#410] Classic Fileman Calls
^PRC(443 - [#443] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRC(443 - [#443] ES1+1*, RET+1, EN20+1, EN20+2*, EN5+1, STAT+9
^PRCD(442.3 - [#442.3] ES1+1, EN20+1
^PRCS(410 - [#410] ES1+9*, RET+1*, RET+4*, EN30STAT+5, STAT+7
^TMP($J EN30EN30+1
^VA(200 - [#200] ES+1, ES+2

Label References

Name Line Occurrences
DIC STEN40
EN0 EN0+1
EN10 EN10+1
EN20 EN20+1, EN20+4
EN3 W1+1
EN30 EN30+1, EN30+4
EN40 EN40+1
ES EN+1, EN0EN40
ES1 PPM
PPM EN0EN40
Q ES+1, EN+1, EN0EN10EN20+1, EN30EN30+1, EN30+3, EN40W1
QQ ES+2, ES1+7
RET ES1+2, EN20+3
SIT EN+1, EN1+1, EN2+1, EN3+1, EN4+1
ST EN10EN20+1
TR EN0EN30
W1 EN30

Naked Globals

Name Field # of Occurrence
^(400 ES+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% ES1+9, Q!
DA ES+2*, ES1+1, ES1+3, ES1+7, Q!, RET+1, RET+2*, RET+4, RET+5*, DIC!*
EN0EN10EN20+1, EN20+2, EN30EN30+2*, EN40STAT+5, STAT+9, STAT+11
DA2237 ES1+3~*, ES1+9, ES1+18, ES1+27, ES1+36
DIC Q!, DIC*!
DIC("A" DIC*
DIC("S" TR*, TR+1*, ST*, EN40*, STAT*, STAT+2*, STAT+7*, STAT+8*, STAT+10*, STAT+11*
DIC(0 DIC*
DIE Q!, RET+1*!, DIC*, PPM!, EN10!
DIE("NO^" PPM*, EN10*
>> DIR("A" QQ*
>> DIR(0 QQ*
DR Q!, RET+1*, PPM*, EN10*, EN20+1*
DUZ ES+2, ES1+7, ES1+28, ES1+37
I EN5+1*, EN5+2!
P ES+2*, ES1+1*, ES1+9, Q!
PPMNODE RET+4~*
>> PRC("PER" ES+1, ES+2, ES1+1
>> PRC("SITE" ES+1, EN+1, EN1+1, EN2+1, EN3+1, EN4+1
PRC2237 STAT+4~, STAT+5*, STAT+6, STAT+7
PRCER ES1+12~, ES1+18
PRCER( ES1+43, ES1+44, ES1+45
PRCEVNT ES1+13~, ES1+29, ES1+47
PRCEVNT("ERROR" ES1+38*, ES1+39*, ES1+45*, ES1+56
PRCEVNT("IEN410" ES1+27*, ES1+36*
PRCEVNT("IFCAPU" ES1+28*, ES1+37*
PRCEVNT("MSGID" ES1+26*, ES1+35*
>> PRCF("X" SIT*
>> PRCFA("TRDA" RET+5*
>> PRCFA("WHO" ES1+2*, EN20+3*
>> PRCFDICS TR+1
>> PRCFGPF STAT
>> PRCHDA RET+1*, RET+2, RET+5
PRCHG ES1+1*, ES1+2, ES1+6!, ES1+14, Q!, EN30*
PRCHNM ES+2*, Q!, SIT!, EN+1, EN0EN40
PRCHPCR EN20+1!, STAT+1
PRCHPO Q!, EN30*
PRCHPPM PPM!, STAT+8
PRCHS Q!, EN30+1*, EN30+2
PRCHSIT Q!, EN30+1*
PRCHSX Q!, EN30+2
PRCHSY Q!, EN30*, EN30+1, EN30+2
PRCHSY(0 EN30*
PRCHSZ Q!, EN30*
PRCHTDA Q!
PRCHX Q!
PRCIDX1 ES1+40~, ES1+41*, ES1+43*, ES1+44, ES1+45
PRCIDX2 ES1+40~, ES1+41*, ES1+45*
PRCLOGER ES1+15~, ES1+29, ES1+30, ES1+47, ES1+48
PRCMSG1 ES1+51~, ES1+57
PRCMSG1(1 ES1+52*
PRCMSG1(2 ES1+53*
PRCMSG1(3 ES1+54*
PRCMSG1(7 ES1+55*
PRCMSG2 ES1+51~, ES1+56*, ES1+57
PRCMSGID ES1+16~, ES1+18*, ES1+21, ES1+24, ES1+26
PRCSF EN30+2*, EN30+3!
>> PRCSIG ES+2*, ES1+7*, QQ
PRCTRANS ES1+23, ES1+29, ES1+33, ES1+47, ES1+52, Q!, DIC*
ROUTINE ES+2*, ES1+7*, QQ*, Q!
U ES+1, ES+2, ES1+1, ES1+30, ES1+48, RET+1, EN20+1, STAT+9
X RET+1*, EN5+1*, EN5+2!
>> XQY0 ES1+39
>> Y DIC
>> Y(0 DICEN30
>> Z EN20+1*
Z0 STAT+9!
Z0(60 STAT+9*
Z0(62 STAT+9*
Z0(63 STAT+9*
Z0(65 STAT+9*
Z0(69 STAT+9*
Z0(70 STAT+9*
Z0(74 STAT+9*

Marked Items

Name Field # of Occurrence
$T( ES1+7, QQ
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 |  Naked Globals |  Local Variables |  Marked Items  | All