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

Package: PAID

Routine: PRSNDPC1


Information

PRSNDPC1 ;WOIFO/DAM - Delete POC Records;10/28/09

Source Information

Source file <PRSNDPC1.m>

Entry Points

Name Comments DBIA/ICR reference
DELPOC ; called from option Delete Nurse POC Daily Time Record
EDVDEL(PRSIEN,PRSD,PPI,PRSNVER) ; DELETE RECORD FUNCTION
; RETURNS 1 IF RECORD IS DELETED OTHERWISE 0
CANDEL(PRSIEN,PRSDT,PRSD,PPI,VERSION) ; Return true if the record on the specified date
; is allowed to be deleted, otherwise return an error message.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,?4,$P(GROUP(0),U,3)
  • Line Location: DELPOC+4
Function Call: WRITE
  • Prompt: " ?? ",$C(7),"ETA Timecard record does not exist for that date."
  • Line Location: DELPOC+24
Function Call: WRITE
  • Prompt: " ?? ",$C(7),$P(CANDEL,U,2)
  • Line Location: DELPOC+27
Function Call: WRITE
  • Prompt: !,"POC record successfully deleted."
  • Line Location: DELPOC+49
Function Call: WRITE
  • Prompt: !,"Could not delete POC record."
  • Line Location: DELPOC+51
Info |  Source |  Entry Points |  Interaction Calls