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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: DGRPCF

Package: Registration

Routine: DGRPCF


Information

DGRPCF ;ALB/MRL,BAJ,TDM - CONSISTENCY OF PATIENT DATA (FILE/EDIT) ; 6/17/09 12:28pm

Source Information

Source file <DGRPCF.m>

Call Graph

Call Graph Total: 11

Package Total Call Graph
Registration 7 ^DGRP9  (,START,TIME,TIMEQ)^DGRPC  ^DGRPCB  (,KVAR)^DGRPCE  ^DGRPCF1  ^DGRPV  DEM^VADPT  
VA Fileman 3 YN^DICN  ^DIK  ^DIR  
Kernel 1 ^%ZIS  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Registration 1 DGRPC3  

Entry Points

Name Comments DBIA/ICR reference
EN
BUL
NOEDIT ; write explanation of non-editable items
EDIT
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).
;
DIS

External References

Name Field # of Occurrence
^%ZIS DIS
^DGRP9 EDIT+11
^DGRPC EDIT
START^DGRPC EN+5
TIME^DGRPC DIS
TIMEQ^DGRPC EN+5
^DGRPCB BUL
^DGRPCE EDIT+3
KVAR^DGRPCE EN, EN+4, EN+5, EN+11, BUL
^DGRPCF1 EN+5
^DGRPV EDIT+11
YN^DICN EDIT
^DIK DELETE+10
^DIR EDIT+8
DEM^VADPT DIS

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: DIS+0
Function Call: WRITE
  • Prompt: VADM(1)," (",$P(VADM(2),"^",2),")",?65,$P(VADM(3),"^",2)
  • Line Location: DIS+0
Function Call: WRITE
  • Prompt: VADM(1)," (",$P(VADM(2),"^",2),")",?65,$P(VADM(3),"^",2)
  • Line Location: DIS+0
Function Call: WRITE
  • Prompt: !
  • Line Location: DIS+2
Function Call: WRITE
  • Prompt: !!,"Inconsistencies followed by [+] will prevent a Z07"
  • Line Location: DIS+3
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+12
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
  • DIR
  • Line Location:
    • EDIT+8
Routine Call
  • %ZIS
  • Line Location:
    • DIS

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+1, WRIT+5
^DPT - [#2] EDIT+2, EDIT+4, KEY
^XUSEC("DG ELIGIBILITY" KEY

Label References

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

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % EDIT*, EDIT+12
>> C DIS+1*, WRIT+1*
DA DELETE+3~, DELETE+5*, DELETE+10*
>> DFN EN+6, EN+7, EN+8, EN+9, EN+10, EDIT+2, EDIT+4, KEY, DELETE+6, DELETE+8
DGADD EN+2~*, EN+6*, EN+7
>> DGCON EN+5*
>> DGCT EN, EN+4, EN+5, EN+10, EDIT, EDIT+12, NOEDIT+3
>> DGCT1 DIS+1*, DIS+2, EDIT, EDIT+12, WRIT+2*, NOEDIT+1, NOEDIT+3
>> DGCT2 DIS+1*, WRIT+4*
>> DGCT3 DIS+1*, DIS+2, EDIT, EDIT+12, WRIT+3*, NOEDIT+2, NOEDIT+3
>> DGCTZ7 DIS+1*, DIS+3, WRIT+5*
>> DGD EN+9*
>> DGD1 EN+9*
>> DGD2 EN+9*, EN+10
>> DGEDCN EN+5*, EN+10, EDIT+2*, EDIT+5*
>> DGEDIT DIS+1*, WRIT+2
>> DGER EN+9, DIS+1, DIS+4, EDIT+1
>> DGINC55 DIS+4*, EDIT+1*, EDIT+6
>> DGKEY( WRIT+2, KEY+1*
>> DGKEY(1 KEY+2*
>> DGKEY(2 KEY+3*
>> DGKEY(3 KEY+4*
>> DGKEY(4 KEY+5*
DGP KEY+5!
DGP( KEY*, KEY+2, KEY+3, KEY+4
DGRETURN EDIT+6, EDIT+10*, EDIT+11, BUL!
>> DGRPCOLD WRIT+4
>> DGRPE DIS*
>> DGRPOUT EN+5*, EDIT
>> DGRPV EDIT+9*
>> DGRPVV(9 DIS+4, EDIT+1
DIK DELETE+3~, DELETE+6*
DIR EDIT+7~
DIR("A" EDIT+8*
DIR("B" EDIT+8*
DIR(0 EDIT+8*
DT EN+6, EN+7
DUZ EN+6, KEY
>> I DIS+1*, KEY*, KEY+1*
IOF DIS
IOP DIS*!
>> J DIS+1*, WRIT+1, WRIT+2, WRIT+3, WRIT+4, WRIT+5
>> OVER99 DELETE+9
RULE DELETE+3~, DELETE+5*, DELETE+8*, DELETE+9, DELETE+10
>> VADM(1 DIS
>> VADM(2 DIS
>> VADM(3 DIS
X EN+6*, DIS*, BUL!, KEY*, KEY+2, KEY+3, KEY+4, KEY+5
>> X1 WRIT+1*
>> X2 DIS+1*, WRIT+2
Y EDIT+9, EDIT+10, EDIT+11, BUL!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All