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

Package: IFCAP

Routine: PRCSECP


Information

PRCSECP ;SFISC/KSS,LJP/DAP - COPY A TRANSACTION ;7/9/13 16:02

Source Information

Source file <PRCSECP.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;5.1;IFCAP;**81,148,174**;Oct 20, 2000;Build 23
A
B
C
PROCEED ;modified prompt and added help (PRC*5.1*174)
TYPE ;
D
UNLKEND
END
W1
W3
GETCCCNT(STA,FCP) ;How many valid Cost Centers for this Control Point
VALIDCC(STA,FCP,CC) ;Is this STATION,FCP,COST CENTER combination valid?
GETBOCNT(STA,FCP,CC) ;How many valid BOCs for this STATION,FCP,COST CENTER
VALIDBOC(STA,FCP,CC,BOC) ;Is this STATION,FCP,COST CENTER,BOC VALID?

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !?15,"********** WARNING **********",*7,!
  • Line Location: C+9
Function Call: WRITE
  • Prompt: !,"Transaction to be copied ("_$$GET1^DIQ(410,$G(DA),.01)_") is missing required data!"
  • Line Location: C+10
Function Call: WRITE
  • Prompt: !?2,">>> "_$G(PRCWARN(PRCIDX))
  • Line Location: C+13
Function Call: WRITE
  • Prompt: !,"This data will be required when entering information for the"
  • Line Location: C+14
Function Call: WRITE
  • Prompt: !,"new transaction number.",!
  • Line Location: C+15
Function Call: WRITE
  • Prompt: !!
  • Line Location: C+23
Function Call: WRITE
  • Prompt: !!,"Would you like to proceed with copying this request"
  • Line Location: PROCEED+1
Function Call: WRITE
  • Prompt: !?2,"Enter 'Yes' to proceed with copying transaction "_$$GET1^DIQ(410,$G(DA),.01)_"."
  • Line Location: PROCEED+4
Function Call: WRITE
  • Prompt: !?2,"Enter 'No' or '^' to abort copying this transaction."
  • Line Location: PROCEED+5
Function Call: WRITE
  • Prompt: !!?2,">>> Transaction "_$$GET1^DIQ(410,$G(DA),.01)_" data was not copied.",!
  • Line Location: PROCEED+7
Function Call: WRITE
  • Prompt: !!,"Now enter the information for the new transaction number.",!
  • Line Location: PROCEED+13
Function Call: WRITE
  • Prompt: !!,"This transaction is assigned transaction number: ",X
  • Line Location: PROCEED+23
Function Call: WRITE
  • Prompt: !,PRCVY,!,"Please enter another form type.",!
  • Line Location: TYPE+5
Function Call: WRITE
  • Prompt: !,"The form type for this request is: ",$P($G(^PRCS(410.5,PRCSX,0)),"^"),!
  • Line Location: TYPE+9
Function Call: WRITE
  • Prompt: !,?10,"Transaction data is being copied...",!
  • Line Location: TYPE+10
Function Call: WRITE
  • Prompt: !!
  • Line Location: D+6
Function Call: WRITE
  • Prompt: !!,"Would you like to copy another request"
  • Line Location: W3+0

FileMan Files Accessed Via FileMan Db Call

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