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

Package: Surgery

Routine: SR48DIS


Information

SR48DIS ;BIR/ADM-Disposition conversion from set of codes to file; [ 09/19/96 8:22 PM ]

Source Information

Source file <SR48DIS.m>

Entry Points

Name Comments DBIA/ICR reference
ENV
PRE ; entry for pre-init process
GO ; install data in file 131.6
CONV ; convert data in file 130
END
COMP
DISP ; point fields .43, .46 and .79 to SURGERY DISPOSITION file
C
NOMTCH ; if match for code cannot cannot be determined, write message
MOD ; if local mods, display standard codes and site codes

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This patch will convert the code in each of the following fields to a",!,"pointer to the SURGERY DISPOSITION file (#131.6):",!,?5,"REQ POSTOP CARE (#.43)",!,?5,"OP DISPOSITION (#.46)",!,?5,"PACU DISPOSITION (#.79)"
  • Line Location: ENV+1
Function Call: WRITE
  • Prompt: !!,"If your facility has modified the set of codes for any of these 3 fields,",!,"the conversion process may not be able to convert those fields completely."
  • Line Location: ENV+2
Function Call: WRITE
  • Prompt: !,"If dispositions have been added locally, the conversion process will attempt",!,"to add them to the SURGERY DISPOSITION file (#131.6)."
  • Line Location: ENV+3
Function Call: WRITE
  • Prompt: !!,"Checking for local modifications to these fields..."
  • Line Location: ENV+4
Function Call: WRITE
  • Prompt: !!,">>> Local modifications detected in REQ POSTOP CARE (#.43)"
  • Line Location: ENV+6
Function Call: WRITE
  • Prompt: !!,">>> Local modifications detected in OP DISPOSITION (#.46)"
  • Line Location: ENV+8
Function Call: WRITE
  • Prompt: !!,">>> Local modifications detected in PACU DISPOSITION (#.79)"
  • Line Location: ENV+10
Function Call: WRITE
  • Prompt: !!,"Any fields that cannot be converted will be listed and will have to be",!,"converted manually using VA FileMan.",!
  • Line Location: ENV+11
Function Call: WRITE
  • Prompt: !!,"No local modifications found."
  • Line Location: ENV+12
Function Call: WRITE
  • Prompt: !
  • Line Location: ENV+13
Function Call: WRITE
  • Prompt: !!,"* Standard Set *",?30,"* Your Set *",!,"Code:Stands For",?30,"Code:Stands For",!,"---------------",?30,"---------------",!
  • Line Location: MOD+1
Function Call: WRITE
  • Prompt: ?30,Y
  • Condition for execution: X'="" X S Y=$P(SRX,";",I) W:Y'=""
  • Line Location: MOD+2
Function Call: WRITE
  • Prompt: !
  • Line Location: MOD+2
Info |  Source |  Entry Points |  Interaction Calls