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

Package: PAID

Routine: PRSNCGR1


Information

PRSNCGR1 ;WOIFO-JAH - Release POC Records for VANOD Extraction;10/16/09

Source Information

Source file <PRSNCGR1.m>

Entry Points

Name Comments DBIA/ICR reference
FILEPP(PC,PRSIEN,PPI,INST,STATN) ; file pay per activity records for Nurse to extraction AND update extraction version number in 451
EXTVERS(VNUM,PPI,PRSIEN,PRSD) ; update extraction version in POC records file
UPDTPOC(PPI,PRSIEN,STATUS,RETURN) ; update pay period status for nurse POC records
; INPUT:
; PPI, PRSIEN: Standard
; STATUS: POC pay period status (E)ntered, (A)pproved, (R)eleased
; RETURN: (optional) flag set to true to indicate the pay period
; is being returned
UPDTPP(PPI,CI,NRSCNT,RECNT) ; update division release history for pay period
CNTREP(PRSINST,PPI) ; Report on the record status for each division

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!!,?14,"Pay Period ",$P($G(^PRST(458,PPI,0)),U)," Statistics"
  • Line Location: CNTREP+35
Function Call: WRITE
  • Prompt: !,?14,"==============================="
  • Line Location: CNTREP+37
Function Call: WRITE
  • Prompt: !!,?26,"NURSES POINT OF CARE PAY PERIOD RECORD STATUS"
  • Line Location: CNTREP+38
Function Call: WRITE
  • Prompt: !,?4,"DIVISION",?41,"UNAPPROVED",?54,"APPROVED",?66,"RELEASED"
  • Line Location: CNTREP+39
Function Call: WRITE
  • Prompt: !,?4,"========",?41,"==========",?54,"========",?66,"========"
  • Line Location: CNTREP+40
Function Call: WRITE
  • Prompt: !,?4,STNAME," (",STNUM,")"
  • Line Location: CNTREP+45
Function Call: WRITE
  • Prompt: ?42,$J($P(PRECNT(I),U),8)
  • Line Location: CNTREP+46
Function Call: WRITE
  • Prompt: ?54,$J($P(PRECNT(I),U,2),8)
  • Line Location: CNTREP+47
Function Call: WRITE
  • Prompt: ?66,$J($P(PRECNT(I),U,3),8)
  • Line Location: CNTREP+48

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GETS^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call