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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: SDWLRPS2

Package: Scheduling

Routine: SDWLRPS2


Information

SDWLRPS2 ;;IOFO BAY PINES/TEH - WAIT LIST REPORT FORMAT 1-SUMMARY;06/12/2002 ; 20 Aug 2002 2:10 PM

Source Information

Source file <SDWLRPS2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
INIT ;Initialize variables
SORT ;Sort Records
PRT ;
PRA ;
PRT1 ;
LINE ;Draw Line
SCR
HD ;Header
HD1 ;
END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Institution: ",$$GET1^DIQ(4,SDWLIN_",",".01"),!
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !,$$EXTERNAL^DILFD(409.3,SDWLSCX,,SDWLSC),?30,SDWLX
  • Line Location: PRA+3
Function Call: WRITE
  • Prompt: !,?21,"Total #: ",SDWLXT
  • Line Location: PRA+5
Function Call: WRITE
  • Prompt: !
  • Line Location: PRT1+4
Function Call: WRITE
  • Prompt: !,"*** No Patient Records to Report ***"
  • Line Location: PRT1+5
Function Call: WRITE
  • Prompt: ?32,$E(SDWLODT,4,5),"/",$E(SDWLODT,6,7),"/",($E(SDWLODT,1,3)+1700)
  • Line Location: PRT1+11
Function Call: WRITE
  • Prompt: !,"_______________________________________________________________________________"
  • Line Location: LINE+1
Function Call: WRITE
  • Prompt: !
  • Line Location: SCR+0
Function Call: WRITE
  • Prompt: @IOF
  • Condition for execution: $D(IOF)
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: !,SDWLDTP,?80-$L("PCMM ASSIGNMENT Wait List Report")\2,"PCMM ASSIGNMENT Wait List Report"
  • Line Location: HD+1
Function Call: WRITE
  • Prompt: ?72,"Page: ",SDWLPG
  • Line Location: HD+2
Function Call: WRITE
  • Prompt: !!,?30,"Institution: "
  • Line Location: HD+3
Function Call: WRITE
  • Prompt: !
  • Condition for execution: I>1
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: ?45,$$GET1^DIQ(4,X_",",".01")
  • Line Location: HD+4
Function Call: WRITE
  • Prompt: !?27,"Report Category: ",$S($P(SDWLCT1,U,1)="T":"TEAM",1:"POSITION")
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: " ALL"
  • Line Location: HD+6
Function Call: WRITE
  • Prompt: !,?45,X
  • Line Location: HD+8
Function Call: WRITE
  • Prompt: !,?36,"Status: ",$S(SDWLOPEN="O":"Open",1:"All")
  • Line Location: HD+9
Function Call: WRITE
  • Prompt: !,?28,"Output Format: ",$S(SDWLFORM="S":"Summary",1:"Detailed")
  • Line Location: HD+10
Function Call: WRITE
  • Prompt: !!,"Name",?30,"Date Entered",?45,"# of Days Waiting",!!
  • Line Location: HD1+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(4 - [#4] GET1^DIQ
^SDWL(409.3 - [#409.3] EXTERNAL^DILFD
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call