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

Package: Surgery

Routine: SRTPLST


Information

SRTPLST ;BIR/SJA - LIST ASSESSMENTS ;04/11/08

Source Information

Source file <SRTPLST.m>

Entry Points

Name Comments DBIA/ICR reference
PRT ; print assessments
PAGE
HDR ; print heading
MANDIV(SRINST,CASE) ;a boolean divisional call for managerial reports

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,SRVACO,?16,SRANM_" ("_VA("PID")_")",?51,SRDT,?68,$S(Y="T":"TRANSMITTED",Y="C":"COMPLETE",Y="I":"INCOMPLETE",1:""),!,$S($P(SRA(0),"^",3):$P(SRA(0),"^",3),1:"N/A")
  • Line Location: PRT+9
Function Call: WRITE
  • Prompt: ?16,$S(Y="LI":"LIVER",Y="LU":"LUNG",Y="K":"KIDNEY",Y="H":"HEART",1:"")
  • Line Location: PRT+10
Function Call: WRITE
  • Prompt: !,LINE1
  • Line Location: PRT+11
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: PAGE+0
Function Call: WRITE
  • Prompt: !!,"If you want to continue listing incomplete assessments, enter <RET>. Enter",!,"'^' to return to the menu."
  • Line Location: PAGE+1
Function Call: WRITE
  • Prompt: @IOF,!!,?(80-$L(X)\2),X
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,?(80-$L(SRFRTO)\2),SRFRTO
  • Line Location: HDR+3
Function Call: WRITE
  • Prompt: !!,"VACO ID",?16,"PATIENT",?51,"TRANSPLANT DATE",?68,"STATUS",!,"SURGERY CASE #",?16,"ORGAN TYPE"
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,LINE
  • Line Location: HDR+5
Info |  Source |  Entry Points |  Interaction Calls