©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
SCMCHLZ ;BP/DJB - PCMM HL7 Bld ZPC Segment ; 3/7/00 1:08pm
Source file <SCMCHLZ.m>
| Package | Total | Call Graph |
|---|---|---|
| Kernel | 2 | $$HLNAME^XLFNAME $$GET^XUA4A72 |
| VA Fileman | 2 | UPDATE^DIE $$GET1^DIQ |
| Health Level Seven | 1 | $$HLDATE^HLFNC |
| Registration | 1 | PERSON^VAFHLRO3 |
| Scheduling | 1 | $$NEWPERSN^SCMCGU |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PROVPC | ;Provider - Person Class
|
|
| TMPUR | ; TEAM PURPOSE ADDED PATCH 515 send in BOTH DELETE & ADD
|
|
| PROVSSN | ;Provider - Social Security Number
|
|
| PROV | ;Provider
|
|
| TMIEN | ;Add Team IEN patch SD*5.3*515
|
|
| PROVDA | ;Provider - Date Assigned
|
|
| ID | ;Provider Assignment ID
|
|
| INIT | ;Initialize variables
|
|
| STATION | ; Add station # suffix patch SD*5.3*286
|
|
| PROVT | ;Provider - Type code
|
|
| TEAM | ;Add Team Name patch SD*5.3*515
|
|
| PROVDU | ;Provider - Date Unassigned
|
|
| ADJUST | ;Add a continuation node if length is greater than 245.
|
|
| ZPC(SCSTR,SCID,SCDATA,SCSEQ) | ;Main entry point for building ZPC segment
|
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| ^SCPT(404.43 - [#404.43] | GET1^DIQ |
| ^SCTM(404.51 - [#404.51] | GET1^DIQ |
| ^SCTM(404.57 - [#404.57] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^SCPT(404.43 - [#404.43] | TMPUR+5 |
| ^SCPT(404.49 - [#404.49] | ID+10, ID+22, STATION+3, TEAM+4, TMIEN+4 |
| ^SCTM(404.51 - [#404.51] | TMPUR+13 |
| ^SCTM(404.57 - [#404.57] | TMPUR+9 |
| ^SD(403.47 - [#403.47] | TMPUR+17 |
| Name | Line Occurrences |
|---|---|
| ADJUST | ZPC+37 |
| ID | ZPC+26 |
| INIT | ZPC+23 |
| PROV | ZPC+27 |
| PROVDA | ZPC+28 |
| PROVDU | ZPC+29 |
| PROVPC | ZPC+31 |
| PROVSSN | ZPC+32 |
| PROVT | ZPC+30 |
| STATION | ZPC+33 |
| TEAM | ZPC+34 |
| TMIEN | ZPC+35 |
| TMPUR | ZPC+36 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CODE | PROVPC+1~, PROVPC+5*, PROVPC+9*, PROVPC+10*, PROVPC+11 |
| CS | ZPC+20~, PROV+11, PROV+13, PROV+21, PROV+22, PROVPC+11, TMPUR+21, INIT+4* |
| DATE | PROVDA+1~, PROVDA+3*, PROVDA+4, PROVDA+5, PROVDU+1~, PROVDU+3*, PROVDU+4, PROVDU+5 |
| FAC | ID+7~, ID+21*, ID+24*, ID+29 |
| FS | ZPC+20~, ID+29, STATION+2, STATION+8, TEAM+2, TEAM+8, TMIEN+2, TMIEN+7, PROV+3, PROV+20 , PROV+21, PROV+25, PROVDA+2, PROVDA+5, PROVDU+2, PROVDU+5, PROVT+2, PROVT+5, PROVPC+2, PROVPC+11 , PROVSSN+3, PROVSSN+10, TMPUR+1, TMPUR+21, INIT+3*, INIT+15, INIT+16, INIT+17, INIT+18, INIT+20 , INIT+21, INIT+22 |
| >> HL("ECH" | INIT+4, INIT+5 |
| >> HL("FS" | INIT+3 |
| >> HL("Q" | INIT+6 |
| ID | ID+7~, ID+10*, ID+13, ID+16*, ID+22, ID+25*, ID+29 |
| ND | TMPUR+3~, TMPUR+5*, TMPUR+6, TMPUR+7 |
| OLDID | ID+7~, ID+22*, ID+23, ID+24, ID+25 |
| PROV | PROV+1~, PROV+10*, PROV+11*, PROV+13*, PROV+21*, PROV+22*, PROV+25 |
| PT | PROVT+1~, PROVT+3*, PROVT+4, PROVT+5 |
| PTR200 | PROV+1~, PROV+4*, PROV+5, PROV+8, PROV+18, PROVPC+1~, PROVPC+3*, PROVPC+4, PROVPC+5, PROVSSN+2~ , PROVSSN+4*, PROVSSN+5, PROVSSN+6, PROVSSN+8 |
| QT | ZPC+20~, TEAM+2, TMIEN+2, PROV+3, PROV+8, PROVDA+2, PROVDU+2, PROVT+2, PROVPC+2, PROVSSN+3 , TMPUR+1, INIT+6* |
| SC200 | PROVSSN+2~, PROVSSN+6*, PROVSSN+7 |
| SCARRY | PROVSSN+2~ |
| SCARRY( | PROVSSN+8 |
| SCDATA | ZPC~, TEAM+3, TMIEN+3, PROV+4, PROVDA+3, PROVDU+3, PROVT+3, PROVPC+3, PROVSSN+4 |
| SCERR | ID+7~ |
| >> SCFAC | ID+21 |
| SCFDA | ID+7~ |
| SCFDA( | ID+14* |
| SCID | ZPC~, ZPC+24, ID+10, ID+14, TMPUR+5 |
| SCIEN | ID+7~ |
| SCIEN(1 | ID+16 |
| SCNAM | PROV+1~, PROV+20 |
| SCNAM("FIELD" | PROV+19* |
| SCNAM("FILE" | PROV+17* |
| SCNAM("IENS" | PROV+18* |
| SCNAME | PROV+1~, PROV+20*, PROV+21 |
| SCSEQ | ZPC~, INIT+9*, INIT+22 |
| SCSNN | PROVSSN+2~, PROVSSN+8*, PROVSSN+9, PROVSSN+10 |
| SCSTR | ZPC~, ZPC+26, ZPC+27, ZPC+28, ZPC+29, ZPC+30, ZPC+31, ZPC+32, ZPC+33, ZPC+34 , ZPC+35, ZPC+36, INIT+25*, INIT+31*, INIT+33*, INIT+34* |
| SCTM | TMPUR+3~, TMPUR+11*, TMPUR+13 |
| SCTMP | PROV+1~, PROV+9, TMPUR+3~, TMPUR+14*, TMPUR+15, TMPUR+16, TMPUR+17*, TMPUR+18, TMPUR+19*, TMPUR+20 , TMPUR+21 |
| SCTMP(1 | PROV+10, PROV+11, PROV+13 |
| SCTMPI | TMPUR+3~, TMPUR+16*, TMPUR+21 |
| SCTP | STATION+1~, STATION+3*, STATION+4, TEAM+1~, TEAM+4*, TEAM+5, TMIEN+1~, TMIEN+4*, TMIEN+5, TMPUR+3~ , TMPUR+7*, TMPUR+9 |
| SCTPD | TMPUR+3~, TMPUR+9*, TMPUR+10, TMPUR+11 |
| SCZPC | ZPC+20~, ZPC+24, ZPC+37, ZPC+38, ID+29*, STATION+2*, STATION+3, STATION+8*, TEAM+2*, TEAM+4 , TEAM+8*, TMIEN+2*, TMIEN+4, TMIEN+7*, PROV+3*, PROV+25*, PROVDA+2*, PROVDA+5*, PROVDU+2*, PROVDU+5* , PROVT+2*, PROVT+5*, PROVPC+2*, PROVPC+11*, PROVSSN+3*, PROVSSN+10*, TMPUR+1*, TMPUR+21*, INIT+15*, INIT+16* , INIT+17*, INIT+18*, INIT+20*, INIT+21*, INIT+22*, ADJUST+1, ADJUST+2, ADJUST+3* |
| SCZPC(1 | ADJUST+2* |
| SNUM | STATION+1~, STATION+5*, STATION+6, TEAM+1~, TEAM+6*, TEAM+7, TMIEN+1~, TMIEN+6*, TMIEN+7 |
| SS | ZPC+20~, PROV+10, INIT+5* |
| STAT | STATION+1~, STATION+7*, STATION+8 |
| TEAM | STATION+1~, STATION+6*, STATION+7, TEAM+1~, TEAM+7*, TEAM+8 |
| TEAMP | STATION+1~, STATION+4*, STATION+5, TEAM+1~, TEAM+5*, TEAM+6, TMIEN+1~, TMIEN+5*, TMIEN+6 |
| TMD | TMPUR+3~, TMPUR+13*, TMPUR+14 |
| U | ID+22, TEAM+3, TMIEN+3, PROVDA+3, PROVDU+3, PROVT+3, PROVSSN+8, TMPUR+7, TMPUR+11, TMPUR+14 , TMPUR+19 |
| X | PROV+1~, PROV+21*, PROV+22* |