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 |  All
Print Page as PDF
Routine: LJFVHFIX

Package: Uncategorized

Routine: LJFVHFIX


Information

LJFVHFIX ;IHS/ANMC/LJF - FIX VHOSP PATIENT POINTERS ; [ 10/21/92 8:21 AM ]

Source Information

Source file <LJFVHFIX.m>

Entry Points

Name Comments DBIA/ICR reference
BDATE ;>> ask user for the starting date for this cleanup; oldest discharge
END ;>> eoj
EDIT ;>> make vhosp pat field editable
UNEDIT ;>> make vhosp pat field uneditable
ASK ;>> ask user if he/she wants to run cleanup
LOOP ;>> loop thru ^aupnvinp by date, check pointers, fix if don't match

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"CLEANUP PATIENT POINTERS IN V HOSPITALIZATION FILE",!!
  • Line Location: LJFVHFIX+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: BDATE+2
Function Call: WRITE
  • Prompt: !!,"MAKING PATIENT FIELD IN V HOSPITALIZATION FILE EDITABLE. . .",!!
  • Line Location: EDIT+1
Function Call: WRITE
  • Prompt: !!,"LOOKING FOR ENTRIES TO FIX. . .",!
  • Line Location: LOOP+1
Function Call: WRITE
  • Prompt: !!,"COMPLETED SEARCH; NOW MAKING PATIENT FIELD UNEDITABLE AGAIN",!!
  • Line Location: UNEDIT+1
Function Call: WRITE
  • Prompt: !!,"CLEANUP COMPLETE!!",!
  • Line Location: UNEDIT+4
Info |  Source |  Entry Points |  Interaction Calls |  All