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
; DG*5.3*1040 - NEW variable DGTMOT and initialize to 0 to track timeout in address and DGADDRE to track the return value of $$ADD^DGADDUTL |
|
SKIP | ;
|
|
HINQ | ;
|
|
A1 |
|
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GETS^DIQ |