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

Package: PAID

Routine: PRSNCAPE


Information

PRSNCAPE ;WOIFO/DWA - PAID PARAMETER ENTER/EDIT ;07/30/09

Source Information

Source file <PRSNCAPE.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; Entry point for PAID Application Parameter Edit
PPDS ; Set the effective pay period
NA1 ; Create a new sub-record and set nurse access parameter
HDR ;
SHODIVAC(OUT) ; DISPLAY POC ACCESS (T&L/NURSE LOCATION) FOR ALL DIVISIONS
ACCHIST(DIVI) ; SHOW HISTORY OF POC ACCESS (T&L/NURSE LOC) FOR A DIVISION
SDHDR ; SHOW DIVISION HEADER

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Current Pay Period must be open for testing. Quitting."
  • Line Location: EN+6
Function Call: WRITE
  • Prompt: !!!,"C = Current Pay Period beginning "_Y
  • Line Location: PPDS+2
Function Call: WRITE
  • Prompt: !,"L = Last Pay Period beginning "_Y
  • Line Location: PPDS+4
Function Call: WRITE
  • Prompt: !,"N = Next Pay Period beginning "_Y,!
  • Line Location: PPDS+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: PPDS+10
Function Call: WRITE
  • Prompt: !!,"The Nurse Access Method for "_$$EXTERNAL^DILFD(456,.01,"",IENS2)_" pay period "_PAYPD_" is currently set to ",!,$$EXTERNAL^DILFD(456.05,1,"",NAM)_". Do you wish to change it?",!!
  • Line Location: PPDS+26
Function Call: WRITE
  • Prompt: " No changes made, quitting.",!!
  • Line Location: PPDS+29
Function Call: WRITE
  • Prompt: !!,"The Nurse Access Method for "_$$EXTERNAL^DILFD(456,.01,"",IENS2)_" has been successfully changed to ",!,$$EXTERNAL^DILFD(456.05,1,"",NAM)_" Effective Pay Period "_PAYPD_".",!!
  • Line Location: PPDS+33
Function Call: WRITE
  • Prompt: !!,"The Nurse Access Method for "_$$EXTERNAL^DILFD(456,.01,"",IENS2)_" pay period "_PAYPD_" is currently set to ",!,$$EXTERNAL^DILFD(456.05,1,"",NAM)_". Do you wish to change it?",!!
  • Line Location: NA1+6
Function Call: WRITE
  • Prompt: " No changes made, quitting.",!!
  • Line Location: NA1+8
Function Call: WRITE
  • Prompt: !!,"The Nurse Access Method for "_$$EXTERNAL^DILFD(456,.01,"",IENS2)_" has been successfully set to ",!,$$EXTERNAL^DILFD(456.05,1,"",NAM)_" Effective Pay Period "_PAYPD_".",!!
  • Line Location: NA1+21
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: ?((80-$L(L1))/2),L1,!,?((80-$L(L2))/2),L2,!!!!
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: SHODIVAC+4
Function Call: WRITE
  • Prompt: !
  • Line Location: SHODIVAC+13
Function Call: WRITE
  • Prompt: $$EXTERNAL^DILFD(456,.01,"",DIVI)
  • Line Location: SHODIVAC+14
Function Call: WRITE
  • Prompt: " (",STATNUM,")"
  • Line Location: SHODIVAC+18
Function Call: WRITE
  • Prompt: ?32,$S(X="N":"Nurse Location",X="T":"T&L Unit",1:"None")
  • Line Location: SHODIVAC+19
Function Call: WRITE
  • Prompt: ?55,"(Current)"
  • Line Location: SHODIVAC+20
Function Call: WRITE
  • Prompt: !!!
  • Line Location: SHODIVAC+21
Function Call: WRITE
  • Prompt: !!!
  • Line Location: SHODIVAC+22
Function Call: WRITE
  • Prompt: !?32,$S(AP="N":"Nurse Location",1:"T&L Unit")
  • Line Location: ACCHIST+8
Function Call: WRITE
  • Prompt: ?57,PPE
  • Line Location: ACCHIST+9
Function Call: WRITE
  • Prompt: @IOF,!!!
  • Line Location: SDHDR+1
Function Call: WRITE
  • Prompt: !?30,"DATA ENTRY/APPROVAL",?55,"EFFECTIVE"
  • Line Location: SDHDR+2
Function Call: WRITE
  • Prompt: !," DIVISION",?30,"ACCESS TO NURSE VIA",?55,"PAY PERIOD"
  • Line Location: SDHDR+3
Function Call: WRITE
  • Prompt: !,"===============",?29,"======================",?54,"============"
  • Line Location: SDHDR+4

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GETS^DIQ
^PRST(456 - [#456] Classic Fileman Calls,  EXTERNAL^DILFD
456.05 EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call