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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: DGPTF2

Package: Registration

Routine: DGPTF2


Information

DGPTF2 ;ALB/JDS,HIOFO/FT,WIOFO/PMK - PTF CORRECTIONS ;3/19/2015 3:43 pm

Source Information

Source file <DGPTF2.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 7 ^DGPTAE  Q^DGPTF  EN1^DGPTF4  LOG^DGPTFTR  HELP^DGPTMSGD  (D,HANG,RTY)^DGPTUTL  LO^DGUTL  
Kernel 2 ^%ZIS  ^%ZISC  
VA FileMan 2 (FILE,YN)^DICN  ^DIE  

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

Package Total Caller Graph
Registration 2 DGPTC1  DGPTF4  

Entry Points

Name Comments DBIA/ICR reference
EN ;This code allows the user to edit some PTF record fields.
Q
SET ;
101 ;
701 ;
401 ;
501 ;
601 ;
HEADER ;
DO ;
DO1 ;
D5 ;
D5Q
DIE
D
D1
PRINT ;
CLS ;called from DGPTF4
EN1

External References

Name Field # of Occurrence
^%ZIS PRINT+2, PRINT+3
^%ZISC PRINT+2
^DGPTAE CLS+10
Q^DGPTF CLS+23
EN1^DGPTF4 EN1
LOG^DGPTFTR PRINT+2, CLS+7
HELP^DGPTMSGD CLS+1
D^DGPTUTL D5+4
HANG^DGPTUTL CLS+16, CLS+19
RTY^DGPTUTL CLS+6
LO^DGUTL CLS+7
FILE^DICN CLS+13
YN^DICN D1, PRINT+1
^DIE DO+1, DIE, CLS+12, CLS+14

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Editing patient information:"
  • Line Location: DO+1
Function Call: WRITE
  • Prompt: !!,"Exiting the correction process."
  • Line Location: DO+2
Function Call: WRITE
  • Prompt: !!,"Editing PTF information:"
  • Line Location: DO1+1
Function Call: WRITE
  • Prompt: !!,"Editing ",$S(DG9=601:"Procedure",DG9=401:"Surgery",1:"Movement")," of ",Y
  • Line Location: D5+5
Function Call: WRITE
  • Prompt: !,"Do you want to stop correcting"
  • Line Location: D1+0
Function Call: WRITE
  • Prompt: !?10,"Enter 'YES' or '^' to stop making corrections",!?10,"and 'NO' to continue making corrections"
  • Line Location: D1+2
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"Error log for PTF record ",PTF," "_$P(^DPT(DFN,0),U,1)_" ",Y,!!
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !,"Performing edit checks..."
  • Line Location: CLS+2
Function Call: WRITE
  • Prompt: !,"Cannot close without proper fileman access",*7
  • Line Location: CLS+16
Function Call: WRITE
  • Prompt: !,"****** PTF CLOSED OUT ******"
  • Line Location: CLS+19
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+2
    • PRINT+3
Routine Call
  • DIE
  • Line Location:
    • DO+1
    • DIE
    • CLS+12
    • CLS+14

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^DGPT - [#45] Classic Fileman Calls
^DGP(45.84 - [#45.84] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("RM" PRINT+3
^DD("DD" PRINT+2
^DGM("PT" CLS+1
^DGP(45.84 - [#45.84] CLS+16, CLS+17*, CLS+18*
^DGPT - [#45] DO+1, CLS+12
^DPT - [#2] PRINT+2, CLS+17
^TMP("AEDIT" CLS+4!
^TMP("AERROR" CLS+4!
^UTILITY("DG" EN+11, EN+13, Q+1!
^XUSEC("DG PTFREL" CLS+21

Label References

Name Line Occurrences
@( EN+13
D1 D1+2
D5Q D5+1, D5+3
DGPTF2 CLS+7, CLS+10
DIE DO1+1, D5+5
DO Q
EN1 CLS+1, CLS+7, CLS+10, CLS+16, CLS+22
PRINT PRINT+1
SET EN+13

Naked Globals

Name Field # of Occurrence
^( EN+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % D1*, D1+1, D1+2, PRINT+1*
>> DA DO+1*, DO1+1*, D5+2*, D5+3, D5+4, CLS+12*, CLS+14*
>> DA(1 D5+2*
DD CLS+13!
>> DFN PRINT+2, CLS+1, CLS+17
DG2 EN+12*, Q+1!, DO+1
DG45 EN+13*, Q+1!, DO1+1, D5+1, D5+2
DG9 EN+13*, Q+1!, D5+2, D5+4, D5+5
>> DGACNT CLS+4*
DGALL CLS+1!
DGERR PRINT+2*, CLS+7*!, CLS+10!, CLS+12!
DGJ EN+13*, Q+1!
>> DGL SET+1, 101+1*, 101+3*, 701+1*, 701+2*, 401+1*, 401+2*, 501+1*, 501+2*, 501+3*
, 601+1*, 601+2*, HEADER+1*
DGLOGIC CLS+7!
>> DGN CLS+22*
DGPTF CLS+1*!
>> DGPTFE SET+1
>> DGPTFMT EN+10, 101+1, 101+3, 701+1, 701+2, 401+1, 401+2, 501+1, 501+2, 501+3
, 601+1, 601+2
>> DGREL CLS+21*, CLS+22
DGRTY CLS+23!, EN1!
DGRTY0 CLS+23!, EN1!
>> DGST CLS+22*
>> DGVI PRINT+3
>> DGVO PRINT+3
DIC CLS+13*!, CLS+15!
DIC(0 CLS+13*
DIE DO+1*, DO1+1*, D5+2*, D5+3, D5+4, CLS+12*, CLS+14*, CLS+15!
DINUM CLS+13*!
DO CLS+13!
>> DP CLS+12*
DR Q+1!, DO+1*, DO1+1*, D5+2*, D1!, CLS+12*!, CLS+14*!
>> DRG CLS+18
DT PRINT+2
DUZ CLS+12, CLS+14, CLS+21
>> I CLS+17*
I1 EN+13*, Q+1!, D5+2
IO PRINT+2
IOF PRINT+2
IOP PRINT+2!, PRINT+3*!
>> J EN+13*, PRINT+2*, CLS+7*
>> K EN+13*, SET+1
L Q+1!, SET+1*
M Q+1!, SET+1*
>> PTF DO+1, DO1+1, D5+2, PRINT+2, CLS+7, CLS+12, CLS+13, CLS+16, CLS+17, CLS+18
Q EN+12*, EN+13, Q, Q+1!, D1+1*
T1 CLS+7!
T2 CLS+7!
U EN+13, SET+1, D5+4, PRINT+2, CLS+12, CLS+18
>> X PRINT+3*, CLS+1*, CLS+13*
>> Y D5+4*, D5+5, D, PRINT+2*, CLS+6*, CLS+14
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All