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

Package: Registration

Routine: DGRPCF


Information

DGRPCF ;ALB/MRL,BAJ,TDM,DJE,ARF,RN - CONSISTENCY OF PATIENT DATA (FILE/EDIT) ;Sep 28, 2017 5:35PM

Source Information

Source file <DGRPCF.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
Registration 11 $$FINDCUR^DGENA  $$VET^DGENPTA  ^DGRP15  ^DGRP9  (,START,TIME,TIMEQ)^DGRPC  ^DGRPCB  (,KVAR)^DGRPCE  ^DGRPCF1  
$$SSNNM^DGRPU  ^DGRPV  DEM^VADPT  
VA FileMan 4 YN^DICN  ^DIK  $$GET1^DIQ  ^DIR  
Kernel 1 ^%ZIS  

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 DGRPC3  

Entry Points

Name Comments DBIA/ICR reference
EN
DIS
EDIT
BUL
WRIT ;S C=C+1 W:(C#2) ! S X1=$S((C#2):0,1:40) W ?X1,$E(J_" ",1,3),"- ",X2 I DGKEY(+$E(DGEDIT,J)) W "*" S DGCT1=DGCT1+1
KEY
DELETE ; Delete all Registration inconsistencies from INCONSISTENT DATA file (#38.5).
;
NOEDIT ; write explanation of non-editable items

External References

Name Field # of Occurrence
^%ZIS DIS
$$FINDCUR^DGENA EDIT+8
$$VET^DGENPTA EDIT+7
^DGRP15 EDIT+23
^DGRP9 EDIT+16
^DGRPC EDIT
START^DGRPC EN+5
TIME^DGRPC DIS
TIMEQ^DGRPC EN+5
^DGRPCB BUL
^DGRPCE EDIT+3
KVAR^DGRPCE ENEN+4, EN+5, EN+11, BUL
^DGRPCF1 EN+5
$$SSNNM^DGRPU DIS+2
^DGRPV EDIT+16, EDIT+23
YN^DICN EDIT
^DIK DELETE+10
$$GET1^DIQ DIS+4, DIS+6
^DIR EDIT+13, EDIT+20
DEM^VADPT DIS+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: $$SSNNM^DGRPU(DFN),?65,$P(VADM(3),"^",2)
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: $$SSNNM^DGRPU(DFN),?65,$P(VADM(3),"^",2)
  • Line Location: EN+15
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: DIS+0
Function Call: WRITE
  • Prompt: " "_$P(VADM(3),"^",2)
  • Line Location: DIS+8
Function Call: WRITE
  • Prompt: $P(VADM(2),U,2)," ",DGPTYPE
  • Line Location: DIS+9
Function Call: WRITE
  • Prompt: !,DGX
  • Line Location: DIS+10
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS+12
Function Call: WRITE
  • Prompt: !!,"Inconsistencies followed by [+] will prevent a Z07"
  • Line Location: DIS+13
Function Call: WRITE
  • Prompt: !!,"DO YOU WANT TO UPDATE THESE INCONSISTENCIES NOW"
  • Line Location: EDIT+0
Function Call: WRITE
  • Prompt: *7,!!,"Patient is being edited. Try again later."
  • Line Location: EDIT+2
Function Call: WRITE
  • Prompt: !!?4,"YES - To correct inconsistencies to unrestricted fields immediately.",!?4,"NO - To abort this process immediately."
  • Line Location: EDIT+17
Function Call: WRITE
  • Prompt: !
  • Condition for execution: (C#2)
  • Line Location: WRIT+0
Function Call: WRITE
  • Prompt: ?X1,$E(J_" ",1,3),"- ",X2
  • Line Location: WRIT+0
Function Call: WRITE
  • Prompt: "*"
  • Line Location: WRIT+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: (C#2)
  • Line Location: WRIT+1
Function Call: WRITE
  • Prompt: ?X1,$E(J_" ",1,3),"- "
  • Line Location: WRIT+1
Function Call: WRITE
  • Prompt: X2
  • Line Location: WRIT+2
Function Call: WRITE
  • Prompt: "*"
  • Line Location: WRIT+2
Function Call: WRITE
  • Prompt: "**"
  • Line Location: WRIT+3
Function Call: WRITE
  • Prompt: "+"
  • Line Location: WRIT+5
Function Call: WRITE
  • Prompt: !,"You will not be able to edit inconsistencies followed by an asterisk [*]",!,"as you do not hold the appropriate ""DG ELIGIBILITY"" security key."
  • Line Location: NOEDIT+1
Function Call: WRITE
  • Prompt: !,"Inconsistencies followed by two (2) asterisks [**] must be corrected by",!,"using the appropriate MAS menu option(s)."
  • Line Location: NOEDIT+2
Function Call: WRITE
  • Prompt: !!,"All items not followed by an asterisk can be edited at this time. If these",!,"items are not corrected at this time, a bulletin will be sent to the",!,"appropriate hospital personnel."
  • Line Location: NOEDIT+3
Routine Call
  • %ZIS
  • Line Location:
    • DIS
Routine Call
  • DIR
  • Line Location:
    • EDIT+13
    • EDIT+20

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DG(391 - [#391] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGIN(38.5 - [#38.5] EN+6*!, EN+7*, EN+8, EN+9*, EN+10*, DELETE+8
^DGIN(38.6 - [#38.6] EN+9, DIS+11, WRIT+5
^DPT - [#2] EDIT+2, EDIT+4, KEY
^TMP($J EDIT+7
^XUSEC("DG ELIGIBILITY" KEY

Label References

Name Line Occurrences
BUL EDIT
DELETE EN+4, EN+8
DIS EN+10
EDIT EDIT+17
KEY DIS
NOEDIT DIS+12
WRIT DIS+11

Naked Globals

Name Field # of Occurrence
^( KEY
^(0 EN+6*, EN+7, DIS+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EDIT*, EDIT+17
>> C DIS+11*, WRIT+1*
DA DELETE+3~, DELETE+5*, DELETE+10*
>> DFN EN+6, EN+7, EN+8, EN+9, EN+10, DIS+2, DIS+4, DIS+6, EDIT+2, EDIT+4
EDIT+7, EDIT+8, KEYDELETE+6, DELETE+8
DGADD EN+2~*, EN+6*, EN+7
>> DGCON EN+5*
>> DGCT ENEN+4, EN+5, EN+10, EDITEDIT+17, NOEDIT+3
>> DGCT1 DIS+11*, DIS+12, EDITEDIT+17, WRIT+2*, NOEDIT+1, NOEDIT+3
>> DGCT2 DIS+11*, WRIT+4*
>> DGCT3 DIS+11*, DIS+12, EDITEDIT+17, WRIT+3*, NOEDIT+2, NOEDIT+3
>> DGCTZ7 DIS+11*, DIS+13, WRIT+5*
>> DGD EN+9*
>> DGD1 EN+9*
>> DGD2 EN+9*, EN+10
>> DGEDCN EN+5*, EN+10, EDIT+2*, EDIT+5*
>> DGEDIT DIS+11*, WRIT+2
>> DGER EN+9, DIS+11, DIS+14, EDIT+1, EDIT+18, EDIT+23
>> DGINC55 DIS+14*, EDIT+1*, EDIT+11
DGINCOM EDIT+7~*, EDIT+9*, EDIT+11
>> DGKEY( WRIT+2, KEY+1*
>> DGKEY(1 KEY+2*
>> DGKEY(2 KEY+3*
>> DGKEY(3 KEY+4*
>> DGKEY(4 KEY+5*
DGMEMID DIS+1~, DIS+3*, DIS+9
DGOOVET EDIT+7~*, EDIT+8
DGP KEY+5!
DGP( KEY*, KEY+2, KEY+3, KEY+4
DGPREFNM DIS+1~, DIS+6*, DIS+8
DGPTYPE DIS+1~, DIS+4*, DIS+5*, DIS+9
DGRETURN EDIT+11, EDIT+15*, EDIT+16, EDIT+22*, BUL!
>> DGRPCOLD WRIT+4
>> DGRPE DIS*
>> DGRPOUT EN+5*, EDIT
>> DGRPV EDIT+14*, EDIT+21*
>> DGRPVV(9 DIS+14, EDIT+1
DGSSNSTR DIS+1~, DIS+2*, DIS+3
DGVET EDIT+7~*, EDIT+8, EDIT+9
DGX DIS+1~, DIS+10*
DIK DELETE+3~, DELETE+6*
DIR EDIT+12~, EDIT+19~
DIR("A" EDIT+13*, EDIT+20*
DIR("B" EDIT+13*, EDIT+20*
DIR(0 EDIT+13*, EDIT+20*
DT EN+6, EN+7
DUZ EN+6, KEY
>> I DIS+11*, KEY*, KEY+1*
IOF DIS
IOP DIS*!
>> J DIS+11*, WRIT+1, WRIT+2, WRIT+3, WRIT+4, WRIT+5
>> OVER99 DELETE+9
RULE DELETE+3~, DELETE+5*, DELETE+8*, DELETE+9, DELETE+10
U DIS+9
>> VADM(1 DIS+8
>> VADM(2 DIS+9
>> VADM(3 DIS+8
X EN+6*, BUL!, KEY*, KEY+2, KEY+3, KEY+4, KEY+5
>> X1 WRIT+1*
>> X2 DIS+11*, WRIT+2
>> XQY0 EDIT+8
Y EDIT+14, EDIT+15, EDIT+16, EDIT+21, EDIT+22, EDIT+23, BUL!
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