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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Surgery 9 ^SROAPCA  ^SROAPRT1  ^SROAPRT2  (,OPTIMES)^SROAPRT3  ^SROAPRT4  ^SROAPRT5  ^SROAPRT6  ^SROSTOP  
^SRSKILL  
CPT HCPCS Codes 1 $$CPT^ICPTCOD  
Kernel 1 ^%ZISC  
Registration 1 DEM^VADPT  
VA FileMan 1 (D,Y)^DIQ  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Surgery 5 SROABCH  SROACOM  SROACOM1  SROAPRT3  SROAPRT6  

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

External References

Name Field # of Occurrence
^%ZISC END+2
D^DIQ SROAPAS+8
Y^DIQ SROAPAS+9, SROAPAS+38, SROAPAS+41, SROAPAS+48
$$CPT^ICPTCOD CODE+1
^SROAPCA SROAPAS+5
^SROAPRT1 SROAPAS+54
^SROAPRT2 SROAPAS+55
^SROAPRT3 SROAPAS+57
OPTIMES^SROAPRT3 SROAPAS+56
^SROAPRT4 SROAPAS+58
^SROAPRT5 SROAPAS+59
^SROAPRT6 SROAPAS+60
^SROSTOP HDR+1
^SRSKILL END+2
DEM^VADPT SROAPAS+4, SROAPAS+11

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" SROAPAS+40, SROAPAS+43
^DD(130 SROAPAS+9, SROAPAS+38, SROAPAS+41, SROAPAS+48
^SRF - [#130] SROAPAS+2, SROAPAS+3, SROAPAS+4, SROAPAS+9, SROAPAS+38, SROAPAS+39, SROAPAS+43, SROAPAS+48, SROAPAS+49, CODE+1
^VA(200 - [#200] SROAPAS+51

Label References

Name Line Occurrences
END SROAPAS+5, SROAPAS+6, SROAPAS+53, SROAPAS+54, SROAPAS+55, SROAPAS+56, SROAPAS+57, SROAPAS+58, SROAPAS+59
HDR SROAPAS+6
PAGE SROAPAS+53, SROAPAS+54, SROAPAS+55, SROAPAS+56, SROAPAS+57, SROAPAS+58, SROAPAS+59, PAGE+1
WRAP SROAPAS+27

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE SROAPAS+4*, SROAPAS+8
>> C SROAPAS+9*, SROAPAS+18*, SROAPAS+19, SROAPAS+20, SROAPAS+21, SROAPAS+22, SROAPAS+23*, SROAPAS+38*, SROAPAS+41*, SROAPAS+48*
>> D SROAPAS+31*, SROAPAS+32, SROAPAS+33
>> DFN SROAPAS+4*
DTIME END, PAGE
>> E WRAP+3*, WRAP+4, WRAP+7, WRAP+8*
>> I SROAPAS+2*, WRAP+4*, WRAP+5, WRAP+6, WRAP+7, WRAP+10, WRAP+11, WRAP+12
IOF SROAPAS+6, END+1, END+2, PAGE+2, HDR+3
IOSL SROAPAS+54, SROAPAS+55, SROAPAS+56, SROAPAS+57, SROAPAS+58, SROAPAS+59
IOST SROAPAS+6, SROAPAS+52, SROAPAS+53, END, END+1, PAGE
>> J SROAPAS+39*, SROAPAS+40, SROAPAS+41, SROAPAS+42, SROAPAS+43*
>> K WRAP+5*, WRAP+6, WRAP+7
>> LINE HDR+7*
>> LOOP LOOP+1*
>> M LOOP+1
>> MM LOOP+1*
>> MMM LOOP+1*
>> MOE SROAPAS+52*
>> N SROAPAS+18*, SROAPAS+26
>> SR CODE+1
>> SR("RA" SROAPAS+2*, SROAPAS+5, SROAPAS+51, HDR+6
>> SR(0 SROAPAS+4*
>> SRA( SROAPAS+2*
>> SRA("CON" SROAPAS+3*
>> SRA("OP" SROAPAS+3*
>> SRABATCH END
>> SRANM SROAPAS+4*, HDR+6
>> SRATYPE SROAPAS+2*, HDR+4, HDR+5
>> SRHALT HDR+1
>> SRNUM WRAP+15*, WRAP+16*, WRAP+17
SRNUM1 SROAPAS+26*, SROAPAS+31, SROAPAS+36!, WRAP+15*, WRAP+17, WRAP+18*
SROETH SROAPAS+13*, SROAPAS+14*, SROAPAS+15*, SROAPAS+29, END+2!
SROL SROAPAS+18*, SROAPAS+36!, WRAP+3*
SROL( SROAPAS+26*, SROAPAS+32, SROAPAS+33, WRAP+17*
SROLINE SROAPAS+18*, SROAPAS+21*, SROAPAS+22*, SROAPAS+26, SROAPAS+27, SROAPAS+36!, WRAP+3, WRAP+4
SROLN SROAPAS+36!, WRAP+3*
SROLN( WRAP+4*, WRAP+5, WRAP+6, WRAP+7, WRAP+10
SROLN1 SROAPAS+36!, WRAP+3*
SROLN1( WRAP+6*, WRAP+10*, WRAP+11*, WRAP+12*, WRAP+16, WRAP+17
>> SROLNGTH WRAP+3*, WRAP+4
>> SROPER LOOP+1*
>> SROPS( LOOP+1*
SRORACE SROAPAS+18*, SROAPAS+36!
SRORACE( SROAPAS+20*, SROAPAS+21, SROAPAS+22
SRORC SROAPAS+18*, SROAPAS+19*, SROAPAS+20, SROAPAS+36!
SROWRAP SROAPAS+36!, WRAP+3*, WRAP+4, WRAP+7*, WRAP+10*, WRAP+11, WRAP+12
>> SRPG SROAPAS+2*, HDR+2*, HDR+4, HDR+5
>> SRPTMODT( SROAPAS+43*
>> SRPTMODT(14 SROAPAS+44
>> SRPTMODT(15 SROAPAS+45
>> SRPTMODT(16 SROAPAS+46
>> SRPTMODT(17 SROAPAS+47
>> SRSDATE SROAPAS+4*, SROAPAS+8
>> SRSITE("SITE" SROAPAS+7
>> SRSOUT SROAPAS+2*, SROAPAS+6, SROAPAS+53, SROAPAS+54, SROAPAS+55, SROAPAS+56, SROAPAS+57, SROAPAS+58, SROAPAS+59, END
, PAGE*, HDR+1*
SRTN SROAPAS+2, SROAPAS+3, SROAPAS+4, SROAPAS+9, SROAPAS+38, SROAPAS+39, SROAPAS+43, SROAPAS+48, SROAPAS+49, END+2!
, HDR+5, CODE+1
U SROAPAS+14, SROAPAS+20
>> VA("PID" SROAPAS+4
>> VADM(1 SROAPAS+4
>> VADM(11 SROAPAS+14, SROAPAS+15
>> VADM(12 SROAPAS+19, SROAPAS+20, SROAPAS+31, SROAPAS+34
>> VADM(3 SROAPAS+4
>> VADM(5 SROAPAS+29
>> X SROAPAS+9*, SROAPAS+38*, SROAPAS+44*, SROAPAS+45*, SROAPAS+46*, SROAPAS+47*, SROAPAS+48*, SROAPAS+49*, SROAPAS+50, SROAPAS+51*
, END*, PAGE*, PAGE+1, HDR+6*, CODE+1*
>> Y SROAPAS+4*, SROAPAS+8*, SROAPAS+9*, SROAPAS+38*, SROAPAS+39*, SROAPAS+40, SROAPAS+41, SROAPAS+43*, SROAPAS+48*, HDR+6*
>> Z SROAPAS+4*, SROAPAS+40*, SROAPAS+41*, SROAPAS+42, SROAPAS+44*, SROAPAS+45*, SROAPAS+46*, SROAPAS+47*
>> ZTQUEUED END+1, HDR+1
>> ZTREQ END+1*
>> ZTSTOP END+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All