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
Print Page as PDF
Routine: PRCSX123

Package: IFCAP

Routine: PRCSX123


Information

PRCSX123 ;RB-SET TRANSACTION SEQUENCE FOR ALL 9999 ENTRIES

Source Information

Source file <PRCSX123.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**123**;MAR 25, 2009;Build 6
EN ;For patch RMPR*3.0*151 testing only and only on test system
1
2
3
4
DEL ;DELETE DUMMY ^PRCS(410,"B" ENTRIES CREATED FOR RMPR*3.0*151 TESTING
DQ

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Can ONLY be run on test/mirror system"
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: #,"The following process will set all unused transaction numbers through 9999 for"
  • Line Location: EN+3
Function Call: WRITE
  • Prompt: !,"selected station, FY, FQ and FCP used when entering a Prosthetics GUI PO",!!
  • Line Location: EN+4
Function Call: READ
  • Formatting: !!
  • Prompt: "ENTER STATION: "
  • Variable: PRCSTA
  • Timeout: 60
  • Line Location: 1+0
Function Call: READ
  • Formatting: !!
  • Prompt: "ENTER FISCAL YEAR (EX. 09): "
  • Variable: PRCFY
  • Timeout: 60
  • Line Location: 2+0
Function Call: WRITE
  • Prompt: ?30,"FISCAL YEAR MUST BE 2 DIGITS"
  • Line Location: 2+1
Function Call: READ
  • Formatting: !!
  • Prompt: "ENTER FISCAL QUARTER (1-4): "
  • Variable: PRCFQ
  • Timeout: 60
  • Line Location: 3+0
Function Call: WRITE
  • Prompt: ?40,"INVALID FISCAL QUARTER, MUST BE 1-4"
  • Line Location: 3+1
Function Call: READ
  • Formatting: !!
  • Prompt: "ENTER FUND CONTROL POINT (FOR PROSTHETICS ORDERS): "
  • Variable: PRCFCP
  • Timeout: 60
  • Line Location: 4+0
Function Call: WRITE
  • Prompt: ?40,"INVALID FCP USED"
  • Line Location: 4+1
Function Call: WRITE
  • Prompt: !!,CHK,"IS NOT A VALID SEQUENCE START BASE POINT FOR FILE ^PRCS(410.1,""B"")",!,"** You MUST enter accurate station, FY and FCP that you will using when doing Prosthetics GUI PO"
  • Line Location: 4+3
Function Call: WRITE
  • Prompt: !,"** ALREADY USED: ",PRCRSQ
  • Line Location: 4+8
Function Call: WRITE
  • Prompt: !,"SET ^PRCS(410,""B"",",PRCRSQ,",111)=##"
  • Line Location: 4+10
Function Call: WRITE
  • Prompt: !!,"** ALL 9999 SLOTS HAVE BEEN SET FOR REQ #: ",$P(PRCRSQ,"-",1,4)," TOTAL SET = ",TOT
  • Line Location: 4+12
Function Call: WRITE
  • Prompt: !!,"PATCH RMPR*3.0*151 MAY BE TESTED AT THIS POINT"
  • Line Location: 4+13
Function Call: WRITE
  • Prompt: !,"Can ONLY be run on test/mirror system"
  • Line Location: DEL+1
Function Call: WRITE
  • Prompt: !,"KILLING ^PRCS(410,""B"",",PRCRSQ,",",IEN
  • Line Location: DEL+6
Function Call: WRITE
  • Prompt: !!,"ALL ADDED (",TOT,") TESTING ENTRIES FOR REQ SERIES ",$P(HPRCRSQ,"-",1,4)," HAVE BEEN DELETED",!
  • Line Location: DEL+11
Info |  Source |  Entry Points |  Interaction Calls