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

Package: Registration

Routine: DGQPT1


Information

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

Source Information

Source file <DGQPT1.m>

Call Graph

Call Graph

Call Graph Total: 8

Package Total Call Graph
Registration 3 COMB^DGLP3USR  BUILD^DGQPT  ($$FDEFSRC,$$LISTSRC)^DGQPTQ11  
VA FileMan 3 ^%DT  (,IX)^DIC  ^DIR  
List Manager 1 FULL^VALM1  
Toolkit 1 (DEL,EN)^XPAR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGQPT  

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?

External References

Name Field # of Occurrence
^%DT D1+1
COMB^DGLP3USR COMBO+7
BUILD^DGQPT REBUILD+15
$$FDEFSRC^DGQPTQ11 REMOVE+21, REMOVE+25
$$LISTSRC^DGQPTQ11 WARD+3, CLINIC+3, PROV+3, TEAM+3, SPEC+3
^DIC WARD+5, CLINIC+6, TEAM+5, SPEC+5
IX^DIC PROV+5
^DIR D1, SORT+12, OK+14, OKR+6
FULL^VALM1 WARD+2, CLINIC+2, PROV+2, TEAM+2, SPEC+2, COMBO+4
DEL^XPAR REMOVE+18
EN^XPAR SAVE+9, SAVE+11, SAVE+14, SAVE+15, SAVE+16, SAVE+17, SAVE+18, SAVE+19, SAVE+20, SAVE+22
, SAVE+23, SAVE+24

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
Routine Call
  • DIC
  • Line Location:
    • WARD+5
    • CLINIC+6
    • TEAM+5
    • SPEC+5
Routine Call
  • DIC
  • Line Location:
    • PROV+5
