DGPFAPIU ;ALB/SCK - PRF API UTILITIES FOR HIGH RISK MENTAL HEALTH ; Jan 21, 2011
Source file <DGPFAPIU.m>
Package | Total | Call Graph |
---|---|---|
Kernel | 1 | $$NOW^XLFDT |
Registration | 1 | $$ASGNDATE^DGPFAPIU |
VA Fileman | 1 | $$GET1^DIQ |
Package | Total | Caller Graph |
---|---|---|
Registration | 2 | DGPFAPIH DGPFAPIU |
Clinical Reminders | 1 | PXRMPRF |
Scheduling | 1 | SDMHAD |
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 |
|
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 |
>> | 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 |