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

Package: Surgery

Routine: SRTPPAS


Information

SRTPPAS ;BIR/SJA - PRINT A COMPLETE ASSESSMENT ;04/21/08

Source Information

Source file <SRTPPAS.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Surgery 3 ^SROSTOP  ^SRSKILL  $$TR^SRTPUTL  
Kernel 1 ^%ZISC  
Registration 1 DEM^VADPT  
VA Fileman 1 D^DIQ  

Caller Graph

Caller Graph Total: 14

Package Total Caller Graph
Surgery 14 SRTPCOM  SRTPRH  SRTPRH1  SRTPRH2  SRTPRK  SRTPRK1  SRTPRK2  SRTPRK3  
SRTPRLI  SRTPRLI1  SRTPRLI2  SRTPRLU  SRTPRLU1  SRTPRLU2  

Entry Points

Name Comments DBIA/ICR reference
WRAP ;Wrap multiple race entries so that wrapped line
END
PAGE
HDR ; print heading

External References

Name Field # of Occurrence
^%ZISC END+3
D^DIQ SRTPPAS+10
^SROSTOP HDR+1
^SRSKILL END+3
$$TR^SRTPUTL HDR+4
DEM^VADPT SRTPPAS+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?28,"RECIPIENT INFORMATION",!
  • Line Location: SRTPPAS+9
Function Call: WRITE
  • Prompt: !,"Age: ",?22,AGE
  • Line Location: SRTPPAS+10
Function Call: WRITE
  • Prompt: ?40,"Transplant Date: ",?59,$P(Y,"@")
  • Line Location: SRTPPAS+10
Function Call: WRITE
  • Prompt: !,"Gender: ",?22,$P(VADM(5),"^",2),?40,"Ethnicity:",?51,SROETH
  • Line Location: SRTPPAS+25
Function Call: WRITE
  • Prompt: !,"VACO ID: ",?22,SRVACO,?40,"Race:"
  • Line Location: SRTPPAS+26
Function Call: WRITE
  • Prompt: ?51,"UNANSWERED"
  • Line Location: SRTPPAS+30
