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

Package: Surgery

Routine: SROAPAS


Information

SROAPAS ;BIR/MAM - PRINT A COMPLETE ASSESSMENT ;05/28/10

Source Information

Source file <SROAPAS.m>

Entry Points

Name Comments DBIA/ICR reference
END
WRAP ;Wrap multiple race entries so that wrapped line
LOOP ; break procedures
PAGE
HDR ; print heading
CODE ; print CPT Code

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Medical Center: "_SRSITE("SITE")
  • Line Location: SROAPAS+7
Function Call: WRITE
  • Prompt: !,"Age: ",?16,AGE
  • Line Location: SROAPAS+8
Function Call: WRITE
  • Prompt: ?40,"Operation Date: ",?59,$P(Y,"@")
  • Line Location: SROAPAS+8
Function Call: WRITE
  • Prompt: !,"Sex: ",?16,$P(VADM(5),"^",2),?40,"Ethnicity:",?59,SROETH
  • Line Location: SROAPAS+29
Function Call: WRITE
  • Prompt: !,?40,"Race:"
  • Line Location: SROAPAS+30
Function Call: WRITE
  • Prompt: ?59,"UNANSWERED"
  • Line Location: SROAPAS+34
Function Call: WRITE
  • Prompt: !,"Transfer Status:",?44,X
  • Line Location: SROAPAS+38
Function Call: WRITE
  • Prompt: !,"Hospital Admission Date:",?44,Z
  • Line Location: SROAPAS+44
Function Call: WRITE
  • Prompt: !,"Hospital Discharge Date:",?44,Z
  • Line Location: SROAPAS+45
Function Call: WRITE
  • Prompt: !,"Admitted/Transferred to Surgical Service:",?44,Z
  • Line Location: SROAPAS+46
Function Call: WRITE
  • Prompt: !,"Discharged/Transferred to Chronic Care:",?44,Z
  • Line Location: SROAPAS+47
Function Call: WRITE
  • Prompt: !,"DC/REL Destination:",?44,$E(X,1,35)
  • Line Location: SROAPAS+48
Function Call: WRITE
  • Prompt: !,"Hospital Admission Status:",?44,$S(X="I":"INPATIENT",X="O":"OUTPATIENT",X=1:"OUTPATIENT",X=2:"INPATIENT",X=3:"INPATIENT",1:"")
  • Line Location: SROAPAS+50
Function Call: WRITE
  • Prompt: !,"Assessment Completed by:"
  • Line Location: SROAPAS+51
Function Call: WRITE
  • Prompt: ?44,$P($G(^VA(200,X,0)),"^")
  • Line Location: SROAPAS+51
Function Call: WRITE
  • Prompt: !
  • Line Location: SROAPAS+52
Function Call: WRITE
  • Prompt: "-"
  • Line Location: SROAPAS+52
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+0
Function Call: WRITE
  • Prompt: !!,"Enter <RET> to continue printing the remaining pages of this assessment, or",!,"'^' to exit this option."
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PAGE+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !,"VA CARDIAC RISK ASSESSMENT",?70,"PAGE "_SRPG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"VA NON-CARDIAC RISK ASSESSMENT Assessment: "_SRTN,?69,"PAGE "_SRPG
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,"FOR "_SRANM
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: " ("_$S(X="I":"INCOMPLETE",X="C":"COMPLETED",X="T":"TRANSMITTED",1:"NO ASSESSMENT")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: " ("_$S(X="I":"INCOMPLETE",X="C":"COMPLETED",X="T":"TRANSMITTED",1:"NO ASSESSMENT")
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: ")",!
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: " ("_$P($$CPT^ICPTCOD(X),"^",2)_")"
  • Line Location: CODE+1
Info |  Source |  Entry Points |  Interaction Calls