Routine Call
  • DIR
  • Line Location:
    • D1
    • SORT+12
    • OK+14
    • OKR+6

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(42 - [#42] OK+3
^DIC(45.7 - [#45.7] OK+7
^OR(100.21 - [#100.21] OK+6
^SC - [#44] OK+4
^TMP("DG" CONTEXT+1
^VA(200 - [#200] SAVE+7, OK+5

Label References

Name Line Occurrences
$$CONTEXT SAVE+3, OK+2
$$DATE CLINIC+7, CLINIC+8
$$OK SAVE+2
$$OKR REMOVE+15
D1 D1+1
REBUILD COMBO+11
SORT REBUILD+5, REBUILD+10, REBUILD+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%DT DATE+1~, D1+1*
BEG CLINIC+1~, CLINIC+7*, CLINIC+10*, CLINIC+11, SAVE+1~, SAVE+21*, SAVE+22, OK+1~, OK+2*, OK+11
BEG1 CLINIC+1~, CLINIC+6*, CLINIC+7*, CLINIC+8, CLINIC+9, CLINIC+10
CPARAM SAVE+13~, SAVE+14*, SAVE+15*, SAVE+16*, SAVE+17*, SAVE+18*, SAVE+19*, SAVE+20*
>> D PROV+4*
DEFLT DATE~, DATE+3
DGQDUZ REMOVE+10~, REMOVE+14*, REMOVE+21, REMOVE+25
DGQENT REMOVE+10~, REMOVE+17*, REMOVE+18
DGQERR REMOVE+10~, REMOVE+12!, REMOVE+19, REMOVE+24, REMOVE+26, REMOVE+27, REMOVE+31
DGQSRC REMOVE+10~, REMOVE+21*, REMOVE+22, REMOVE+25*, REMOVE+29
DGQUIT REBUILD+1~, REBUILD+2, REBUILD+5*, REBUILD+7, REBUILD+10*, REBUILD+11, REBUILD+14*
DGSRV SAVE+7~*
>> DGY WARD+5*, CLINIC+8, CLINIC+11*, PROV+5*, TEAM+5*, SPEC+5*, SORT+2, SORT+13*, COMBO+10*, REBUILD+2
, REBUILD+5, REBUILD+7, REBUILD+10, REBUILD+11, REBUILD+12, REBUILD+14, REBUILD+15
DIC WARD+1~, WARD+5*, CLINIC+1~, CLINIC+4*, PROV+1~, PROV+4*, TEAM+1~, TEAM+4*, SPEC+1~, SPEC+4*
DIC("A" CLINIC+4*, PROV+4*, TEAM+4*
DIC("B" WARD+3*, CLINIC+3*, PROV+3*, TEAM+3*, SPEC+3*
DIC("S" WARD+4*, CLINIC+5*, SPEC+4*
DIC(0 WARD+5*, CLINIC+4*, PROV+4*, TEAM+4*, SPEC+4*
DIR DATE+1~, SORT+1~, OK+1~, OKR+1~
DIR("?" DATE+4*, D1+1, SORT+11*, OK+13*, OKR+4*
DIR("A" DATE+2*, SORT+4*, SORT+9*, OK+12*, OKR+3*
DIR("B" DATE+3*, SORT+5*, SORT+10*
DIR(0 DATE+2*, SORT+3*, SORT+8*, OK+12*, OKR+2*
>> DTOUT D1, SORT+12
DUZ WARD+3, CLINIC+3, PROV+3, TEAM+3, SPEC+3, SAVE+7, REMOVE+14, REMOVE+17
END CLINIC+1~, CLINIC+8*, CLINIC+10*, CLINIC+11, SAVE+1~, SAVE+21*, SAVE+23, OK+1~, OK+2*, OK+11
END1 CLINIC+1~, CLINIC+6*, CLINIC+8*, CLINIC+9, CLINIC+10
IFN SAVE+1~, SAVE+10*, SAVE+11, SAVE+14, SAVE+15, SAVE+16, SAVE+17, SAVE+18, SAVE+19, SAVE+20
LIST SAVE+1~, SAVE+3*, SAVE+10, SAVE+21, SAVE+24, OK+1~, OK+2*, OK+3, OK+4, OK+5
, OK+6, OK+7, OK+9, OK+11, OKR+1~
>> ORQERR REMOVE+18
>> ORY CLINIC+7, SORT+7
PARAM SAVE+1~, SAVE+5*, SAVE+11, SAVE+14, SAVE+15, SAVE+16, SAVE+17, SAVE+18, SAVE+19, SAVE+20
PTR OK+1~, OK+2*, OK+3, OK+4, OK+5, OK+6, OK+7, OKR+1~
SORT OK+1~, OK+2*, OK+10
START DATE~, DATE+2, DATE+4
U CONTEXT+1, WARD+3, CLINIC+3, CLINIC+7, CLINIC+8, D1+1, PROV+3, TEAM+3, SPEC+3, SAVE+7
, OK+3, OK+4, OK+5, OK+6, OK+7, REMOVE+22, REMOVE+27, REMOVE+29, REMOVE+31
>> VALMBCK WARD+2*, CLINIC+2*, PROV+2*, TEAM+2*, SPEC+2*, SAVE+1*, SAVE+25*, REMOVE+13*, REMOVE+32*, COMBO+4*
X WARD+1~, CLINIC+1~, CLINIC+10*, DATE+1~, D1*, D1+1*, D1+2, PROV+1~, TEAM+1~, SPEC+1~
, SORT+1~, SORT+2*, SORT+3, SORT+4, SORT+5, SAVE+1~, SAVE+3*, SAVE+5, SAVE+9, SAVE+11
, SAVE+12, OK+1~, OKR+1~
Y WARD+1~, WARD+5, CLINIC+1~, CLINIC+6, CLINIC+11, DATE+1~, D1+1, PROV+1~, PROV+5, TEAM+1~
, TEAM+5, SPEC+1~, SPEC+5, SORT+1~, SORT+2*, SORT+5, SORT+12*, SORT+13, OK+1~, OK+15
, OKR+1~, OKR+7
Z CLINIC+1~, CLINIC+7*, CLINIC+8*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables  | All