Routine: DG10

Information

DG10 ;ALB/MRL,DAK,AEG,PHH,TMK,ASMR/JD-LOAD/EDIT PATIENT DATA ; 09/30/15 @ 08:34

Source file <DG10.m>

Name	Comments	DBIA/ICR reference
START	;
A	;W !! K VET,DIE,DIC,CARD S DIC=2,DLAYGO=2,DIC(0)="ALEQM" K DIC("S") D ^DIC G Q:Y<0 S (DFN,DA)=+Y,DGNEW=$P(Y,"^",3) K DLAYGO ; DG5.31040 - NEW variable DGTMOT and initialize to 0 to track timeout in address and DGADDRE to track the return value of $$ADD^DGADDUTL
SKIP	;
HINQ	;	ICR #2076 Status: Active Usage: Private
A1		ICR #2943 Status: Withdrawn Usage: Private
H
CK
EMBOS	;W ! D EMBOS^DGQEMA G A
Q
MT(DFN)	; Check if user requires a means test. Ask user if they want to proceedif ; one is required
WARNING	;
PAUSE	;
OKTOCONT(Y)	;
OKQ
CP	;If not (autoexempt or MTested) & no CP test this year then
QTCP
T	;
T59(A,B)	;Get all the demographics that are supposed to trigger an unsolicited update
T60(A,B,C)	;Compare the before and after arrays to see if any of the considerd demographics
RPOUT	; Entry point if user timeout out

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: A+3
Function Call: WRITE	Prompt: $S(Y]"":Y,1:"NOT VERIFIED") Line Location: HINQ+7
Function Call: WRITE	Prompt: $S(Y]"":Y,1:"NOT VERIFIED") Line Location: HINQ+8
Function Call: WRITE	Prompt: !?5,"Enter 'YES' to enter/edit registration data or 'NO' to continue without",!?5,"editing." Line Location: H+0
Function Call: WRITE	Prompt: !!,"A means test for this encounter date was not found and may be required!" Line Location: WARNING+3
Function Call: WRITE	Prompt: !,"Further investigation will be needed." Line Location: WARNING+4
Function Call: WRITE	Prompt: ! Line Location: WARNING+5
Function Call: WRITE	Prompt: !!,"Patient Requires a means Test" Line Location: OKTOCONT+3
Function Call: WRITE	Prompt: !,"Primary Means Test Required from '",Y,"'",! Line Location: OKTOCONT+5

FileNo	Call Tags
^DPT - [#2]	GETS^DIQ