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

Package: Surgery

Routine: SROALM


Information

SROALM ;BIR/ADM - LIST OF ASSESSMENTS MISSING INFORMATION ;12/05/07

Source Information

Source file <SROALM.m>

Entry Points

Name Comments DBIA/ICR reference
UTL ; set up TMP global
SRSD
CASE
PRINT ; print assessments
OTHER ; other operations
LOOP ; break procedures
PAGE
HDR ; print heading
TOT
GRAND

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?18,SROPS(I),!
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: ?18,"CPT Codes: "
  • Line Location: PRINT+10
Function Call: WRITE
  • Prompt: !,?5,"Missing information:"
  • Line Location: PRINT+12
Function Call: WRITE
  • Prompt: !,$J(CNT_". ",8),"The final coding for Procedure and Diagnosis is not complete."
  • Line Location: PRINT+13
Function Call: WRITE
  • Prompt: !,$J(CNT_". ",8),$P(SRX(SRFLD),":")
  • Line Location: PRINT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+15
Function Call: WRITE
  • Prompt: "-"
  • Line Location: PRINT+15
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: !!,"If you want to continue listing incomplete assessments, enter <RET>. Enter",!,"'^' to return to the menu."
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: @IOF,!,?(80-$L(SRTITLE)\2),SRTITLE,?70,$J("PAGE "_SRPAGE,9)
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?(80-$L(SRINST)\2),SRINST
  • Condition for execution: $E(IOST)="P"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?(80-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !!,"** "_SRSS
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !!,"ASSESSMENT #",?18,"PATIENT",?53,"TYPE",?68,"STATUS",!,"OPERATION DATE",?18,"OPERATION(S)",!
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"TOTAL FOR "_SRSS_": ",TOT
  • Line Location: TOT+0
Function Call: WRITE
  • Prompt: !!,"TOTAL: ",GRAND
  • Line Location: GRAND+0
Function Call: WRITE
  • Prompt: !!,"TOTAL FOR ALL SPECIALTIES: ",GRAND
  • Line Location: GRAND+1
Info |  Source |  Entry Points |  Interaction Calls