BGP1DPA9 ; IHS/CMI/LAB - COMP NATIONAL GPRA FOR PTS W/APPT 03 Jun 2011 2:54 PM ; 09 Sep 2011 10:30 AM
Source file <BGP1DPA9.m>
| Package | Total | Call Graph | 
|---|---|---|
| IHS GPRA Information System | 7 | PAUSE^BGP1CL PROCCY^BGP1D1 PROC^BGP1DPA9 PRINT^BGP1DPAW JRNL^BGP1UTL $$DEMOCHK^BGP1UTL2 TAXCHK^BGP1XTCN | 
| 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 | 3 | BGP1DPA9 BGP1GFO9 BGPM5CHK | 
| 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 | 
| PAUSE^BGP1CL | EP+21 | 
| PROCCY^BGP1D1 | PROC+19, PROC+52 | 
| PROC^BGP1DPA9 | DRIVER+2 | 
| PRINT^BGP1DPAW | DRIVER+4 | 
| JRNL^BGP1UTL | PROC+1 | 
| $$DEMOCHK^BGP1UTL2 | EP+20 | 
| TAXCHK^BGP1XTCN | 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 | 
| ^BGPINDBC - [#90545.02] | Classic Fileman Calls | 
| ^BGPGUIB - [#90546.08] | 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 | 
| ^BGPGUIB - [#90546.08] | GUIEP+8*, GUIEP+9*, GUIECP+7*, GUIECP+8* | 
| ^BGPINDB("GPRA" | ENDDATE+2 | 
| ^BGPINDBC - [#90545.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("BGP1DPA9" | 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* | 
| >> BGP1GPU | ZIS+1*, BDMG+6* | 
| >> BGP1RPTH | ZIS+1*, BDMG+6* | 
| >> 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* | 
| >> BGPCHWC | PROC+3* | 
| 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* | 
| >> BGPINDB | 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* | 
| >> 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* |