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

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA FileMan 4 ^DIC  YN^DICN  ^DIE  ^DIR  
Accounts Receivable 1 BUSY^PRCAKS  
Kernel 1 ^%ZTLOAD  

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

Package Total Caller Graph
Accounts Receivable 1 PRCAK UNMARK ARCHIVE  
Kernel 1 ^DIC(19  

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

External References

Name Field # of Occurrence
^%ZTLOAD REM+4
^DIC EN1+6
YN^DICN EN1A
^DIE EN1S+2, DQ+6
^DIR EN1+3
BUSY^PRCAKS DQ+2

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
Routine Call
  • DIC
  • Line Location:
    • EN1+6
Routine Call
  • DIE
  • Line Location:
    • EN1S+2
    • DQ+6
Routine Call
  • DIR
  • Line Location:
    • EN1+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PRCA(430 - [#430] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRCA(430 - [#430] EN1+7, EN1A, EN1S+2, REM+3, DQ+4, DQ+5!, DQ+6
^PRCA(430.3 - [#430.3] EN1A, REM+2, REM+3, DQ+3
^PRCAK("PRCAK" ALL+2, ALL+3, DQ+2, END
^PRCAK(430.8 - [#430.8] EN1+2

Label References

Name Line Occurrences
ALL EN1+5
EN1A EN1A+1
EN1Q EN1+2, EN1+4, EN1+6, EN1+7, REM
EN1S EN1A
END DQ+2, DQ+3
REM REM+1

Naked Globals

Name Field # of Occurrence
^(9 EN1S+2, DQ+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% EN1+1~, EN1A*, EN1A+1
DA EN1S+1~, EN1S+2*, DQ+1~, DQ+6*
DIC EN1+1~, EN1+6*
DIC("S" EN1+6*
DIC(0 EN1+6*
DIE EN1S+1~, EN1S+2*, DQ+1~, DQ+6*
DIR EN1+1~
DIR("?" EN1+3*
DIR("A" EN1+3*
DIR("B" EN1+3*
DIR(0 EN1+3*
DR EN1S+1~, EN1S+2*, DQ+1~, DQ+6*
DTIME REM
DTOUT EN1+1~, EN1+4
DUOUT EN1+1~, EN1+4
DUZ EN1S+2
PRCA EN1+1~
PRCABN EN1+1~, EN1+6*, EN1+7, EN1A, EN1S+2, DQ+1~, DQ+4*, DQ+5, DQ+6
PRCATY EN1+1~
REM ALL+1~, REM*, REM+1
ST DQ+1~, DQ+3*, DQ+4, DQ+5
U EN1+2, EN1+7, EN1A, EN1S+2, DQ+6
X EN1S+1~, DQ+1~
Y EN1+1~, EN1+5, EN1+6
>> ZTIO REM+4*
>> ZTRTN REM+4*
>> ZTSAVE("REM" REM+4*
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  | All