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 |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Routine: PRPFPURG

Package: Integrated Patient Fund

Routine: PRPFPURG


Information

PRPFPURG ;CTB/WASH-ISC@ALTOONA PATIENT FUNDS PURGE ;3/18/97 1:49 PM

Source Information

Source file <PRPFPURG.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Patient Fund 5 ADD^PRPFARC  MSG^PRPFQ  (BEGIN,PERCENT)^PRPFU  (D,MSG)^PRPFU1  ^PRPFYN  
Kernel 2 KILL^%ZISS  $$FMADD^XLFDT  
IFCAP 1 ADD^PRCGPM1  
VA FileMan 1 ^%DT  

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

Package Total Caller Graph
Integrated Patient Fund 1 PRPF PURGE  

Entry Points

Name Comments DBIA/ICR reference
V ;;3.0;PATIENT FUNDS;**6,9**;JUNE 1, 1989
DT
DTZ ;W !! S %DT="AEXP",%DT("A")="Select ending date for summarization: ",%DT("B")=$P(Y,"@") D ^%DT Q:Y<0
; I Y>LASTARCH S Y=LASTARCH D D^PRPFU1 S X="The date you selected exceeds the last archive date of "_Y_". You may NOT purge data that has not been archived.*7" D MSG^PRPFU1 G DT ; can no longer happen! rew 3*9
X
OT ;OPTION TERMINATED

External References

Name Field # of Occurrence
^%DT DT+2
KILL^%ZISS DTZ+13
ADD^PRCGPM1 DTZ+9
ADD^PRPFARC X+3
MSG^PRPFQ X+1
BEGIN^PRPFU DTZ+7
PERCENT^PRPFU DTZ+8
D^PRPFU1 V+7
MSG^PRPFU1 V+6, OT+1
^PRPFYN V+3
$$FMADD^XLFDT V+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!!
  • Line Location: V+2
Function Call: WRITE
  • Prompt: !!,"The Summarize Through date must be no later than "_%DT("B"),!," -- the earlier of 400 days before today and the date of the latest archive.",!
  • Line Location: DT+0
Function Call: WRITE
  • Prompt: !!!!,"100% complete."_$P(X," ",1,40),!
  • Line Location: DTZ+12
Function Call: WRITE
  • Prompt: !!
  • Line Location: X+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PRPF(470 - [#470] DTZ+3, DTZ+9
^PRPF(470.9 - [#470.9] V+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % V+3*, V+4
>> %A V+3*
>> %A(1 V+3*
>> %A(2 V+3*
>> %DT DT+1*
>> %DT("A" DT+1*
>> %DT("B" DT*
>> %DT(0 V+7*, DT+2!
A V+1~
BTIME V+1~
COUNT V+1~, DTZ+8, DTZ+9*
DA V+1~, DTZ+8*, DTZ+9*
DT V+7
DX V+1~
DY V+1~
HOURS V+1~
IOF V+2
LASTARCH V+1~, V+5*, V+6, V+7*
LASTENT V+1~
LINE V+1~
LREC V+1~, DTZ+9
LY V+1~, V+7*
>> MESSAGE DTZ+6*
MIN V+1~
PERCENT V+1~
PURGDATE V+1~, DTZ+2*, DTZ+9, X+3
RETURN V+1~, DTZ+9
SEC V+1~
TIME V+1~
TREC V+1~, DTZ+3*, DTZ+5
X V+6*, DTZ+11!*, DTZ+12, X*, OT+1*
XCOUNT V+1~, DTZ+8*
>> XPDNM DTZ+13
XPOS V+1~
>> Y V+7*, DT, DT+2, DTZ+2
>> ZTQUEUED DTZ+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Local Variables  | All