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

Package: Radiology Nuclear Medicine

Routine: RABWUTL


Information

RABWUTL ;HISC/SM - Billing Aware utilities ;3/24/04

Source Information

Source file <RABWUTL.m>

Entry Points

Name Comments DBIA/ICR reference
ODX(RA) ;ordering diagnosis
GETDX ; get DX and Clin. Indicators from file 75.1
WRTDX ; write DX and Clin. Inds.

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Ordering Diagnoses:"
  • Line Location: WRTDX+2
Function Call: WRITE
  • Prompt: !?2,$P($$ICDDX^ICDCODE(+RAX(I)),U,2),?10,$P($$ICDDX^ICDCODE(+RAX(I)),U,4)
  • Line Location: WRTDX+6
Function Call: WRITE
  • Prompt: !,?10,"Clinical Indicator(s): "
  • Line Location: WRTDX+9
Function Call: WRITE
  • Prompt: $S(J=1:"SC",J=2:"AO",J=3:"IR",J=4:"SWAC",J=5:"MST",J=6:"HNC",J=7:"CV",1:"SHAD")
  • Line Location: WRTDX+10
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: $P(X,U,J+1,8)["1"
  • Line Location: WRTDX+10
Info |  Source |  Entry Points |  Interaction Calls