BDWBHL ; IHS/CMI/LAB - BDW Populate Various DW1 HL7 Segments ; [ 04/05/2007 2:56 PM ]
Source file <BDWBHL.m>
| Package | Total | Call Graph | 
|---|---|---|
| Data Warehouse Export System | 4 | (AUTOSEND,BULL,CPT,HF,IFC,LAB,MSR,PED,RESETFLG,SKT,XAM,ZIM)^BDWBHL1 RST4AF^BDWRDR (DENT,POVS)^BDWUTIL (MED,PROC,PROV)^BDWUTIL1 | 
| Kernel | 4 | ^%ZISC $$OPEN^%ZISH ^%ZTLOAD ($$FMADD,$$NOW)^XLFDT | 
| VA Fileman | 3 | NOW^%DTC ^DIE $$GET1^DIQ | 
| IHS Generic Interface System | 1 | $$DATE^INHUT | 
| IHS VA Utilities | 1 | ($$VAL,$$VALI)^XBDIQ1 | 
| Package | Total | Caller Graph | 
|---|---|---|
| IHS Generic Interface System | 5 | IS00006 IS00007 IS00008 IS00009 IS00023 | 
| Data Warehouse Export System | 1 | BDWRDR | 
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| SKT | ;EP - populate the dw1 OBX skin test segment | |
| LPINTHU(BHLUIEN) | ||
| HDR | ;-- generate the header record | |
| GETDIR | ;get export directory | |
| HFS | ;-- task the file to the host system | |
| BULL | ;now send mailman message to user who queued the job | |
| MSR | ;EP - populate the dw1 OBX measurement segment | |
| CHKPFLG(DATA) | ;check to see if we do a ZPR segment | |
| ZDN | ;EP - populate the dw1 ZDN and ZDP segments | |
| HFS1 | ;EP - called from taskman | |
| IFC | ;EP - populate the dw1 OBX infant feeding choice segment | |
| PED | ;EP - populate the dw1 OBX patient education segment | |
| CPT | ;-- populate the dw1 CPT exam segment | |
| ZVP | ;EP - populate the dw1 ZVP segment | |
| HF | ;EP - populate the dw1 OBX health factors segment | |
| ZRL | ;EP - generate ZRL segment | |
| FLG(BDWSEG,BDWIEN) | ;EP -- return status flag based on segment | |
| SETZTS6(PFL,PIEN,QCNT) | ;-- set ZTS-6 with actual counts | |
| TRL | ;-- generate the trailer record | |
| ZMD | ;EP - populate the dw1 ZMD segment | |
| DG1 | ;EP - populate the dw1 DG1 and ZDX segments | |
| PR1 | ;EP - populate the dw1 PR1 and ZPR segments | |
| XAM | ;EP - populate the dw1 OBX exam segment | |
| ZIM | ;EP - populate the dw1 ZIM segment | |
| FTP | ; | |
| QCNT(DEST) | ;-- let's loop through and get a quick count of records | |
| LAB | ;-- populate the dw1 OBX lab segment | |
| BQ(BHLP) | ;-- return blood quantum | |
| HFSA(DEST,BHLHDIR,BHLHFNM) | ;EP - export from this destination | |
| ZRC | ;EP - generate ZRC segment | |
| MAIN | ;EP - this is the main routine driver | |
| DELAY(IDA,IA) | ;-- determine the delay based on records | 
| Name | Field # of Occurrence | 
|---|---|
| NOW^%DTC | HFS1+16 | 
| ^%ZISC | HFSA+7 | 
| $$OPEN^%ZISH | HFSA+1 | 
| ^%ZTLOAD | HFS+10 | 
| AUTOSEND^BDWBHL1 | HFSA+20 | 
| BULL^BDWBHL1 | BULL+1 | 
| CPT^BDWBHL1 | CPT+1 | 
| HF^BDWBHL1 | HF+1 | 
| IFC^BDWBHL1 | IFC+1 | 
| LAB^BDWBHL1 | LAB+1 | 
| MSR^BDWBHL1 | MSR+1 | 
| PED^BDWBHL1 | PED+1 | 
| RESETFLG^BDWBHL1 | HFS1+10 | 
| SKT^BDWBHL1 | SKT+1 | 
| XAM^BDWBHL1 | XAM+1 | 
| ZIM^BDWBHL1 | ZIM+1 | 
| RST4AF^BDWRDR | HFS1+9 | 
| DENT^BDWUTIL | ZDN+3 | 
| POVS^BDWUTIL | DG1+3 | 
| MED^BDWUTIL1 | ZMD+3 | 
| PROC^BDWUTIL1 | PR1+4 | 
| PROV^BDWUTIL1 | ZVP+3 | 
| ^DIE | HFSA+17 | 
| $$GET1^DIQ | HDR+5, HDR+8, HDR+11, HDR+14, HDR+17, HDR+18, HDR+22, HDR+25, HDR+26, TRL+3 , TRL+4, TRL+5, TRL+6, TRL+7, TRL+8, TRL+13, TRL+14, TRL+15, TRL+16, TRL+17 , TRL+18, TRL+28, TRL+29, DELAY+3 | 
| $$DATE^INHUT | PR1+11, HDR+8, HDR+11, HDR+14, HDR+17, HDR+18, HDR+22, HDR+25, HDR+26 | 
| $$VAL^XBDIQ1 | HFS+5, HFS+6 | 
| $$VALI^XBDIQ1 | HFS+2 | 
| $$FMADD^XLFDT | HFS+9 | 
| $$NOW^XLFDT | HFS+9 | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
 | 
