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

Package: Registration

Routine: DGQPT1


Information

DGQPT1 ; SLC/MKB - Change Patient Selection List ;6/5/01 12:36pm

Source Information

Source file <DGQPT1.m>

Entry Points

Name Comments DBIA/ICR reference
CONTEXT() ; -- Returns current patient list context
WARD ; -- new ward list
CLINIC ; -- new clinic list
DATE(DEFLT,START) ; -- new start/stop date
D1
PROV ; -- new provider list
TEAM ; -- new team list
SPEC ; -- new treating specialty list
SORT ; -- new sort order
SAVE ; -- Save current list definition as default
OK() ; -- Current definition ok?
REMOVE ; Remove current default patient list view parameter setting(s).
; SLC/PKS - 5/2000.
OKR() ; -- Remove current definition?
COMBO ; New combination list.
; SLC/PKS - 5/2000.
REBUILD ; -- Ok to rebuild listing?

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $C(7),!,DIR("?"),!
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: !!,"Saving patient list definition ... "
  • Line Location: SAVE+2
Function Call: WRITE
  • Prompt: !,"ERROR"
  • Line Location: SAVE+5
Function Call: WRITE
  • Prompt: "done."
  • Line Location: SAVE+25
Function Call: WRITE
  • Prompt: !!,"Current List: "
  • Line Location: OK+1
Function Call: WRITE
  • Prompt: "Ward "_$P($G(^DIC(42,+PTR,0)),U)
  • Line Location: OK+3
Function Call: WRITE
  • Prompt: "Clinic "_$P($G(^SC(+PTR,0)),U)
  • Line Location: OK+4
Function Call: WRITE
  • Prompt: "Primary Provider "_$P($G(^VA(200,+PTR,0)),U)
  • Line Location: OK+5
Function Call: WRITE
  • Prompt: "Team "_$P($G(^OR(100.21,+PTR,0)),U)
  • Line Location: OK+6
Function Call: WRITE
  • Prompt: "Specialty "_$P($G(^DIC(45.7,+PTR,0)),U)
  • Line Location: OK+7
Function Call: WRITE
  • Prompt: "Combination"
  • Line Location: OK+9
Function Call: WRITE
  • Prompt: ", sorted by "_$S(SORT="P":"Appointment Date",SORT="R":"Room-Bed",1:"Name")
  • Line Location: OK+10
Function Call: WRITE
  • Prompt: !?14,"from "_BEG_" to "_END
  • Line Location: OK+11
Function Call: WRITE
  • Prompt: !
  • Line Location: OK+14
Function Call: WRITE
  • Prompt: !!,"Removing your personal patient list definition ... "
  • Line Location: REMOVE+16
Function Call: WRITE
  • Prompt: !,"(NOTE: Service/Section default of """_$P(DGQSRC,U,3)_""" not affected.)"
  • Line Location: REMOVE+22
Function Call: WRITE
  • Prompt: !,"(NOTE: Service/Section default of """_$P(DGQSRC,U,3)_""" not affected.)"
  • Line Location: REMOVE+29
Function Call: WRITE
  • Prompt: !
  • Line Location: OKR+5
Function Call: WRITE
  • Prompt: !!,">> A Clinic list cannot be sorted by room-bed assignment!"
  • Line Location: REBUILD+3
Function Call: WRITE
  • Prompt: !," Please select a new sorting order:",!
  • Line Location: REBUILD+4
Function Call: WRITE
  • Prompt: !!,">> A Combination list cannot be sorted by room-bed assignment!"
  • Line Location: REBUILD+8
Function Call: WRITE
  • Prompt: !," Please select a new sorting order:",!
  • Line Location: REBUILD+9
Function Call: WRITE
  • Prompt: !!,">> A "_$S($E(DGY)="W":"Ward",$E(DGY)="P":"Primary Provider",$E(DGY)="T":"Team",$E(DGY)="S":"Specialty",1:"")_" list cannot be sorted by clinic appointment date!"
  • Line Location: REBUILD+12
Function Call: WRITE
  • Prompt: !," Please select a new sorting order:",!
  • Line Location: REBUILD+13
Info |  Source |  Entry Points |  Interaction Calls