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 |