| Routine Call | 
 | 
| FileNo | Call Tags | 
|---|---|
| ^INTHU - [#4001] | Classic Fileman Calls | 
| ^BDWXLOG - [#90213] | GET1^DIQ | 
| ^BDWRBLOG - [#90215] | GET1^DIQ | 
| Name | Line Occurrences (* Changed, ! Killed) | 
|---|---|
| ^AGFAC - [#9009061] | ZRC+8 | 
| ^AUPNDWAF - [#9000003.3] | FLG+10, FLG+11, FLG+14, FLG+15, FLG+18, FLG+19, FLG+22, FLG+23, FLG+26, FLG+27 | 
| ^AUPNPAT - [#9000001] | ZRC+4, ZRC+6, BQ+5, FLG+3, FLG+7, FLG+9, FLG+13, FLG+17, FLG+21, FLG+25 | 
| ^AUTTLOC - [#9999999.06] | ZRC+10, HDR+10, HDR+16, HDR+24, HFS1+15 | 
| ^AUTTSITE(1 | HDR+10, HDR+16, HDR+24, TRL+9, TRL+19, TRL+30, GETDIR+1, HFSA+9, HFS1+15 | 
| ^BDWBLOG( | SETZTS6+7 | 
| ^BDWRBLOG - [#90215] | SETZTS6+11 | 
| ^BDWTMP( | HFSA+3, HFSA+14, HFSA+19!, QCNT+3 | 
| ^BDWXLOG - [#90213] | TRL+22, TRL+25, HFS1+9, HFS1+10, SETZTS6+3 | 
| ^DIC(4 - [#4] | TRL+9, TRL+19, TRL+30 | 
| ^DPT - [#2] | ZRL+3, ZRL+4 | 
| ^INLHDEST( | HDR+2!, HFS1+4! | 
| ^INRHD("B" | HDR+2, HFS1+2 | 
| ^INTHU - [#4001] | LPINTHU+1, LPINTHU+2, SETZTS6+16, SETZTS6+17, SETZTS6+18* | 
| ^INTHU("AT" | HFSA+4, HFSA+15, QCNT+4, SETZTS6+5, SETZTS6+9, SETZTS6+13 | 
| ^XTV(8989.3 - [#8989.3] | GETDIR+1 | 
| Name | Line Occurrences | 
|---|---|
| $$CHKPFLG | PR1+20 | 
| $$DELAY | HFS+9 | 
| $$QCNT | HFS1+6 | 
| CPT | MAIN+2 | 
| DG1 | MAIN+2 | 
| GETDIR | HFS1+12 | 
| HF | MAIN+2 | 
| HFS | TRL+11, TRL+26, TRL+32 | 
| HFSA | HFS1+20 | 
| IFC | MAIN+2 | 
| LAB | MAIN+2 | 
| LPINTHU | HFSA+6 | 
| MSR | MAIN+2 | 
| PED | MAIN+2 | 
| PR1 | MAIN+2 | 
| SETZTS6 | HFS1+7 | 
| SKT | MAIN+2 | 
| XAM | MAIN+2 | 
| ZDN | MAIN+2 | 
| ZIM | MAIN+2 | 
| ZMD | MAIN+2 | 
| ZVP | MAIN+2 | 
| >> | Not killed explicitly | 
| * | Changed | 
| ! | Killed | 
| ~ | Newed | 
| Name | Field # of Occurrence | 
|---|---|
| >> % | HFS1+18 | 
| BDWAFNM | ZRL+7*, ZRL+9, ZRL+12! | 
| BDWALNM | ZRL+6*, ZRL+9, ZRL+12! | 
| BDWAMI | ZRL+8*, ZRL+9, ZRL+12! | 
| BDWASTR | ZRL+9*, ZRL+11, ZRL+12! | 
| BDWASU | HFS1+14~, HFS1+15*, HFS1+19 | 
| BDWC | TRL+21~*, TRL+23*, TRL+24, TRL+25 | 
| >> BDWCD | FLG+6*, FLG+8, FLG+10*, FLG+11*, FLG+12, FLG+14*, FLG+15*, FLG+16, FLG+18*, FLG+19* , FLG+20, FLG+22*, FLG+23*, FLG+24, FLG+26*, FLG+27*, FLG+28 | 
| BDWCNT | ZVP+2*, ZVP+5*, ZVP+8*, ZVP+9, ZVP+10, ZVP+11, ZVP+12, ZVP+13, ZVP+14, ZVP+15 , ZVP+16, ZVP+17!, DG1+2*, DG1+6*, DG1+7, DG1+8, DG1+10, DG1+11, DG1+12, DG1+13 , DG1+14, DG1+16!, PR1+3*, PR1+7*, PR1+8, PR1+9, PR1+10, PR1+11, PR1+12, PR1+13 , PR1+14, PR1+15, PR1+16, PR1+17, PR1+18, PR1+19, PR1+21, PR1+22, PR1+23!, ZDN+2* , ZDN+6*, ZDN+7, ZDN+8, ZDN+9, ZDN+10, ZDN+11, ZDN+12, ZDN+13, ZDN+14, ZDN+15 , ZDN+16, ZDN+17, ZDN+18, ZDN+19!, ZMD+2*, ZMD+6*, ZMD+7, ZMD+8, ZMD+9, ZMD+10 , ZMD+11, ZMD+12, ZMD+13!, ZRC+3*, ZRC+5*, ZRC+9, ZRC+10, ZRC+11, ZRC+12, ZRC+13! , ZRL+2*, ZRL+5*, ZRL+10, ZRL+11, ZRL+12!, QCNT+1~, QCNT+2*, QCNT+6*, QCNT+7 | 
| BDWDA | ZVP+6*, ZVP+7, ZVP+17!, DG1+4*, DG1+5, DG1+16!, PR1+5*, PR1+6, PR1+23!, ZDN+4* , ZDN+5, ZDN+19!, ZMD+4*, ZMD+5, ZMD+13!, ZRC+4*, ZRC+6, ZRC+7, ZRC+13!, ZRL+3* , ZRL+4, ZRL+12!, TRL+21~, TRL+22*, TRL+25, QCNT+1~, QCNT+3*, QCNT+4 | 
| BDWDATA | ZVP+7*, ZVP+11, ZVP+12, ZVP+13, ZVP+14, ZVP+15, ZVP+16, ZVP+17!, DG1+5*, DG1+10 , DG1+11, DG1+12, DG1+13, DG1+14, DG1+16!, PR1+6*, PR1+10, PR1+11, PR1+12, PR1+13 , PR1+14, PR1+15, PR1+16, PR1+17, PR1+18, PR1+19, PR1+20, PR1+23!, ZDN+5*, ZDN+10 , ZDN+11, ZDN+12, ZDN+13, ZDN+14, ZDN+15, ZDN+17, ZDN+18, ZDN+19!, ZMD+5*, ZMD+9 , ZMD+10, ZMD+11, ZMD+12, ZMD+13!, ZRC+6*, ZRC+7*, ZRC+8, ZRC+10, ZRC+11, ZRC+12 , ZRL+4*, ZRL+6, ZRL+7, ZRL+8 | 
| BDWDESC | HFS+1~, HFS+5*, HFS+6*, HFS+7* | 
| BDWDEST | HDR+2~*, HFS1+1~, HFS1+2*, HFS1+3, HFS1+4, HFS1+6, HFS1+10, HFS1+20 | 
| BDWDTS | HFS1+17~, HFS1+18*, HFS1+19 | 
| BDWFLG | FLG+5~, FLG+6*, FLG+7*, FLG+9*, FLG+10, FLG+11, FLG+13*, FLG+14, FLG+15, FLG+17* , FLG+18, FLG+19, FLG+21*, FLG+22, FLG+23, FLG+25*, FLG+26, FLG+27 | 
| BDWHDIR | GETDIR+1*, GETDIR+2*, HFSA+11, HFS1+1~, HFS1+13, HFS1+20 | 
| BDWHFNM | HFS1+1~, HFS1+19*, HFS1+20 | 
| BDWIEN | FLG~, FLG+3, FLG+7, FLG+9, FLG+10, FLG+11, FLG+13, FLG+14, FLG+15, FLG+17 , FLG+18, FLG+19, FLG+21, FLG+22, FLG+23, FLG+25, FLG+26, FLG+27 | 
| >> BDWNOSLA | HFSA+11*, HFSA+12 | 
| >> BDWPAFN | HFSA+12* | 
| BDWPFL | HFS+1~, HFS+3*, HFS1+7, HFS1+9, HFS1+10 | 
| BDWPIEN | HFS+1~, HFS+4*, HFS1+7, HFS1+9, HFS1+10 | 
| BDWQCNT | HFS1+5~, HFS1+6*, HFS1+7 | 
| BDWRCNT | DELAY+2~, DELAY+3*, DELAY+4, DELAY+5, DELAY+6 | 
| BDWSEG | FLG~, FLG+8, FLG+12, FLG+16, FLG+20, FLG+24 | 
| >> BDWSLASH | HFSA+9*, HFSA+10*, HFSA+12 | 
| BDWUSER | HFS+1~, HFS+2* | 
| BHLHDIR | HFSA~, HFSA+1, HFSA+12 | 
| BHLHFNM | HFSA~, HFSA+1, HFSA+12 | 
| BHLP | BQ~, BQ+5 | 
| BHLPVAL | BQ+1!, BQ+4*, BQ+5*, BQ+6, BQ+7 | 
| >> BHLU | HFSA+4*, HFSA+5, HFSA+6, HFSA+15*, HFSA+16, HFSA+17 | 
| >> BHLUDA | LPINTHU+1*, LPINTHU+2 | 
| BHLUIEN | LPINTHU~, LPINTHU+1, LPINTHU+2 | 
| >> BHLVIEN | ZVP+3, DG1+3, PR1+4, ZDN+3, ZMD+3 | 
| BHLX | BQ+2~, BQ+3*, BQ+6*, BQ+7, BQ+9, HFSA+3*, HFSA+4, HFSA+14*, HFSA+15 | 
| BHLY | BQ+2~, BQ+3*, BQ+7*, BQ+8, BQ+9*, BQ+10 | 
| DA | HFSA+17*! | 
| DATA | CHKPFLG~, CHKPFLG+4 | 
| DEN | ZDN+1!, ZDN+3, ZDN+19! | 
| DEN( | ZDN+4, ZDN+5 | 
| DEST | HFSA~, HFSA+3, HFSA+14, HFSA+19, QCNT~, QCNT+3 | 
| >> DFN | ZRC+4, ZRC+6, ZRL+3, ZRL+4 | 
| DIE | HFSA+17*! | 
| DR | HFSA+17*! | 
| F | HFS+1~ | 
| FL | CHKPFLG+1~, CHKPFLG+2*, CHKPFLG+4*, CHKPFLG+5 | 
| G | FLG+2~, FLG+3*, FLG+4 | 
| I | CHKPFLG+1~, CHKPFLG+3*, CHKPFLG+4 | 
| IA | DELAY~, DELAY+1, DELAY+3 | 
| IDA | DELAY~, DELAY+3 | 
| >> INA("BACKLOAD" | FLG+1 | 
| >> INA("BDW1BHS11" | HDR+10*, HDR+16*, HDR+24* | 
| >> INA("BDW1BHS7" | HDR+8*, HDR+14*, HDR+22* | 
| >> INA("BDW1BHS9" | HDR+9*, HDR+15*, HDR+23* | 
| >> INA("BDW1BTS1" | TRL+8*, TRL+18*, TRL+29* | 
| >> INA("BDW1BTS2" | TRL+9*, TRL+19*, TRL+30* | 
| >> INA("BDW1BTS3" | TRL+10*, TRL+20*, TRL+31* | 
| >> INA("BDW1DG11" | DG1+8* | 
| >> INA("BDW1DG13" | DG1+10* | 
| >> INA("BDW1NTE3" | TRL+25* | 
| >> INA("BDW1PR11" | PR1+9* | 
| >> INA("BDW1PR111" | PR1+12* | 
| >> INA("BDW1PR13" | PR1+10* | 
| >> INA("BDW1PR15" | PR1+11* | 
| >> INA("BDW1ZDN1" | ZDN+9* | 
| >> INA("BDW1ZDN2" | ZDN+10* | 
| >> INA("BDW1ZDN3" | ZDN+11* | 
| >> INA("BDW1ZDN4" | ZDN+12* | 
| >> INA("BDW1ZDN5" | ZDN+13* | 
| >> INA("BDW1ZDN6" | ZDN+14* | 
| >> INA("BDW1ZDN7" | ZDN+15* | 
| >> INA("BDW1ZDP1" | ZDN+16* | 
| >> INA("BDW1ZDP2" | ZDN+17* | 
| >> INA("BDW1ZDP3" | ZDN+18* | 
| >> INA("BDW1ZDX1" | DG1+11* | 
| >> INA("BDW1ZDX4" | DG1+12* | 
| >> INA("BDW1ZDX6" | DG1+13* | 
| >> INA("BDW1ZDX7" | DG1+14* | 
| >> INA("BDW1ZHS1" | HDR+11*, HDR+17*, HDR+25* | 
| >> INA("BDW1ZHS2" | HDR+11*, HDR+18*, HDR+26* | 
| >> INA("BDW1ZHS3" | HDR+12*, HDR+19*, HDR+20*, HDR+27* | 
| >> INA("BDW1ZHS4" | HDR+4* | 
| >> INA("BDW1ZHS5" | HDR+5* | 
| >> INA("BDW1ZHS6" | HDR+6* | 
| >> INA("BDW1ZMD1" | ZMD+8* | 
| >> INA("BDW1ZMD2" | ZMD+9* | 
| >> INA("BDW1ZMD3" | ZMD+10* | 
| >> INA("BDW1ZMD4" | ZMD+11* | 
| >> INA("BDW1ZMD5" | ZMD+12* | 
| >> INA("BDW1ZPR10" | PR1+16* | 
| >> INA("BDW1ZPR11" | PR1+17* | 
| >> INA("BDW1ZPR12" | PR1+18* | 
| >> INA("BDW1ZPR13" | PR1+19*, PR1+21* | 
| >> INA("BDW1ZPR5" | PR1+13* | 
| >> INA("BDW1ZPR8" | PR1+14* | 
| >> INA("BDW1ZPR9" | PR1+15* | 
| >> INA("BDW1ZRC6" | ZRC+10* | 
| >> INA("BDW1ZRC7" | ZRC+11* | 
| >> INA("BDW1ZRC8" | ZRC+12* | 
| >> INA("BDW1ZRL6" | ZRL+11* | 
| >> INA("BDW1ZTS1" | TRL+3*, TRL+13* | 
| >> INA("BDW1ZTS2" | TRL+4*, TRL+5, TRL+14*, TRL+15 | 
| >> INA("BDW1ZTS3" | TRL+5*, TRL+15* | 
| >> INA("BDW1ZTS4" | TRL+6*, TRL+16* | 
| >> INA("BDW1ZTS5" | TRL+7*, TRL+17*, TRL+28* | 
| >> INA("BDW1ZVP1" | ZVP+5*, ZVP+10* | 
| >> INA("BDW1ZVP2" | ZVP+11* | 
| >> INA("BDW1ZVP3" | ZVP+12* | 
| >> INA("BDW1ZVP4" | ZVP+13* | 
| >> INA("BDW1ZVP5" | ZVP+14* | 
| >> INA("BDW1ZVP6" | ZVP+15* | 
| >> INA("BDW1ZVP7" | ZVP+16* | 
| >> INA("FILE" | HDR+5, HDR+7, HDR+13, HDR+21, TRL+2, TRL+12, TRL+27, HFS+2, HFS+3, HFS+5 , HFS+6, HFS+7, HFS+9 | 
| >> INDA | HDR+5, HDR+8, HDR+9, HDR+10, HDR+11, HDR+12, HDR+14, HDR+15, HDR+16, HDR+17 , HDR+18, HDR+19, HDR+20, HDR+22, HDR+23, HDR+24, HDR+25, HDR+26, HDR+27, TRL+3 , TRL+4, TRL+5, TRL+6, TRL+7, TRL+8, TRL+13, TRL+14, TRL+15, TRL+16, TRL+17 , TRL+18, TRL+22, TRL+25, TRL+28, TRL+29, HFS+2, HFS+4, HFS+5, HFS+6, HFS+9 | 
| >> INDA("DG1" | DG1+7* | 
| >> INDA("NTE" | TRL+24* | 
| >> INDA("PR1" | PR1+8* | 
| >> INDA("ZDN" | ZDN+7* | 
| >> INDA("ZDP" | ZDN+8* | 
| >> INDA("ZDX" | DG1+15* | 
| >> INDA("ZMD" | ZMD+7* | 
| >> INDA("ZPR" | PR1+22* | 
| >> INDA("ZRC" | ZRC+2!, ZRC+9* | 
| >> INDA("ZRL" | ZRL+1!, ZRL+10* | 
| >> INDA("ZVP" | ZVP+5*, ZVP+9* | 
| >> INQUE | MAIN+1*, ZRC+1*, HDR+1*, TRL+1* | 
| IO | LPINTHU+2 | 
| LDA | SETZTS6+15~, SETZTS6+16*, SETZTS6+17, SETZTS6+18 | 
| MED | ZMD+1!, ZMD+3, ZMD+13! | 
| MED( | ZMD+4, ZMD+5 | 
| PFL | SETZTS6~, SETZTS6+2, SETZTS6+6, SETZTS6+10 | 
| PFLG | PR1+2~, PR1+20*, PR1+22 | 
| PIEN | SETZTS6~, SETZTS6+3, SETZTS6+7, SETZTS6+11 | 
| POV | DG1+1!, DG1+3, DG1+16! | 
| POV( | DG1+4, DG1+5 | 
| PRC | PR1+1!, PR1+4, PR1+23! | 
| PRC( | PR1+5, PR1+6 | 
| PRV | ZVP+1!, ZVP+3, ZVP+17! | 
| PRV( | ZVP+6, ZVP+7 | 
| PRV(1 | ZVP+4 | 
| QCNT | SETZTS6~, SETZTS6+18 | 
| TRL | SETZTS6+1~, SETZTS6+3*, SETZTS6+4, SETZTS6+5*, SETZTS6+7*, SETZTS6+8, SETZTS6+9*, SETZTS6+11*, SETZTS6+12, SETZTS6+13* , SETZTS6+14, SETZTS6+16, SETZTS6+17, SETZTS6+18 | 
| U | ZVP+11, ZVP+12, ZVP+13, ZVP+14, ZVP+15, ZVP+16, DG1+10, DG1+11, DG1+12, DG1+13 , DG1+14, PR1+10, PR1+11, PR1+12, PR1+13, PR1+14, PR1+15, PR1+16, PR1+17, PR1+18 , PR1+19, CHKPFLG+4, ZDN+10, ZDN+11, ZDN+12, ZDN+13, ZDN+14, ZDN+15, ZDN+17, ZDN+18 , ZMD+9, ZMD+10, ZMD+11, ZMD+12, ZRC+7, ZRC+8, ZRC+10, ZRC+11, ZRC+12, ZRL+4 , ZRL+9, HDR+10, HDR+16, HDR+24, TRL+9, TRL+19, TRL+30, BQ+5, FLG+3, FLG+9 , FLG+10, FLG+11, FLG+13, FLG+14, FLG+15, FLG+17, FLG+18, FLG+19, FLG+21, FLG+22 , FLG+23, FLG+25, FLG+26, FLG+27, GETDIR+1, HFSA+9, HFS1+9, HFS1+10, HFS1+15, SETZTS6+3 , SETZTS6+7, SETZTS6+11 | 
| X | FLG+2~, FLG+3* | 
| >> Y | HFSA+1*, HFSA+2 | 
| >> ZTDESC | HFS+9* | 
| >> ZTDTH | HFS+9* | 
| >> ZTIO | HFS+9* | 
| >> ZTREQ | HFS1+21* | 
| >> ZTRTN | HFS+8* | 
| >> ZTSAVE("BDW*" | HFS+9* |