DGPFAAH ;ALB/RPM - PRF ASSIGNMENT HISTORY API'S ; 4/8/04 4:13pm
Source file <DGPFAAH.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GETALL(DGPFIEN,DGPFIENS) | ;retrieve list of history IENs for an assignment
|
|
GETALLDT(DGPFIEN,DGPFIENS) | ;retrieve list of history IENs for an assignment
|
|
GETHIST(DGPFIEN,DGPFAH,DGDBRS) | ;retrieve a single assignment history record
|
|
GETFIRST(DGPFIEN) | ;get IEN of the initial assignment
|
|
GETLAST(DGPFIEN) | ;determine IEN of last assignment history record
|
|
GETADT(DGPFIEN) | ;get the initial assignment date
|
|
FNDHIST(DGAIEN,DGADT) | ;Find Assignment
; This function finds a patient record flag assignment record. |
|
STOHIST(DGPFAH,DGPFERR) | ;
|
|
GETDBRS | ; called from GETHIST
; expects DGFLDS() to contain GETS^DIQ(26.14) with all fields "**" ; Return sorted by DBRS#: ; DGPFAH("DBRS",inc) = p1^p2^p3^p4^p5 ; p1=DBRS# p2=Other p3=date_int;ext p4=status_int;ext ; p5=site_int;ext |
FileNo | Call Tags |
---|---|
^DGPF(26.14 - [#26.14] | GETS^DIQ, VFIELD^DILFD |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^DGPF(26.13 - [#26.13] | GETFIRST+16, GETLAST+13, GETADT+18 |
^DGPF(26.14 - [#26.14] | GETALL+14, GETALL+16, GETALLDT+15, GETALLDT+17, GETALLDT+19, GETHIST+35, GETFIRST+17, GETFIRST+18, GETLAST+14, GETLAST+16 , GETADT+19, GETADT+21, FNDHIST+14 |
Name | Line Occurrences |
---|---|
GETDBRS | GETHIST+55 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ARR | GETHIST+36~, GETHIST+43*, GETDBRS+9~* |
ARR( | GETHIST+44, GETHIST+45, GETHIST+46, GETHIST+47, GETHIST+48, GETHIST+49, GETHIST+54, GETDBRS+10, GETDBRS+11, GETDBRS+12 , GETDBRS+13, GETDBRS+14 |
ARR(1 | GETHIST+51 |
DBNM | GETDBRS+7~, GETDBRS+10*, GETDBRS+15 |
DF | GETHIST+36~, GETHIST+38*, GETHIST+39*, GETHIST+40 |
DGADT | GETALLDT+10~, GETALLDT+16*, GETALLDT+17*, GETALLDT+19, GETALLDT+20, GETADT+13~, GETADT+16*, GETADT+24*, GETADT+25, FNDHIST~ , FNDHIST+13, FNDHIST+14 |
DGAIEN | FNDHIST~, FNDHIST+13, FNDHIST+14 |
DGCNT | GETALL+10~, GETALL+13*, GETALL+18*, GETALL+19, GETALLDT+11~, GETALLDT+14*, GETALLDT+21*, GETALLDT+22 |
DGDAT | GETLAST+10~, GETLAST+14*, GETLAST+15, GETLAST+16 |
DGDBRS | GETHIST~, GETHIST+39 |
DGEDT | GETFIRST+12~, GETFIRST+17*, GETFIRST+18, GETADT+12~, GETADT+19*, GETADT+20, GETADT+21 |
DGERR | GETHIST+33~, GETHIST+41, STOHIST+18~, STOHIST+43, STOHIST+44, STOHIST+45, STOHIST+55~, STOHIST+57, STOHIST+60~, STOHIST+64 |
DGFDA | STOHIST+16~, STOHIST+44 |
DGFDA( | STOHIST+33*, STOHIST+34*, STOHIST+35*, STOHIST+36*, STOHIST+37*, STOHIST+38*, STOHIST+40*, STOHIST+41*, STOHIST+51 |
DGFDAIEN | STOHIST+17~, STOHIST+60~, STOHIST+61*, STOHIST+62*, STOHIST+63 |
DGFDAIEN(1 | STOHIST+62*, STOHIST+65 |
DGFLD | STOHIST+13~, STOHIST+28, STOHIST+44 |
DGFLD( | STOHIST+22* |
DGFLD("ACTION" | STOHIST+35 |
DGFLD("APPRVBY" | STOHIST+37 |
DGFLD("ASSIGN" | STOHIST+30, STOHIST+33 |
DGFLD("ASSIGNDT" | STOHIST+30, STOHIST+34 |
DGFLD("COMMENT" | STOHIST+24*, STOHIST+40 |
DGFLD("DBRS" | STOHIST+26*, STOHIST+43 |
DGFLD("ENTERBY" | STOHIST+36 |
DGFLD("ORIGFAC" | STOHIST+25*, STOHIST+41 |
DGFLD("TIULINK" | STOHIST+38 |
DGFLDS | GETHIST+32~ |
DGFLDS( | GETHIST+43, GETHIST+55, GETDBRS+8, GETDBRS+9 |
DGHIEN | GETALL+11~, GETALL+15*, GETALL+16*, GETALL+17, GETALLDT+12~, GETALLDT+18*, GETALLDT+19*, GETALLDT+20, GETFIRST+11~, GETFIRST+15* , GETFIRST+18*, GETFIRST+20, GETLAST+11~, GETLAST+12*, GETLAST+16*, GETLAST+17, GETADT+11~, GETADT+17*, GETADT+21*, GETADT+22 |
DGIEN | FNDHIST+11~, FNDHIST+14*, FNDHIST+15, STOHIST+14~, STOHIST+30*, STOHIST+31, STOHIST+45*, STOHIST+57*, STOHIST+64*, STOHIST+65* , STOHIST+68 |
DGIENS | GETHIST+31~, GETHIST+37*, GETHIST+40, GETHIST+43, STOHIST+15~, STOHIST+31*, STOHIST+32*, STOHIST+33, STOHIST+34, STOHIST+35 , STOHIST+36, STOHIST+37, STOHIST+38, STOHIST+40, STOHIST+41, STOHIST+44, STOHIST+49, STOHIST+62, STOHIST+65 |
DGPFAH | GETHIST~, GETFIRST+13~, GETADT+14~, GETADT+22, STOHIST~ |
DGPFAH( | STOHIST+22 |
DGPFAH("ACTION" | GETHIST+46*, GETADT+23 |
DGPFAH("APPRVBY" | GETHIST+48* |
DGPFAH("ASSIGN" | GETHIST+44* |
DGPFAH("ASSIGNDT" | GETHIST+45*, GETADT+24 |
DGPFAH("COMMENT" | GETHIST+51*, GETHIST+52!, STOHIST+24 |
DGPFAH("DBRS" | STOHIST+26, GETDBRS+17* |
DGPFAH("ENTERBY" | GETHIST+47* |
DGPFAH("ORIGFAC" | GETHIST+54*, STOHIST+25 |
DGPFAH("TIULINK" | GETHIST+49* |
DGPFERR | STOHIST~, STOHIST+28 |
DGPFIEN | GETALL~, GETALL+14, GETALL+16, GETALLDT~, GETALLDT+15, GETALLDT+17, GETALLDT+19, GETHIST~, GETHIST+35, GETHIST+37 , GETFIRST~, GETFIRST+16, GETFIRST+17, GETFIRST+18, GETLAST~, GETLAST+13, GETLAST+14, GETLAST+16, GETADT~, GETADT+18 , GETADT+19, GETADT+21 |
DGPFIENS | GETALL~, GETALLDT~ |
DGPFIENS( | GETALL+17*, GETALLDT+20* |
DGRSLT | GETHIST+34~*, GETHIST+42*, GETHIST+58 |
DGSUB | STOHIST+12~, STOHIST+21*, STOHIST+22 |
DIERR | GETHIST+36~, STOHIST+29~, STOHIST+55~, STOHIST+60~ |
I | STOHIST+50~, STOHIST+51*, GETDBRS+7~ |
IENS | GETDBRS+7~, GETDBRS+8*, GETDBRS+9, GETDBRS+15 |
J | STOHIST+50~, STOHIST+51*, GETDBRS+7~, GETDBRS+17* |
TMP | GETDBRS+7~ |
TMP( | GETDBRS+15* |
U | GETHIST+44, GETHIST+45, GETHIST+46, GETHIST+47, GETHIST+48, GETHIST+49, GETHIST+54, GETADT+23, STOHIST+22, GETDBRS+11 , GETDBRS+12, GETDBRS+13, GETDBRS+14 |
UPD | STOHIST+19~, STOHIST+49*, STOHIST+51*, STOHIST+54 |
X | STOHIST+25*, STOHIST+29~, STOHIST+41*, GETDBRS+7~, GETDBRS+10*, GETDBRS+11*, GETDBRS+12*, GETDBRS+13*, GETDBRS+14*, GETDBRS+15 , GETDBRS+17* |
Y | GETDBRS+7~ |