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

Package: Accounts Receivable

Routine: PRCAKUN


Information

PRCAKUN ;WASH-ISC@ALTOONA,PA/CMS-Unmark Pending Archive ;8/24/93 8:09 AM

Source Information

Source file <PRCAKUN.m>

Entry Points

Name Comments DBIA/ICR reference
V ;;4.5;Accounts Receivable;**68**;Mar 20, 1995
EN1 ;Unmark records marked for archival entry point
EN1A
EN1Q
EN1S ;prompt user for change status data.
ALL ;Loop on PENDING ARCHIVE status and reverse all bills
REM
DQ ;
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"The PENDING ARCHIVE records were moved to temporary storage!",!,"You cannot unmark these records."
  • Line Location: EN1+2
Function Call: WRITE
  • Prompt: !!,"This bill does not have a previous status!"
  • Line Location: EN1+7
Function Call: WRITE
  • Prompt: !,"Change the status of this bill back to ",$P($G(^PRCA(430.3,+$P(^PRCA(430,PRCABN,9),U,6),0)),U,1)
  • Line Location: EN1A+0
Function Call: WRITE
  • Prompt: !!,"Enter YES if you want to change the status of the bill back to the",!,"previous status to prevent the bill from being archived!",!
  • Line Location: EN1A+1
Function Call: WRITE
  • Prompt: *7,!!,"WARNING: Another AR Archive Process is still running!",!!
  • Line Location: ALL+2
Function Call: WRITE
  • Prompt: !!,"Enter a Status Remark (3-45 characters) for all bills unmarked for archival."
  • Line Location: ALL+4
Function Call: READ
  • Formatting: !
  • Prompt: "Status Remark: "
  • Variable: REM
  • Timeout: DTIME
  • Line Location: REM+0
Function Call: WRITE
  • Prompt: !,"Remark must be 3-45 characters in length"
  • Line Location: REM+1
Function Call: WRITE
  • Prompt: !!,*7,"Please contact your IRM. The Pending Archive status is not setup properly!",!
  • Line Location: REM+2
Function Call: WRITE
  • Prompt: !!,*7,"Cannot find any bills in the Pending Archive status!",!
  • Line Location: REM+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCA(430 - [#430] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call