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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] GET1^DIQ
^DG(391 - [#391] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call