BGP3DPA9 ; IHS/CMI/LAB - COMP NATIONAL GPRA FOR PTS W/APPT 03 Jun 2013 2:54 PM ; 09 Sep 2013 10:30 AM
Source file <BGP3DPA9.m>
Package | Total | Call Graph |
---|---|---|
IHS GPRA Information System | 7 | PROCCY^BGP3D1 PROC^BGP3DPA9 PRINT^BGP3DPAW PAUSE^BGP3DU JRNL^BGP3UTL $$DEMOCHK^BGP3UTL2 TAXCHK^BGP3XTCN |
Kernel | 6 | ^%ZIS ^%ZISC ^%ZTLOAD ($$FMADD,$$FMDIFF,$$FMTE,$$NOW)^XLFDT $$ADD^XPDMENU MES^XPDUTL |
VA Fileman | 6 | NOW^%DTC ^DIC FILE^DICN ^DIE (,IX1)^DIK ^DIR |
IHS VA Utilities | 3 | ^XBFMK GUIR^XBLM EN^XBVK |
IHS Changes To Scheduling | 1 | LIST^BSDAPI2 |
Registration | 1 | TERM^VALM0 |
Package | Total | Caller Graph |
---|---|---|
IHS GPRA Information System | 2 | BGP3DPA9 BGP3GFO9 |
Name | Comments | DBIA/ICR reference |
---|---|---|
DATES | ;
|
|
TSKMN | ;EP ENTRY POINT FROM TASKMAN
|
|
RTYPE | ;
|
|
EOJ | ;
|
|
STMP | ;EP
|
|
ZISCP | ;
|
|
GUIEP | ;EP
|
|
USR() | ;EP - Return name of current user from ^VA(200.
|
|
EOP | ;EP - End of page.
|
|
BDMG(BGPBD,BGPED,BGPCLN) | ;EP - GUI DMS Entry Point
|
|
GETPAT1 | ;
|
|
CLIN | ;
|
|
DIV | ;
|
|
PRE | ;EP - CALLED FROM PATCH 1 PRE INIT.
|
|
TEMP | ;search template created?
|
|
CTR(X,Y) | ;EP - Center X in a field Y wide.
|
|
COVPAGE | ;EP - called from option to display the cover page
|
|
EP | ;EP - called from option interactive
|
|
EN1 | ;EP Help
|
|
EN2 | ||
SELPT | ;
|
|
CPDONE | ;
|
|
NT | ||
ADDON | ;
|
|
ENDDATE | ;
|
|
ZIS | ;
|
|
DRIVER | ;
|
|
GETPAT | ;
|
|
ENDLOG | ;-- write the end of the log
|
|
CPHEADER | ;EP
|
|
TSKMNCP | ;EP ENTRY POINT FROM TASKMAN
|
|
DUP | ||
POST | ;EP - called from patch 1 post init
|
|
GUIECP | ;EP
|
|
CLIN1 | ;
|
|
LOC() | ;EP - Return location name from file 4 based on DUZ(2).
|
|
ZIS1 | ;
|
|
CPHEAD1 | ;
|
|
TEST | ;
|
|
CPPRINT | ;EP - called from xbdbque
|
|
PROC | ;EP
|
Name | Field # of Occurrence |
---|---|
NOW^%DTC | BDMG+7, ENDLOG+1 |
^%ZIS | NT+6, ZISCP+2 |
^%ZISC | DRIVER+5 |
^%ZTLOAD | TSKMN+5, BDMG+20, TSKMNCP+5 |
PROCCY^BGP3D1 | PROC+19, PROC+52 |
PROC^BGP3DPA9 | DRIVER+2 |
PRINT^BGP3DPAW | DRIVER+4 |
PAUSE^BGP3DU | EP+21 |
JRNL^BGP3UTL | PROC+1 |
$$DEMOCHK^BGP3UTL2 | EP+20 |
TAXCHK^BGP3XTCN | EP+19 |
LIST^BSDAPI2 | PROC+27 |
^DIC | DIV+4, CLIN1+2, GETPAT1+3, SELPT+12, SELPT+16, EN2+1 |
FILE^DICN | BDMG+13 |
^DIE | ENDLOG+4, DUP+16 |
^DIK | DUP+7, PRE+2 |
IX1^DIK | GUIEP+10, GUIECP+9, DUP+8 |
^DIR | EP+15, EP+17, RTYPE+3, TEMP+2, DATES+4, DATES+6, ADDON+4, ADDON+9, CLIN+2, SELPT+8 , EOP+5, CPHEADER+2, CPDONE+2, DUP+3 |
TERM^VALM0 | EP+3 |
^XBFMK | EOJ+1, BDMG+18 |
GUIR^XBLM | GUIEP+4, GUIECP+3 |
EN^XBVK | EOJ+3 |
$$FMADD^XLFDT | DATES+11, BDMG+2, PROC+7, PROC+9, PROC+21, PROC+22 |
$$FMDIFF^XLFDT | DATES+7 |
$$FMTE^XLFDT | CPHEAD1+4 |
$$NOW^XLFDT | BDMG+10, BDMG+20 |
$$ADD^XPDMENU | POST+2 |
MES^XPDUTL | POST+3 |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DG(40.8 - [#40.8] | Classic Fileman Calls |
^SC - [#44] | Classic Fileman Calls |
^AUPNPAT - [#9000001] | Classic Fileman Calls |
^BGPGUIH - [#90549.19] | Classic Fileman Calls |
^BGPINDHC - [#90550.02] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^BGPCTRL - [#90241.01] | ENDDATE+4, CPPRINT+8, CPPRINT+10 |
^BGPCTRL("B" | EP+4, ENDDATE+3, CPPRINT+7 |
^BGPGUIH - [#90549.19] | GUIEP+8*, GUIEP+9*, GUIECP+7*, GUIECP+8* |
^BGPINDH("GPRA" | ENDDATE+2 |
^BGPINDHC - [#90550.02] | PRE+2 |
^BGPSITE - [#90241.02] | ZIS+2, PROC+4, PROC+5 |
^DIBT( | SELPT+14, PROC+17, PROC+18*, PROC+33, PROC+50, PROC+51*, EN2+3, DUP+6, DUP+7, DUP+8* , DUP+9, DUP+11, DUP+13! |
^DIBT("B" | PROC+17, PROC+33, PROC+50 |
^DIC(4 - [#4] | LOC+1 |
^DPT - [#2] | PROC+15, PROC+31, PROC+48 |
^SC - [#44] | PROC+39, PROC+40, PROC+41, PROC+42 |
^TMP($J | EOJ+4!, GUIEP+2!, GUIEP+5, GUIEP+6, GUIEP+12!, GUIECP+1!, GUIECP+4, GUIECP+5, GUIECP+11! |
^VA(200 - [#200] | USR+1, CPHEAD1+4 |
^XTMP("BGP3DPA9" | PROC+8!, PROC+9* |
^XUSEC("BGPZ PATIENT LISTS" | EP+16 |
Name | Line Occurrences |
---|---|
BDMG | TEST+1 |
CLIN | RTYPE+6, CLIN1+3, CLIN1+4, CLIN1+7 |
CLIN1 | CLIN1+9 |
CPDONE | CPPRINT+11 |
CPHEAD1 | CPHEADER+1 |
CPHEADER | CPPRINT+6, CPPRINT+9 |
DATES | TEMP+4, DATES+7, DATES+9 |
DIV | RTYPE+7 |
EN2 | DUP |
ENDLOG | GUIEP+11, GUIECP+10 |
EOJ | EP+1, EP+21, RTYPE+4, DATES+4, DATES+6, NT+7, DRIVER+6, TSKMN+5, BDMG+21, ZISCP+3 , TSKMNCP+5 |
GETPAT | RTYPE+8 |
NT | ENDDATE+16 |
PROC | GUIEP+1 |
RTYPE | RTYPE+6, RTYPE+7, RTYPE+8, RTYPE+9, TEMP+3, ADDON+2 |
SELPT | RTYPE+9 |
STMP | TEMP+5 |
TEMP | RTYPE+6, RTYPE+7, RTYPE+8, RTYPE+9, TEMP+6 |
TSKMN | ZIS1+1 |
TSKMNCP | ZISCP+5 |
ZIS | DATES+1 |
Name | Field # of Occurrence |
---|---|
^(0 | USR+1, LOC+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | BDMG+8, ENDLOG+2 |
%ZIS | NT+5!, NT+6*, ZISCP+1!, ZISCP+2* |
>> A | PROC+39*, PROC+40, PROC+41, PROC+42 |
>> BDMGIEN | BDMG+17* |
>> BGP3YE | PROC+7* |
BGPABD | DATES+2!, DATES+4*, DATES+7, DATES+9, DATES+11, PROC+21 |
>> BGPADDOD | ADDON+8*, ADDON+12*, PROC+42 |
BGPAED | DATES+2!, DATES+6*, DATES+7, DATES+9, PROC+22 |
>> BGPALLPT | ZIS+1* |
BGPAPPT | PROC+10!, PROC+23! |
BGPAPPT( | PROC+28, PROC+29, PROC+38, PROC+42!, PROC+44 |
BGPAPPTS | PROC+10! |
BGPAPPTS( | PROC+44*, PROC+46, PROC+47 |
>> BGPARRAY | PROC+25*, PROC+27 |
>> BGPASD | DATES+11* |
>> BGPBBD | ENDDATE+7*, ENDDATE+19* |
BGPBD | ENDDATE+5*, ENDDATE+10*, ENDDATE+17*, BDMG~, BDMG+2 |
>> BGPBED | ENDDATE+7*, ENDDATE+19* |
>> BGPBEN | ZIS+1* |
>> BGPCHSO | PROC+4* |
BGPCLN | CLIN+1*, CLIN+4*, CLIN+5!, CLIN+7!, CLIN1+3, CLIN1+5, CLIN1+6, CLIN1+7, BDMG~, PROC+24* , PROC+27 |
BGPCLN( | CLIN1+8* |
BGPCLN("DEV" | PROC+26* |
BGPCLN(0 | PROC+24 |
>> BGPCPLC | ENDDATE+15*, NT+1* |
>> BGPCPPL | ZIS+1*, BDMG+6* |
>> BGPCTRL | EP+4* |
>> BGPDATA | GUIEP+6*, GUIEP+7*, GUIEP+8, GUIECP+5*, GUIECP+6*, GUIECP+7 |
>> BGPDIVI | DIV+1*, DIV+6*, GETPAT1+1*, PROC+26 |
BGPED | ENDDATE+5*, ENDDATE+10*, ENDDATE+17*, BDMG~, PROC+7 |
BGPET | CPDONE+3! |
>> BGPGPRAH | PROC+2*, PROC+8 |
>> BGPGPRAJ | PROC+2*, PROC+8 |
BGPGPYR | CPDONE+3! |
>> BGPGUI | BDMG+3*, CPPRINT+4, CPPRINT+5, CPHEAD1+3 |
>> BGPGYR | CPPRINT+7*, CPPRINT+8, CPPRINT+10 |
>> BGPHOME | ZIS+2* |
BGPIEN | BDMG+4~, BDMG+15*, BDMG+16*, BDMG+17, GUIEP+8, GUIEP+9, GUIEP+10, GUIECP+7, GUIECP+8, GUIECP+9 , ENDLOG+3 |
>> BGPIISO | PROC+19*, PROC+52* |
>> BGPIND( | ENDDATE+2* |
>> BGPINDH | ZIS+1*, BDMG+6* |
>> BGPIOSL | CPPRINT+4* |
>> BGPISSO | PROC+52* |
>> BGPISST | PROC+19*, PROC+52* |
>> BGPLIST | ENDDATE+14*, NT* |
BGPM | CPDONE+3! |
>> BGPMJ | SELPT+14*, SELPT+15 |
>> BGPNGR09 | ENDDATE+13* |
BGPNOW | BDMG+4~, BDMG+8*, BDMG+11, ENDLOG+2*, ENDLOG+3 |
>> BGPOD | PROC+22*, PROC+27 |
BGPOPT | BDMG+4~, BDMG+5*, BDMG+11 |
BGPPATS | GETPAT+1!, GETPAT1+4, SELPT+1!, SELPT+14*, SELPT+17*, SELPT+19! |
BGPPATS( | GETPAT1+5*, SELPT+14*, SELPT+17*, PROC+13, PROC+14, PROC+30 |
BGPPATS("" | SELPT+20 |
>> BGPPBD | ENDDATE+6*, ENDDATE+11*, ENDDATE+18* |
>> BGPPED | ENDDATE+6*, ENDDATE+11*, ENDDATE+18* |
>> BGPPER | ENDDATE+8*, ENDDATE+12* |
>> BGPPG | CPPRINT+3*, CPHEADER+1, CPHEAD1+1, CPHEAD1+2*, CPHEAD1+3, CPHEAD1+4 |
BGPQ | ADDON+1!, ADDON+2, ADDON+5*, ADDON+10*, ADDON+11*, CPPRINT+9, CPHEADER+2* |
>> BGPQTR | ENDDATE+8* |
BGPQUIT | RTYPE+6, RTYPE+7, RTYPE+8, RTYPE+9, DIV+1*, DIV+5*, CLIN+1*, CLIN+3*, GETPAT1+1*, GETPAT1+4* , SELPT+20*, EN1+1!, EN2+2* |
>> BGPRT1 | RTYPE+1*, RTYPE+5*, RTYPE+6, RTYPE+7, RTYPE+8, RTYPE+9, DATES+1, ADDON+2, PROC+12, PROC+26 , PROC+30, PROC+36, PROC+52 |
>> BGPRT2 | ADDON+6*, ADDON+7, PROC+36 |
>> BGPRTYPE | ZIS+1*, BDMG+6* |
BGPS | CPDONE+3! |
>> BGPSD | BDMG+2*, PROC+21*, PROC+22 |
>> BGPSMI | SELPT+2*, SELPT+14*, SELPT+17* |
>> BGPSNAM | EN2+3*, DUP+8, DUP+12 |
>> BGPSOX | PROC+13*, PROC+14, PROC+46*, PROC+47 |
BGPSTMP | TEMP+1*, TEMP+6, PROC+18, PROC+51, EN1+1*, EN2+3*, DUP!, DUP+6, DUP+7, DUP+8 , DUP+9, DUP+11, DUP+13, DUP+14, DUP+15 |
>> BGPSTN | DUP+7* |
>> BGPTA | PROC+11*, PROC+44* |
BGPTS | CPDONE+3! |
>> BGPURBAN | PROC+5* |
BGPX | CPPRINT+8*, CPPRINT+10, CPDONE+3!, PRE+1~, PRE+2* |
>> BGPYGPU | ZIS+1*, BDMG+6* |
>> BGPYRPTH | ZIS+1*, BDMG+6* |
>> C | GUIEP+5*, GUIEP+8*, GUIEP+9, GUIECP+4*, GUIECP+7*, GUIECP+8, PROC+38*, PROC+39, PROC+40, PROC+41 , PROC+42 |
>> D | PROC+38*, PROC+39, PROC+40, PROC+41, PROC+42 |
D0 | BDMG+9! |
DA | RTYPE+3!, TEMP+2!, ADDON+4!, ADDON+9!, CLIN+2!, BDMG+14!, GUIEP+10*, GUIECP+9*, ENDLOG+3*, ENDLOG+5! , DUP+3!, DUP+7*, DUP+8*, DUP+15*, DUP+17!, PRE+1~, PRE+2* |
DD | BDMG+9! |
DFN | EOJ+2!, PROC+14*, PROC+15, PROC+17, PROC+18, PROC+47*, PROC+48, PROC+50, PROC+51 |
DFOUT | EOP+4! |
>> DHIT | DUP+14* |
DIADD | BDMG+12*, BDMG+14! |
DIC | EOJ+2!, DIV+2!, DIV+3*, DIV+4!, CLIN1+1*, CLIN1+2!, GETPAT1+2!, GETPAT1+3*!, SELPT+12!*, SELPT+16!* , BDMG+9!, BDMG+12*, BDMG+14!, EN2!*, EN2+1! |
DIC("A" | CLIN1+1*, EN2* |
DIC("DR" | BDMG+11* |
DIC("S" | CLIN1+2*, SELPT+12*, EN2* |
DIC(0 | DIV+3*, CLIN1+1*, GETPAT1+3*, SELPT+12*, SELPT+16*, BDMG+12*, EN2* |
DIE | ENDLOG+3*, ENDLOG+5!, DUP+15*, DUP+17! |
>> DIK | GUIEP+10*, GUIECP+9*, DUP+7*, DUP+8*, PRE+2* |
DIR | EP+15!, EP+17!, RTYPE+3!, TEMP+2!, DATES+3!, DATES+5!, ADDON+4!, ADDON+9!, EOJ+2!, CLIN+2! , SELPT+8!, EOP+3!, CPHEADER+2!, CPDONE+1!, CPDONE+2!, DUP+3! |
DIR("?" | SELPT+5*, SELPT+6*, SELPT+7* |
DIR("??" | SELPT+7* |
DIR("A" | EP+15*, EP+17*, RTYPE+3*, TEMP+2*, DATES+3*, DATES+5*, ADDON+4*, ADDON+9*, CLIN+2*, SELPT+4* , EOP+5*, CPDONE+2*, DUP+3* |
DIR("B" | RTYPE+3*, TEMP+2*, ADDON+4*, CLIN+2*, DUP+3* |
DIR(0 | EP+15*, EP+17*, RTYPE+2*, TEMP+2*, DATES+3*, DATES+5*, ADDON+3*, ADDON+9*, CLIN+2*, SELPT+4* , EOP+5*, CPHEADER+2*, CPDONE+2*, DUP+3* |
DIRUT | RTYPE+4, TEMP+3, ADDON+5, ADDON+10, CLIN+3, EOP+4!, CPDONE+2*, DUP+4 |
DLAYGO | BDMG+12*, BDMG+14!, EN2!*, EN2+1! |
DLOUT | EOP+4! |
DR | ENDLOG+3*, ENDLOG+5!, DUP+15*, DUP+17! |
DT | ADDON+9, GUIEP+9, GUIECP+8, PROC+9, CPHEAD1+4, DUP+15 |
DTOUT | EOP+4!, CPHEADER+2 |
DUOUT | EOP+4!, CPDONE+2 |
DUZ | EP+16, BDMG+10, BDMG+11, USR+1, CPHEAD1+4, DUP+15 |
DUZ(2 | ZIS+2, PROC+4, PROC+5, LOC+1 |
>> G | PROC+35*, PROC+39*, PROC+42*, PROC+43 |
IO | DRIVER+3, TSKMN+1, CPPRINT+1, CPHEADER+2, CPDONE+2, TSKMNCP+1 |
IO("DOC" | TSKMN+2, TSKMNCP+2 |
IO("Q" | ZIS1+1, ZISCP+5 |
IO("S" | EOP+2 |
IO(0 | CPHEADER+2, CPDONE+2 |
>> IOCPU | TSKMN+5, TSKMNCP+5 |
IOF | EP+2, CPHEAD1+1 |
IOM | TSKMN+3, GUIEP+3*, GUIECP+2*, CTR+1, TSKMNCP+3 |
ION | TSKMN+1, TSKMNCP+1 |
IOP | NT+5!, ZISCP+1! |
IOSL | TSKMN+3, CPPRINT+4, CPPRINT+5*, CPPRINT+9, TSKMNCP+3 |
IOST | TSKMN+1, EOP+1, CPHEADER+2, CPDONE+2, TSKMNCP+1 |
>> IOT | EOP+2 |
>> POP | NT+7, ZISCP+3 |
>> Q | DUP, DUP+1*, DUP+4*, DUP+5* |
U | ZIS+2, ENDDATE+5, ENDDATE+6, ENDDATE+7, ENDDATE+8, SELPT+3, SELPT+9, SELPT+19, PROC+4, PROC+5 , PROC+15, PROC+29, PROC+31, PROC+38, PROC+41, PROC+42, PROC+47, PROC+48, USR+1, LOC+1 , CPHEAD1+4, EN2+3, DUP, DUP+7 |
X | EP+20*, EP+21, ENDDATE+2*, ENDDATE+3*, ENDDATE+4, CLIN1+4, CLIN1+7, SELPT+3, SELPT+9*, SELPT+10 , SELPT+11*, SELPT+12, SELPT+19, BDMG+10*, GUIEP+5*, GUIEP+6, GUIEP+8, GUIECP+4*, GUIECP+5, GUIECP+7 , PROC+17*, PROC+28*, PROC+29, PROC+38, PROC+42, PROC+44, PROC+50*, CTR~, CTR+1, POST+1~ , POST+2*, POST+3 |
Y | RTYPE+5, TEMP+4, DATES+4, DATES+6, ADDON+6, ADDON+11, ADDON+12, ENDDATE+4*, ENDDATE+5, ENDDATE+6 , ENDDATE+7, ENDDATE+8, DIV+5, DIV+6, CLIN+4, CLIN1+3, CLIN1+5, CLIN1+6, CLIN1+8, GETPAT1+4 , GETPAT1+5, SELPT+13, SELPT+14*, SELPT+17, BDMG+15, BDMG+16, PROC+29*, PROC+30, PROC+31, PROC+33 , PROC+41, CTR~, CTR+1, CPHEADER+2, EN2+2, EN2+3, DUP!, DUP+5 |
>> Z | PROC+33* |
>> ZTCPU | TSKMN+5*, TSKMNCP+5* |
>> ZTDESC | TSKMN+5*, BDMG+20*, TSKMNCP+5* |
>> ZTDTH | TSKMN+5*, BDMG+20*, TSKMNCP+5* |
>> ZTIO | TSKMN+1*, TSKMN+2*, TSKMN+3*, BDMG+20*, TSKMNCP+1*, TSKMNCP+2*, TSKMNCP+3* |
>> ZTQUEUED | DRIVER+1, EOP+2, CPPRINT+2 |
>> ZTREQ | DRIVER+1*, GUIEP+13*, GUIECP+12*, CPPRINT+2* |
>> ZTRTN | TSKMN+5*, BDMG+20*, TSKMNCP+5* |
ZTSAVE | TSKMN+4!, BDMG+19!, TSKMNCP+4! |
ZTSAVE("*" | BDMG+19* |
ZTSAVE("BGP*" | TSKMN+4*, TSKMNCP+4* |