Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Kernel 2 $$FMTE^XLFDT  ($$NEWCP,$$PARCP,$$UPCP,BMES,MES)^XPDUTL  
Surgery 2 ^SR48DIS0  ^SRSKILL  
VA FileMan 2 NOW^%DTC  ^DIR  
MailMan 1 ^XMD  

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

External References

Name Field # of Occurrence
NOW^%DTC CONV+9
^DIR ENV+14
^SR48DIS0 GO+2
^SRSKILL END
$$FMTE^XLFDT CONV+9
^XMD CONV+12
$$NEWCP^XPDUTL PRE+3
$$PARCP^XPDUTL CONV+3
$$UPCP^XPDUTL CONV+4
BMES^XPDUTL GO+1, CONV+1
MES^XPDUTL CONV+5, CONV+6, CONV+8, COMP+5, DISP+4

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
Routine Call
  • DIR
  • Line Location:
    • ENV+14

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(130 ENV, ENV+5, ENV+7, ENV+9, PRE+1, GO+3, GO+4, GO+5
^SRF - [#130] CONV+4, DISP+1*, DISP+2*, DISP+3*
^SRO(131.6 - [#131.6] COMP+2*, COMP+4*, C
^TMP("SR48" CONV+1!, CONV+10*, CONV+11*, CONV+12!, NOMTCH+1*

Label References

Name Line Occurrences
C DISP+1, DISP+2, DISP+3
COMP GO+3, GO+4, GO+5
DISP CONV+4
END ENV+14
MOD ENV+6, ENV+8, ENV+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% PRE+2~, PRE+3*, CONV+4*, CONV+9
DIR ENV+13!, ENV+14!
DIR("?" ENV+13*
DIR("A" ENV+14*
DIR(0 ENV+14*
>> DTOUT ENV+14
>> DUOUT ENV+14
DUZ CONV+12
>> I MOD+2*
MOD ENV+5*, ENV+6, ENV+7*, ENV+8, ENV+9*, ENV+10, END!
NOMOD ENV+4*, ENV+5*, ENV+7*, ENV+9*, ENV+11, ENV+12, END!
>> SR(0 COMP+4*
>> SRC DISP+1*, DISP+2*, DISP+3*, C+1*
>> SRCASES CONV+1*, DISP+4*
>> SRCODE COMP+1*, COMP+2, COMP+4
>> SRCT C*, C+1
>> SRDISP COMP+1*, COMP+2, COMP+4, COMP+5
>> SRE COMP+2*, COMP+3
>> SRI COMP+1*
>> SRJ COMP+1*
>> SRL DISP+1*, DISP+2*, DISP+3*, NOMTCH+1
>> SRNODE CONV+1*, CONV+6, CONV+7, NOMTCH+1*
>> SRNOW CONV+9*, CONV+10
SRTN CONV+3*, CONV+4*, END!, DISP+1, DISP+2, DISP+3, NOMTCH+1
>> SRX ENV+5*, ENV+7*, ENV+9*, GO+3*, GO+4*, GO+5*, COMP, COMP+1, DISP+1, DISP+2
, DISP+3, C*, MOD+2
>> SRX1 ENV+5*, ENV+7*, ENV+9*, GO+3*, GO+4*, GO+5*, COMP, MOD+2
>> SRY DISP+1*, DISP+2*, DISP+3*, C
>> SRZ C*
>> X COMP+4*, MOD+2*
>> XMDUZ CONV+12*
XMSUB CONV+12*!
XMTEXT CONV+12*!
XMY CONV+12!
XMY( CONV+12*
>> XPDQUIT ENV+14*
>> Y ENV+14, COMP+4*, MOD+2*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All