Function Call: WRITE
  • Prompt: !!,"Press <RET> to continue "
  • Line Location: END+0
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: END+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • 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: !,$$TR^SRTPUTL($P(SR("RA"),"^",2))_" TRANSPLANT ASSESSMENT "_$S($P(SR("RA"),"^",5)="V":"VA",1:"NON-VA")_$S($P(SR(0),"^",3):" SURGERY CASE #"_$P(SR(0),"^",3),1:" TRANSPLANT"),?70,"PAGE "_SRPG
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,"FOR "_SRANM
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: " ("_$S(X="I":"INCOMPLETE",X="C":"COMPLETED",X="T":"TRANSMITTED",1:"NO ASSESSMENT")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: " ("_$S(X="I":"INCOMPLETE",X="C":"COMPLETED",X="T":"TRANSMITTED",1:"NO ASSESSMENT")
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: ")",!,"Medical Center: "_SRSITE("SITE"),!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: "="
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+7

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^SRT - [#139.5] SRTPPAS+4, SRTPPAS+5, SRTPPAS+6

Label References

Name Line Occurrences
@( SRTPPAS+32
END SRTPPAS+8
HDR SRTPPAS+8
PAGE PAGE+1
WRAP SRTPPAS+24

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AGE SRTPPAS+2~, SRTPPAS+7*, SRTPPAS+10
C SRTPPAS+2~, SRTPPAS+16*, SRTPPAS+17, SRTPPAS+18, SRTPPAS+19, SRTPPAS+20, SRTPPAS+21*
D SRTPPAS+2~, SRTPPAS+27*, SRTPPAS+28, SRTPPAS+29
>> DFN SRTPPAS+6*
DTIME END, PAGE
E SRTPPAS+2~, WRAP+2*, WRAP+3, WRAP+6, WRAP+7*
I SRTPPAS+2~, SRTPPAS+5*, WRAP+3*, WRAP+4, WRAP+5, WRAP+6, WRAP+8, WRAP+9, WRAP+10
II SRTPPAS+2~
IOF SRTPPAS+8, END+2, END+3, PAGE+2, HDR+3
IOST SRTPPAS+8, END, END+1, END+2, PAGE, PAGE+1
JJ SRTPPAS+2~
K SRTPPAS+2~, WRAP+4*, WRAP+5, WRAP+6
LINE SRTPPAS+2~, HDR+6*
MOE SRTPPAS+2~
N SRTPPAS+2~, SRTPPAS+16*, SRTPPAS+23
SR SRTPPAS+2~
SR("RA" SRTPPAS+4*, HDR+4, HDR+5
SR(0 SRTPPAS+6*, HDR+4
SRA SRTPPAS+2~
SRA( SRTPPAS+5*, SRTPPAS+6
>> SRABATCH END
SRACE SRTPPAS+2~
SRANM SRTPPAS+2~, SRTPPAS+7*, HDR+5
SRATYPE SRTPPAS+2~, SRTPPAS+4*, SRTPPAS+32
SRDR SRTPPAS+3~
SRHALT SRTPPAS+3~, HDR+1
SRNOVA SRTPPAS+3~, SRTPPAS+4*
SRNUM SRTPPAS+3~, WRAP+12*, WRAP+13*, WRAP+14
SRNUM1 SRTPPAS+23*, SRTPPAS+27, SRTPPAS+31!, WRAP+12*, WRAP+14, WRAP+15*
SROETH SRTPPAS+12*, SRTPPAS+13*, SRTPPAS+14*, SRTPPAS+25, END+3!
SROL SRTPPAS+16*, SRTPPAS+31!, WRAP+2*
SROL( SRTPPAS+23*, SRTPPAS+28, SRTPPAS+29, WRAP+14*
SROLINE SRTPPAS+16*, SRTPPAS+19*, SRTPPAS+20*, SRTPPAS+23, SRTPPAS+24, SRTPPAS+31!, WRAP+2, WRAP+3
SROLN SRTPPAS+31!, WRAP+2*
SROLN( WRAP+3*, WRAP+4, WRAP+5, WRAP+6, WRAP+8
SROLN1 SRTPPAS+31!, WRAP+2*
SROLN1( WRAP+5*, WRAP+8*, WRAP+9*, WRAP+10*, WRAP+13, WRAP+14
SROLNGTH SRTPPAS+3~, WRAP+2*, WRAP+3
SRORACE SRTPPAS+16*, SRTPPAS+31!
SRORACE( SRTPPAS+18*, SRTPPAS+19, SRTPPAS+20
SRORC SRTPPAS+16*, SRTPPAS+17*, SRTPPAS+18, SRTPPAS+31!
SROWRAP SRTPPAS+31!, WRAP+2*, WRAP+3, WRAP+6*, WRAP+8*, WRAP+9, WRAP+10
SRPG SRTPPAS+3~, SRTPPAS+4*, HDR+2*, HDR+4
SRQ SRTPPAS+3~
SRSDATE SRTPPAS+3~, SRTPPAS+6*, SRTPPAS+7, SRTPPAS+10
>> SRSITE("SITE" HDR+6
>> SRSOUT SRTPPAS+4*, SRTPPAS+8, END, PAGE*, HDR+1*
SRTPP SRTPPAS+4, SRTPPAS+5, SRTPPAS+6, END+3!
SRVACO SRTPPAS+3~, SRTPPAS+6*, SRTPPAS+26
U SRTPPAS+13, SRTPPAS+18
>> VA("PID" SRTPPAS+7
>> VADM(1 SRTPPAS+7
>> VADM(11 SRTPPAS+13, SRTPPAS+14
>> VADM(12 SRTPPAS+17, SRTPPAS+18, SRTPPAS+27, SRTPPAS+30
>> VADM(3 SRTPPAS+7
>> VADM(5 SRTPPAS+25
X SRTPPAS+3~, END*, PAGE*, PAGE+1, HDR+5*
Y SRTPPAS+3~, SRTPPAS+7*, SRTPPAS+10*, HDR+5*
Z SRTPPAS+3~, SRTPPAS+7*
>> ZTQUEUED END+2, HDR+1
>> ZTREQ END+2*
>> ZTSTOP END+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All