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

Package: Prosthetics

Routine: RMPR8PG1


Information

RMPR8PG1 ;VM/RB - check/purge file ^RMPR(668) 'L'/'L1' x-ref not matching zero node info ;03/27/08

Source Information

Source file <RMPR8PG1.m>

Entry Points

Name Comments DBIA/ICR reference
AUDIT ; Post suspense purge audit to check for any 'L' and 'L1' x-ref that
; no longer have an associated master record to ien data that
; matches File ^RMPR(668,ien,0) data
0 ;FIND 668 'L' and 'L1' x-refs with missing master record
1
5
9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!!!,"MISSING 'L' 0 NODE TOTAL: ",TOT1
  • Line Location: 9+0
Function Call: WRITE
  • Prompt: !,"MISSING 'L' MISMATCH W/DFN TOTAL: ",TOT2
  • Line Location: 9+1
Function Call: WRITE
  • Prompt: !,"MISSING 'L' MISMATCH W/O DFN TOTAL: ",TOT3
  • Line Location: 9+2
Function Call: WRITE
  • Prompt: !,"MISSING 'L1' 0 NODE TOTAL: ",TOT4
  • Line Location: 9+3
Function Call: WRITE
  • Prompt: !,"MISSING 'L1' MISMATCH W/DFN TOTAL: ",TOT5
  • Line Location: 9+4
Function Call: WRITE
  • Prompt: !,"MISSING 'L1' MISMATCH W/O DFN TOTAL: ",TOT6
  • Line Location: 9+5
Info |  Source |  Entry Points |  Interaction Calls