DGPFRPI1 ;ALB/RBS - PRF PRINCIPAL INVEST REPORT CONT. ; 6/8/04 5:07pm
Source file <DGPFRPI1.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| START | ; compile and print report
|
|
| LOOP(DGSORT,DGLIST) | ;use sort var's for record searching to build list
; Input: ; DGSORT - array of user selected report parameters ; DGLIST - temp global name |
|
| BLDTMP(DGBEG,DGEND,DGSTAT,DGPI,DGPINAME,DGDFNLST,DGLIST) | ; list global builder
; Input: ; DGBEG - sort beginning date ; DGEND - sort ending date ; DGSTAT - status of assignment ; DGPI - principal investigator person ien ; DGPINAME - name of principal investigator ; DGDFNLST - array of patient dfn's assigned to the flag ; DGLIST - temp global name used for report list |
|
| EXIT | ;
|
| Name | Field # of Occurrence |
|---|---|
| HOME^%ZIS | EXIT+4 |
| ^%ZISC | EXIT+4 |
| $$GETASGN^DGPFAA | BLDTMP+31 |
| $$GETADT^DGPFAAH | BLDTMP+39 |
| $$GETHIST^DGPFAAH | BLDTMP+38 |
| $$GETLAST^DGPFAAH | BLDTMP+36 |
| $$GETLF^DGPFALF | LOOP+41 |
| $$ASGNCNT^DGPFLF6 | LOOP+50 |
| PRINT^DGPFRPI2 | START+7 |
| $$GETPAT^DGPFUT2 | BLDTMP+45 |
| WAIT^DICD | START+2 |
| $$FDATE^VALM1 | BLDTMP+50, BLDTMP+52 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPF(26.11 - [#26.11] | LOOP+37, LOOP+39, LOOP+42 |
| ^TMP("DGPFRPI1" | START+4 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %ZIS | EXIT+3! |
| DGACTDT | BLDTMP+13~, BLDTMP+50*, BLDTMP+54 |
| DGAIEN | LOOP+8~, BLDTMP+14~, BLDTMP+28*, BLDTMP+29, BLDTMP+31, BLDTMP+36, BLDTMP+39, BLDTMP+51*, BLDTMP+58 |
| DGBEG | LOOP+9~, LOOP+52, BLDTMP~, BLDTMP+42 |
| DGCNT | LOOP+10~, LOOP+36*, LOOP+50*, LOOP+51 |
| DGDFN | BLDTMP+15~, BLDTMP+26*, BLDTMP+27*, BLDTMP+28, BLDTMP+32, BLDTMP+45, BLDTMP+58 |
| DGDFNLST | LOOP+11~, LOOP+49!, LOOP+50, LOOP+52, BLDTMP~ |
| DGDFNLST( | BLDTMP+27, BLDTMP+28 |
| DGEND | LOOP+12~, LOOP+52, BLDTMP~, BLDTMP+42 |
| DGFGNM | BLDTMP+16~, BLDTMP+48*, BLDTMP+49*, BLDTMP+56, BLDTMP+58 |
| DGFIEN | LOOP+13~, LOOP+38*, LOOP+39*, LOOP+41, LOOP+42, LOOP+48 |
| DGFLAG | LOOP+14~, LOOP+40!, LOOP+41 |
| DGFLAG("PRININV" | LOOP+44, LOOP+45, LOOP+46 |
| DGHIEN | BLDTMP+17~, BLDTMP+36*, BLDTMP+37, BLDTMP+38 |
| DGINIT | BLDTMP+18~, BLDTMP+39*, BLDTMP+40, BLDTMP+42 |
| DGLINE | BLDTMP+21~, BLDTMP+54*, BLDTMP+58 |
| DGLIST | START+3~, START+4*, START+5, START+6, START+7, START+8, LOOP~, LOOP+52, BLDTMP~, BLDTMP+56 , BLDTMP+58 |
| DGPAT | BLDTMP+22~, BLDTMP+44!, BLDTMP+45 |
| DGPAT("NAME" | BLDTMP+46 |
| DGPAT("SSN" | BLDTMP+54 |
| DGPFA | BLDTMP+19~, BLDTMP+30!, BLDTMP+31 |
| DGPFA("DFN" | BLDTMP+32 |
| DGPFA("FLAG" | BLDTMP+48 |
| DGPFA("REVIEWDT" | BLDTMP+52 |
| DGPFA("STATUS" | BLDTMP+33, BLDTMP+54 |
| DGPFAH | BLDTMP+20~, BLDTMP+35!, BLDTMP+38 |
| DGPFAH("ACTION" | BLDTMP+54 |
| DGPFAH("ASSIGN" | BLDTMP+51 |
| DGPFAH("ASSIGNDT" | BLDTMP+50 |
| DGPI | LOOP+15~, LOOP+43*, LOOP+45*, LOOP+52, BLDTMP~, BLDTMP+56 |
| DGPIIEN | LOOP+16~, LOOP+31*, LOOP+42 |
| DGPINAME | LOOP+17~, LOOP+46*, LOOP+47*, LOOP+52, BLDTMP~, BLDTMP+56 |
| DGPINUM | LOOP+18~, LOOP+43*, LOOP+44*, LOOP+45, LOOP+46 |
| DGPNM | BLDTMP+23~, BLDTMP+46*, BLDTMP+47*, BLDTMP+58 |
| DGPRINC | LOOP+19~, LOOP+31 |
| DGREV | BLDTMP+24~, BLDTMP+52*, BLDTMP+53*, BLDTMP+54 |
| DGSORT | START+6, START+7, LOOP~ |
| DGSORT( | LOOP+29 |
| DGSTAT | LOOP+20~, LOOP+32*, LOOP+33*, LOOP+52, BLDTMP~, BLDTMP+33 |
| DGSTATUS | LOOP+21~, LOOP+32 |
| DGSUB | LOOP+22~, LOOP+36*, LOOP+37*, LOOP+39 |
| DGVPTR | LOOP+23~, LOOP+48*, LOOP+50 |
| DGX | LOOP+24~, LOOP+29* |
| IOST | START+2 |
| POP | EXIT+3! |
| U | LOOP+45, LOOP+46, BLDTMP+32, BLDTMP+48, BLDTMP+54 |
| >> ZTQUEUED | EXIT+1, EXIT+2 |
| >> ZTREQ | EXIT+1* |
