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

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCS(410 - [#410] Classic Fileman Calls
^PRC(443 - [#443] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call