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

Package: Surgery

Routine: SRTPPAS


Information

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

Source Information

Source file <SRTPPAS.m>

Entry Points

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

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
  • 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: !,$$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
Info |  Source |  Entry Points |  Interaction Calls