©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
DGPTR0 ;MJK/JS/ADL - PTF TRANSMISSION ; 9/26/05 6:44pm
Source file <DGPTR0.m>
| Package | Total | Call Graph |
|---|---|---|
| Registration | 7 | $$CVEDT^DGCV UP^DGHELP $$GETSTAT^DGMSTAPI (HEAD,START)^DGPTR1 (501,FILL)^DGPTR2 $$CKPOS^DGPTUTL $$EMGRES^DGUTL |
| DRG Grouper | 2 | $$ICDOP^ICDCODE $$GETDATE^ICDGTDRG |
| VA Fileman | 2 | $$GET1^DIQ ^DIR |
| Scheduling | 1 | $$SHAD^SDCO22 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ENTER0 | ||
| P401 | ; -- setup 401P transaction
|
|
| SAVE | ||
| PTFNMFT(DG10) | ;this function will format the name of the patient for
; transmission of the 101 record to Austin. In addition, this ; function will be used by OPC so that the format will be consistent ; for OPC and PTF. ; INPUT : DG10 - .01 field from the patient record. ; OUTPUT: name in the format proper format. ; A = <12 - characters of last name padded with blanks> ; B = <1 - first initial of fist name> ; C = <1 - first initial of middle name> ; returns :ABC <14 - characters> |
|
| DGNAM | ||
| Q | ||
| SUR | ||
| 401 | ; -- setup 401 transactions
|
|
| ENTER | ||
| 101 | ; -- setup 101 transation
; control data and name |
|
| 501 |
| Name | Field # of Occurrence |
|---|---|
| $$CVEDT^DGCV | 101+41 |
| UP^DGHELP | DGNAM+1 |
| $$GETSTAT^DGMSTAPI | 101+39 |
| HEAD^DGPTR1 | DGPTR0+10 |
| START^DGPTR1 | SAVE |
| 501^DGPTR2 | 501 |
| FILL^DGPTR2 | 101+49, P401+5, SUR+16 |
| $$CKPOS^DGPTUTL | 101+20 |
| $$EMGRES^DGUTL | 101+46 |
| $$GET1^DIQ | 101+48 |
| ^DIR | SUR+4 |
| $$ICDOP^ICDCODE | P401+4, SUR+8 |
| $$GETDATE^ICDGTDRG | P401+4, SUR+8 |
| $$SHAD^SDCO22 | 101+44 |
| FileNo | Call Tags |
|---|---|
| ^HL(779.004 - [#779.004] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DGPM - [#405] | 101+18 |
| ^DGPM("APTF" | 101+18 |
| ^DGPT - [#45] | 101+20, P401+1, P401+2, 401+1, SUR, SUR+13 |
| ^DIC(11 - [#11] | 101+13 |
| ^DIC(21 - [#21] | 101+17 |
| ^DIC(45.1 - [#45.1] | 101+5 |
| ^DIC(45.3 - [#45.3] | SUR+5 |
| ^DIC(45.88 - [#45.88] | SUR+13 |
| ^DIC(5 - [#5] | 101+28, 101+30 |
| ^TMP("AEDIT" | SAVE+1* |
| ^UTILITY($J | 401+1!, SUR+1*, SUR+2 |
| ^XMB(3.9 - [#3.9] | SAVE* |
| Name | Line Occurrences |
|---|---|
| $$PTFNMFT | 101+3 |
| 401 | P401+1 |
| 501 | 401+1, SUR |
| DGNAM | PTFNMFT+11 |
| ENTER | DGPTR0+9, 101+7, 101+21, 101+32, 101+48, SUR+6 |
| ENTER0 | 101+28, 101+30, 101+37 |
| SAVE | 101+49, P401+5, SUR+16 |
| SUR | SUR, SUR+1, SUR+16 |
| Name | Field # of Occurrence |
|---|---|
| ^( | SUR, SUR+1, SUR+5 |
| ^("401P" | P401+1, P401+2 |
| ^("ODS" | 101+18 |
| ^(0 | 101+5, 101+13, 101+17, 101+28, 101+30, SUR+1, SUR+5 |
| ^(300 | SUR |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> DG0 | DGPTR0+7, DGPTR0+9, 101+9, 101+34, 101+39, 101+41, 101+44, 101+46 |
| DG10 | DGPTR0+5, 101+3, 101+13, 101+15, PTFNMFT~, PTFNMFT+11 |
| >> DG101 | 101+5, 101+7, 101+9, 101+36, 101+37 |
| >> DG11 | 101+28, 101+30, 101+32, 101+48 |
| >> DG32 | 101+17 |
| >> DG321 | 101+23, 101+25 |
| >> DG41 | P401+1*, P401+2*, P401+3*, P401+4 |
| >> DG52 | 101+11 |
| >> DG70 | 101+34 |
| >> DGACNT | SAVE+1* |
| >> DGAO | 101+23* |
| DGAUX | SUR*, SUR+13*, SUR+14, SUR+15! |
| >> DGCNT | SAVE* |
| >> DGDOB | 101+15* |
| >> DGERR | SUR+2*, SAVE, SAVE+1 |
| >> DGHEAD | DGPTR0+10*, 101+3, P401+1, SUR+5 |
| >> DGNAM | DGNAM, DGNAM+2*, PTFNMFT+11*, PTFNMFT+12 |
| >> DGNT | 101+25* |
| DGPOS | 101+17*, 101+18*, 101+20*, 101+21, 101+23, 101+25, 101+26! |
| >> DGPTTMP | P401+4*, SUR+8* |
| >> DGSUD | SUR+1*, SUR+2, SUR+5 |
| >> DGSUR | SUR*, SUR+1, SUR+5, SUR+6, SUR+7*, SUR+8 |
| >> DGXMZ | SAVE |
| DIR | SUR+4! |
| DIR("A" | SUR+4* |
| DIR("B" | SUR+4* |
| DIR(0 | SUR+4* |
| E | 101+25*, 101+26! |
| >> F | SUR+1*, SUR+2, SUR+3 |
| G | 101+23*, 101+26! |
| I | P401+4*, 401+1*, SUR*, DGNAM*, PTFNMFT+10~ |
| >> J | 101+18, P401+1, P401+2, P401+4, 401+1, SUR, SUR+8, SUR+13 |
| >> K | P401+3*, SUR+7*, SUR+8* |
| >> L | DGPTR0+9*, 101+7*, 101+21*, 101+28*, 101+30*, 101+32*, 101+37*, 101+48*, P401+3*, SUR+6* , SUR+7*, ENTER, ENTER0 |
| >> PTF | 101+20 |
| >> T1 | 101+3, 101+50, P401+1, SUR+1, SUR+5 |
| >> T2 | SUR+1 |
| U | DGPTR0+5, DGPTR0+7, DGPTR0+9, 101+3, 101+5, 101+7, 101+9, 101+11, 101+13, 101+15 , 101+17, 101+20, 101+23, 101+25, 101+28, 101+30, 101+34, 101+36, 101+46, 101+48 , P401+3, P401+4, SUR+5, SUR+7, SUR+8, SUR+13, SUR+14, ENTER, ENTER0 |
| X | DGPTR0+5*, DGPTR0+7*, DGPTR0+9*, 101+7*, 101+21*, 101+28*, 101+30*, 101+32*, 101+37*, 101+39* , 101+41*, 101+42*, 101+44*, 101+46*, 101+48*, SUR+6*, ENTER, ENTER0, DGNAM*, DGNAM+1 , DGNAM+2, PTFNMFT+10~ |
| >> Y | DGPTR0+5*, DGPTR0+7*, DGPTR0+9*, DGPTR0+10*, 101+3*, 101+5*, 101+7*, 101+9*, 101+11*, 101+13* , 101+15*, 101+26*, 101+34*, 101+36*, 101+39*, 101+41*, 101+42*, 101+44*, 101+46*, 101+50* , P401+1*, P401+4*, P401+5, SUR+2, SUR+5*, SUR+8*, SUR+10*, SUR+14*, ENTER*, ENTER0* , SAVE, SAVE+1 |
| >> Z | DGPTR0+9*, 101+7*, 101+21*, 101+28*, 101+30*, 101+32*, 101+37*, 101+48*, SUR+6*, ENTER , ENTER0, DGNAM* |