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

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

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
Info |  Source |  Entry Points |  Interaction Calls