Routine: DGPFAPIU

Information

DGPFAPIU ;ALB/SCK - PRF API UTILITIES FOR HIGH RISK MENTAL HEALTH ; Jan 21, 2011

Source Information

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Kernel	1	$$NOW^XLFDT
Registration	1	$$ASGNDATE^DGPFAPIU
VA Fileman	1	$$GET1^DIQ

Caller Graph

Caller Graph Total: 4

Package	Total	Caller Graph
Registration	2	DGPFAPIH DGPFAPIU
Clinical Reminders	1	PXRMPRF
Scheduling	1	SDMHAD

Entry Points

Name	Comments	DBIA/ICR reference
ASGNDATE(DGIEN)	; Get intial assignment date from new record history entry
CHKQ	;
CHKDFN(DGDFN,DGNAME)	; Check for a valid entry in the PATIENT file
ACTIVE(DGIEN,DGRANGE)	; Check if "active" during date range ; Input ; DGIEN - Pointer to PRF Assignment File (#26.13) ; DGRANGE - Array containg Start Date/End Date
CHKDATE(DGSTART,DGEND,DGRANGE)	; Check for valid start and end dates, set DGRANGE parameter
GETFLAG(DGPRF,DGCAT)	; Get the variable pointer value for the flag text passed in ; Input: DGPRF - Flag name, i.e. BEHAVIORAL ; DGCAT - Flag Category, N - National [Optional] ; L - Local	ICR #5491 Status: Active Usage: Controlled Subscription

Name	Field # of Occurrence
$$ASGNDATE^DGPFAPIU	ACTIVE+35
$$GET1^DIQ	CHKDFN+4, GETFLAG+35
$$NOW^XLFDT	CHKDATE+8

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

Name	Line Occurrences (* Changed, ! Killed)
^DGPF(26.11 - [#26.11]	GETFLAG+19, GETFLAG+24
^DGPF(26.14 - [#26.14]	ASGNDATE+4, ASGNDATE+5, ACTIVE+14, ACTIVE+15, ACTIVE+16, ACTIVE+47, ACTIVE+48, ACTIVE+49, ACTIVE+50
^DGPF(26.15 - [#26.15]	GETFLAG+15, GETFLAG+28

Name	Line Occurrences
CHKQ	ACTIVE+23

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DGACT	ACTIVE+9~, ACTIVE+18*, ACTIVE+27
DGACT(	ACTIVE+16*, ACTIVE+23, ACTIVE+29, ACTIVE+32, ACTIVE+37, ACTIVE+38, ACTIVE+51, ACTIVE+52
DGACT(0	ACTIVE+28
DGACT(99999999	ACTIVE+22, ACTIVE+31
DGACT2	ACTIVE+9~, ACTIVE+36, ACTIVE+38, ACTIVE+40
DGACT2(	ACTIVE+38*, ACTIVE+41, ACTIVE+42
DGCAT	GETFLAG~, GETFLAG+11, GETFLAG+12, GETFLAG+14, GETFLAG+18, GETFLAG+22
DGCNT	ACTIVE+9~, ACTIVE+13, ACTIVE+17, ACTIVE+18
DGDFN	CHKDFN~, CHKDFN+4
DGDONE	GETFLAG+9~, GETFLAG+16, GETFLAG+20, GETFLAG+25, GETFLAG+27, GETFLAG+29, GETFLAG+31
DGDT	ACTIVE+9~, ACTIVE+13, ACTIVE+14, ACTIVE+15
DGDTPRE	ACTIVE+9~, ACTIVE+46, ACTIVE+47, ACTIVE+48
DGDTPST	ACTIVE+9~, ACTIVE+49*, ACTIVE+50
DGEND	CHKDATE~, CHKDATE+3, CHKDATE+6, CHKDATE+8, CHKDATE+12
DGERR	CHKDFN+1~, CHKDFN+5
DGERR("DIERR"	CHKDFN+5
DGIEN	ASGNDATE~, ASGNDATE+4, GETFLAG+9~, GETFLAG+15, GETFLAG+16, GETFLAG+19, GETFLAG+20, GETFLAG+24, GETFLAG+25, GETFLAG+28 , GETFLAG+29, ACTIVE~, ACTIVE+14, ACTIVE+15, ACTIVE+35, ACTIVE+47, ACTIVE+48, ACTIVE+49, ACTIVE+50
DGNAME	CHKDFN~, CHKDFN+4, CHKDFN+5
DGPRE	ACTIVE+9~, ACTIVE+48*, ACTIVE+51
DGPRF	GETFLAG~, GETFLAG+15, GETFLAG+19, GETFLAG+24, GETFLAG+28
DGPST	ACTIVE+9~, ACTIVE+50*, ACTIVE+52
DGRANGE	CHKDATE~, CHKDATE+7, CHKDATE+10, ACTIVE~, ACTIVE+26
DGRANGE("END"	CHKDATE+12*, ACTIVE+35, ACTIVE+38, ACTIVE+49
DGRANGE("START"	CHKDATE+12*, ACTIVE+38, ACTIVE+46
DGRSLT	CHKDATE+1~, CHKDFN+1~, CHKDFN+3, CHKDFN+5, CHKDFN+6, ASGNDATE+1~, ASGNDATE+5, ASGNDATE+7, GETFLAG+9~, GETFLAG+16 , GETFLAG+20, GETFLAG+25, GETFLAG+29, GETFLAG+31, GETFLAG+34, GETFLAG+35, GETFLAG+36, GETFLAG+38, ACTIVE+9~, ACTIVE+11 , ACTIVE+23, ACTIVE+29, ACTIVE+32, ACTIVE+33, ACTIVE+35, ACTIVE+42, ACTIVE+51, ACTIVE+52, CHKQ+2
DGSTART	CHKDATE~, CHKDATE+3, CHKDATE+4, CHKDATE+6, CHKDATE+8*, CHKDATE+12
DGSTAT	GETFLAG+9~, GETFLAG+35*, GETFLAG+36
DGX	ASGNDATE+1~, ASGNDATE+3, ASGNDATE+4, ASGNDATE+5, ACTIVE+9~, ACTIVE+15, ACTIVE+16, ACTIVE+22, ACTIVE+23, ACTIVE+28* , ACTIVE+29, ACTIVE+31, ACTIVE+32, ACTIVE+36, ACTIVE+37, ACTIVE+38, ACTIVE+41, ACTIVE+42
U	ASGNDATE+5, ACTIVE+16, ACTIVE+23, ACTIVE+29, ACTIVE+32, ACTIVE+38, ACTIVE+42, ACTIVE+51, ACTIVE+52

Customize PDF page

Package: Registration

Routine: DGPFAPIU

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 4

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: