ORWPCE3 ; SLC/KCM/REV/JM/TC - Get a PCE encounter for a TIU document ;Dec 03, 2025@07:26:33
Source file <ORWPCE3.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 3 | (BLDPARR,BLDPRMPT)^ORFEDT NOTEVSTR^ORWPCE $$GETVSIT^ORWPCE1 |
| PCE Patient Care Encounter | 3 | ENCEVENT^PXAPI (VICR,VIMM,VSKIN)^PXPXRM $$GETCODE^PXSPECAUTH |
| DRG Grouper | 2 | ($$CODECS,$$CSI,$$SAB)^ICDEX ($$ICDDATA,ICDDESC)^ICDXCODE |
| Lexicon Utility | 2 | $$EXP^LEXCODE $$CSYS^LEXU |
| CPT HCPCS Codes | 1 | $$CODEC^ICPTCOD |
| Clinical Reminders | 1 | GETFIND^PXRMRPCG |
| Kernel | 1 | ($$SENTENCE,$$UP)^XLFSTR |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Order Entry Results Reporting | 3 | ORAMX1 ORWPCE GET DX TEXT ORWPCE PCE4NOTE |
| Enterprise Health Management Platform | 1 | HMPDJ02 |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| PCE4NOTE(LST,IEN,DFN,VSITSTR) | ; Return encounter for an associated note IA#4214,6132,6614
; LST(1)=HDR^AllowEdit^CPTRequired^VStr^Author^hasCPT^VisitIEN ; LST(n)=TYP+^CODE^CAT^NARR^QUAL1^QUAL2 (QUAL1=Primary!Qty, QUAL2=Prv) |
|
| ICR | ;for contraindicated/refused:
|
|
| IMM | ;for immunization:
; LST(n)="IMM"^Code^^^Series^prv^Reaction^Contraindicated^Refused |
|
| SKT | ;for skin test:
; LST(n)="SK"^Code^^^result^prv^reading^d/t read^d/t given |
|
| GETFIND | ;
|
|
| GETDXTXT(ORY,NARR,CODE) | ; RPC to resolve Dx Text for PCE view
|
|
| SETNARR(NARR,CODE) | ; Set narrative string
|
|
| ICDDESC(ORCODE,ORDT) | ; Get description for ICD9 Code
|
|
| ICDDESQ |
| Name | Field # of Occurrence |
|---|---|
| $$CODECS^ICDEX | SETNARR+7 |
| $$CSI^ICDEX | PCE4NOTE+59 |
| $$SAB^ICDEX | PCE4NOTE+59 |
| $$ICDDATA^ICDXCODE | PCE4NOTE+61 |
| ICDDESC^ICDXCODE | ICDDESC+2 |
| $$CODEC^ICPTCOD | PCE4NOTE+76 |
| $$EXP^LEXCODE | SKT+85 |
| $$CSYS^LEXU | SKT+84 |
| BLDPARR^ORFEDT | PCE4NOTE+35 |
| BLDPRMPT^ORFEDT | PCE4NOTE+34 |
| NOTEVSTR^ORWPCE | PCE4NOTE+19 |
| $$GETVSIT^ORWPCE1 | PCE4NOTE+11 |
| ENCEVENT^PXAPI | PCE4NOTE+33 |
| VICR^PXPXRM | ICR+2 |
| VIMM^PXPXRM | IMM+3 |
| VSKIN^PXPXRM | SKT+3 |
| GETFIND^PXRMRPCG | GETFIND+1 |
| $$GETCODE^PXSPECAUTH | PCE4NOTE+46 |
| $$SENTENCE^XLFSTR | ICDDESC+4 |
| $$UP^XLFSTR | SETNARR+10, SETNARR+14 |
| RPC Name | Call Tags |
|---|---|
| ORWPCE PCE4NOTE | PCE4NOTE |
| ORWPCE GET DX TEXT | GETDXTXT |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT - [#9000010] | PCE4NOTE+22 |
| ^AUTNPOV - [#9999999.27] | PCE4NOTE+64, PCE4NOTE+79, PCE4NOTE+81, SKT+105, SKT+106, SETNARR+2 |
| ^AUTTEDT - [#9999999.09] | SKT+30 |
| ^AUTTEXAM - [#9999999.15] | SKT+66 |
| ^AUTTHF - [#9999999.64] | SKT+48 |
| ^SC - [#44] | PCE4NOTE+41 |
| ^TIU(8925 - [#8925] | PCE4NOTE+14 |
| ^TMP("ORWPCE" | PCE4NOTE+30 |
| ^TMP("PXKENC" | PCE4NOTE+32!, PCE4NOTE+36, PCE4NOTE+37, PCE4NOTE+38, PCE4NOTE+45, PCE4NOTE+46, PCE4NOTE+49, PCE4NOTE+50, PCE4NOTE+56, PCE4NOTE+58 , PCE4NOTE+74, PCE4NOTE+75, PCE4NOTE+85, PCE4NOTE+86, ICR+1, IMM+2, SKT+2, SKT+27, SKT+28, SKT+45 , SKT+46, SKT+63, SKT+64, SKT+81, SKT+82, SKT+99, SKT+100 |
| ^VA(200 - [#200] | PCE4NOTE+52 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CAT | PCE4NOTE+3~, PCE4NOTE+63*, PCE4NOTE+64*, PCE4NOTE+68, PCE4NOTE+78*, PCE4NOTE+79*, PCE4NOTE+90, SKT+34*, SKT+37, SKT+52* , SKT+55, SKT+70*, SKT+73, SKT+88*, SKT+91, SKT+103*, SKT+105*, SKT+109 |
| CODE | PCE4NOTE+3~, PCE4NOTE+46*, PCE4NOTE+47, PCE4NOTE+52*, PCE4NOTE+55, PCE4NOTE+59*, PCE4NOTE+60, PCE4NOTE+61*, PCE4NOTE+62, PCE4NOTE+68 , PCE4NOTE+76*, PCE4NOTE+77*, PCE4NOTE+90, SKT+29*, SKT+30, SKT+37, SKT+47*, SKT+48, SKT+55, SKT+65* , SKT+66, SKT+73, SKT+83*, SKT+85, SKT+91, SKT+101*, SKT+109, GETDXTXT~, GETDXTXT+1, SETNARR~ , SETNARR+7, SETNARR+8, SETNARR+9, SETNARR+13, SETNARR+14, SETNARR+15 |
| CPIECE | PCE4NOTE+5~, SKT+15*, SKT+16*, SKT+17 |
| DFN | PCE4NOTE~, PCE4NOTE+11, PCE4NOTE+16*, GETFIND+1 |
| DT | PCE4NOTE+59, PCE4NOTE+61, SETNARR+7, ICDDESC+1 |
| GCNT | PCE4NOTE+5~, GETFIND+2*, GETFIND+4 |
| GFINDS | PCE4NOTE+5~, GETFIND+1 |
| GFINDS( | GETFIND+2, GETFIND+4 |
| I | SETNARR+1~, SETNARR+8*, SETNARR+9 |
| ICDC | SETNARR+9~*, SETNARR+10, SETNARR+11 |
| ICDCSYS | PCE4NOTE+57~, PCE4NOTE+59*, PCE4NOTE+61 |
| ICDD | SETNARR+9~*, SETNARR+10, SETNARR+13~*, SETNARR+14, ICDDESC+1~, ICDDESC+2, ICDDESC+3 |
| ICDD(1 | ICDDESC+4 |
| ICDLBL | SETNARR+1~, SETNARR+7*, SETNARR+10, SETNARR+11, SETNARR+14, SETNARR+15 |
| ICOM | PCE4NOTE+5~, PCE4NOTE+25*, PCE4NOTE+70*, PCE4NOTE+71, PCE4NOTE+73, PCE4NOTE+92*, PCE4NOTE+93, PCE4NOTE+95, ICR+19*, ICR+20 , ICR+21, IMM+14*, IMM+15, IMM+16, IMM+18*, IMM+19, IMM+20, SKT+14*, SKT+17, SKT+18 , SKT+39*, SKT+40, SKT+42, SKT+57*, SKT+58, SKT+60, SKT+75*, SKT+76, SKT+78, SKT+93* , SKT+94, SKT+96, SKT+111*, SKT+112, SKT+114 |
| ICPT | PCE4NOTE+4~, PCE4NOTE+74*, PCE4NOTE+75, PCE4NOTE+85, PCE4NOTE+86 |
| IDX | PCE4NOTE+4~, PCE4NOTE+45*, PCE4NOTE+46 |
| IEN | PCE4NOTE~, PCE4NOTE+8, PCE4NOTE+14, PCE4NOTE+19, GETFIND+1 |
| IHF | PCE4NOTE+4~, SKT+45*, SKT+46 |
| IIMM | PCE4NOTE+4~, IMM+2*, IMM+3 |
| ILST | PCE4NOTE+3~, PCE4NOTE+24*, PCE4NOTE+39*, PCE4NOTE+40*, PCE4NOTE+41*, PCE4NOTE+42*, PCE4NOTE+47*, PCE4NOTE+54*, PCE4NOTE+55, PCE4NOTE+67* , PCE4NOTE+68, PCE4NOTE+71, PCE4NOTE+72*, PCE4NOTE+73, PCE4NOTE+89*, PCE4NOTE+90, PCE4NOTE+93, PCE4NOTE+94*, PCE4NOTE+95, ICR+3* , ICR+21*, IMM+4*, IMM+16*, IMM+20*, SKT+4*, SKT+18*, SKT+36*, SKT+37, SKT+40, SKT+41* , SKT+42, SKT+54*, SKT+55, SKT+58, SKT+59*, SKT+60, SKT+72*, SKT+73, SKT+76, SKT+77* , SKT+78, SKT+90*, SKT+91, SKT+94, SKT+95*, SKT+96, SKT+108*, SKT+109, SKT+112, SKT+113* , SKT+114, GETFIND+3*, GETFIND+4 |
| IPED | PCE4NOTE+4~, SKT+27*, SKT+28 |
| IPOV | PCE4NOTE+4~, PCE4NOTE+56*, PCE4NOTE+58 |
| IPRV | PCE4NOTE+4~, PCE4NOTE+49*, PCE4NOTE+50 |
| ISK | PCE4NOTE+4~, SKT+2*, SKT+3 |
| ISSECV | PCE4NOTE+5~, PCE4NOTE+17*, PCE4NOTE+18*, PCE4NOTE+21 |
| IST | PCE4NOTE+6~, SKT+81*, SKT+82 |
| ITEM | PCE4NOTE+5~, ICR+1*, ICR+2 |
| ITRT | PCE4NOTE+4~, SKT+99*, SKT+100 |
| IXAM | PCE4NOTE+4~, SKT+63*, SKT+64 |
| LOC | PCE4NOTE+3~, PCE4NOTE+38*, PCE4NOTE+41 |
| LOTNODE | PCE4NOTE+3~ |
| LST | PCE4NOTE~, PCE4NOTE+30* |
| LST( | PCE4NOTE+39*, PCE4NOTE+40*, PCE4NOTE+41*, PCE4NOTE+42*, PCE4NOTE+47*, PCE4NOTE+55*, PCE4NOTE+68*, PCE4NOTE+71*, PCE4NOTE+73*, PCE4NOTE+90* , PCE4NOTE+93*, PCE4NOTE+95*, ICR+9*, ICR+12*, ICR+13*, ICR+16*, ICR+17*, ICR+20*, ICR+21*, ICR+22* , IMM+5*, IMM+10*, IMM+11*, IMM+15*, IMM+16*, IMM+19*, IMM+20*, IMM+27*, IMM+30*, IMM+31* , SKT+5*, SKT+10*, SKT+11*, SKT+17*, SKT+18*, SKT+21*, SKT+23*, SKT+24*, SKT+37*, SKT+40* , SKT+42*, SKT+55*, SKT+58*, SKT+60*, SKT+73*, SKT+76*, SKT+78*, SKT+91*, SKT+94*, SKT+96* , SKT+109*, SKT+112*, SKT+114*, GETFIND+4* |
| LST(1 | PCE4NOTE+26*, PCE4NOTE+28*, PCE4NOTE+31, PCE4NOTE+37* |
| MAG | PCE4NOTE+6~, SKT+31*, SKT+37, SKT+49*, SKT+55, SKT+67*, SKT+73, SKT+86*, SKT+91 |
| MANUF | PCE4NOTE+3~ |
| MCNT | PCE4NOTE+5~, PCE4NOTE+84*, PCE4NOTE+87*, PCE4NOTE+88 |
| MIDX | PCE4NOTE+5~, PCE4NOTE+84*, PCE4NOTE+85*, PCE4NOTE+86 |
| MIEN | PCE4NOTE+5~, PCE4NOTE+86*, PCE4NOTE+87 |
| MODS | PCE4NOTE+5~, PCE4NOTE+84*, PCE4NOTE+87*, PCE4NOTE+88*, PCE4NOTE+90 |
| NARR | PCE4NOTE+3~, PCE4NOTE+52*, PCE4NOTE+55, PCE4NOTE+59*, PCE4NOTE+62*, PCE4NOTE+68, PCE4NOTE+80*, PCE4NOTE+81*, PCE4NOTE+90, SKT+30* , SKT+37, SKT+48*, SKT+55, SKT+66*, SKT+73, SKT+85*, SKT+91, SKT+104*, SKT+106*, SKT+109 , GETDXTXT~, GETDXTXT+1, SETNARR~, SETNARR+2*, SETNARR+5*, SETNARR+6*, SETNARR+10*, SETNARR+11*, SETNARR+14*, SETNARR+15* , SETNARR+16 |
| NODE | PCE4NOTE+3~ |
| OLST | PCE4NOTE+3~ |
| ORCODE | ICDDESC~, ICDDESC+2 |
| ORDATA | PCE4NOTE+5~, ICR+2!, IMM+3!, SKT+3! |
| ORDATA( | ICR+4, ICR+5, ICR+6, ICR+8, ICR+12, ICR+13, ICR+15, ICR+18, ICR+21, ICR+22 , IMM+6, IMM+10, IMM+11, IMM+13, IMM+16, IMM+17, IMM+20, IMM+23, IMM+24, IMM+30 , IMM+31, SKT+6, SKT+10, SKT+11, SKT+13, SKT+18, SKT+21, SKT+23, SKT+24 |
| ORDATA("SUB" | SKT+21 |
| ORDT | ICDDESC~, ICDDESC+1*, ICDDESC+2 |
| ORPARR | PCE4NOTE+6~, PCE4NOTE+35 |
| ORPARR( | ICR+10, IMM+8, SKT+8 |
| ORPRMPTS | PCE4NOTE+3~, PCE4NOTE+34 |
| ORPRMPTS( | ICR+22, IMM+28, IMM+30, IMM+31, SKT+19, SKT+21, SKT+23, SKT+24 |
| ORPRMPTS("pnumImmContra" | ICR+16 |
| ORPRMPTS("pnumImmRefused" | ICR+17 |
| ORPRMPTS("pnumRefusedGroup" | ICR+9 |
| ORPVAL | PCE4NOTE+6~, ICR+10*, ICR+11, ICR+12, ICR+13, ICR+14, ICR+18, ICR+22, IMM+8*, IMM+9 , IMM+10, IMM+11, IMM+12, IMM+17, IMM+21, IMM+28, IMM+29, IMM+30, IMM+31, SKT+8* , SKT+9, SKT+10, SKT+11, SKT+12, SKT+19, SKT+20, SKT+21, SKT+22, SKT+23, SKT+24 |
| ORSUB | PCE4NOTE+6~ |
| ORY | GETDXTXT~, GETDXTXT+1*, ICDDESC+1~*, ICDDESC+4*, ICDDESQ |
| PRIM | PCE4NOTE+3~, PCE4NOTE+53*, PCE4NOTE+55, PCE4NOTE+65*, PCE4NOTE+68 |
| PRIMARY | PCE4NOTE+6~, PCE4NOTE+7*, PCE4NOTE+18*, PCE4NOTE+22*, PCE4NOTE+28 |
| PRIMCODE | SETNARR+1~, SETNARR+7* |
| PRV | PCE4NOTE+3~, PCE4NOTE+66*, PCE4NOTE+68, PCE4NOTE+83*, PCE4NOTE+90, SKT+35*, SKT+37, SKT+53*, SKT+55, SKT+71* , SKT+73, SKT+89*, SKT+91, SKT+107*, SKT+109 |
| QTY | PCE4NOTE+3~, PCE4NOTE+82*, PCE4NOTE+90, SKT+33*, SKT+37, SKT+51*, SKT+55, SKT+69*, SKT+73, SKT+102* , SKT+109 |
| SAIDX | PCE4NOTE+6~, PCE4NOTE+46* |
| SCNODE | PCE4NOTE+44~, PCE4NOTE+46*, PCE4NOTE+47 |
| SUB | PCE4NOTE+6~, ICR+4*, ICR+5, ICR+6, ICR+7, ICR+8, ICR+10, ICR+12, ICR+13, ICR+15 , ICR+18, ICR+21, ICR+22, IMM+6*, IMM+7, IMM+8, IMM+10, IMM+11, IMM+13, IMM+16 , IMM+17, IMM+20, IMM+23, IMM+24, IMM+30, IMM+31, SKT+6*, SKT+7, SKT+8, SKT+10 , SKT+11, SKT+13, SKT+16, SKT+18, SKT+21, SKT+23, SKT+24 |
| SYSIEN | PCE4NOTE+6~, SKT+84*, SKT+85 |
| SYSTEM | PCE4NOTE+6~ |
| TEMP | PCE4NOTE+6~, ICR+8*, ICR+9, ICR+15*, ICR+16, ICR+17 |
| TOPLST | PCE4NOTE+6~, ICR+3*, ICR+9, ICR+12, ICR+13, ICR+16, ICR+17, ICR+20, ICR+22, IMM+4* , IMM+5, IMM+10, IMM+11, IMM+15, IMM+19, IMM+27, IMM+30, IMM+31, SKT+4*, SKT+5 , SKT+10, SKT+11, SKT+17, SKT+21, SKT+23, SKT+24 |
| U | PCE4NOTE+16, PCE4NOTE+17, PCE4NOTE+18, PCE4NOTE+22, PCE4NOTE+26, PCE4NOTE+28, PCE4NOTE+31, PCE4NOTE+37, PCE4NOTE+38, PCE4NOTE+39 , PCE4NOTE+40, PCE4NOTE+41, PCE4NOTE+46, PCE4NOTE+47, PCE4NOTE+52, PCE4NOTE+53, PCE4NOTE+55, PCE4NOTE+59, PCE4NOTE+61, PCE4NOTE+63 , PCE4NOTE+64, PCE4NOTE+65, PCE4NOTE+66, PCE4NOTE+68, PCE4NOTE+71, PCE4NOTE+73, PCE4NOTE+76, PCE4NOTE+78, PCE4NOTE+79, PCE4NOTE+80 , PCE4NOTE+81, PCE4NOTE+82, PCE4NOTE+83, PCE4NOTE+90, PCE4NOTE+93, PCE4NOTE+95, ICR+6, ICR+9, ICR+12, ICR+13 , ICR+16, ICR+17, ICR+20, ICR+21, ICR+22, IMM+5, IMM+10, IMM+11, IMM+15, IMM+16 , IMM+19, IMM+20, IMM+24, IMM+27, IMM+30, IMM+31, SKT+5, SKT+10, SKT+11, SKT+17 , SKT+18, SKT+21, SKT+23, SKT+24, SKT+29, SKT+30, SKT+31, SKT+32, SKT+33, SKT+35 , SKT+37, SKT+40, SKT+42, SKT+47, SKT+48, SKT+49, SKT+50, SKT+51, SKT+53, SKT+55 , SKT+58, SKT+60, SKT+65, SKT+66, SKT+67, SKT+68, SKT+69, SKT+71, SKT+73, SKT+76 , SKT+78, SKT+83, SKT+84, SKT+85, SKT+86, SKT+87, SKT+88, SKT+89, SKT+91, SKT+94 , SKT+96, SKT+101, SKT+102, SKT+103, SKT+104, SKT+105, SKT+106, SKT+107, SKT+109, SKT+112 , SKT+114, SETNARR+2, SETNARR+7 |
| UCUM | PCE4NOTE+6~, SKT+32*, SKT+37, SKT+50*, SKT+55, SKT+68*, SKT+73, SKT+87*, SKT+91 |
| VAL | PCE4NOTE+44~ |
| VIS | PCE4NOTE+5~, IMM+22*, IMM+25*, IMM+26*, IMM+27 |
| VISCNT | PCE4NOTE+5~, IMM+23*, IMM+24 |
| VISIT | PCE4NOTE+3~, PCE4NOTE+11*, PCE4NOTE+12*, PCE4NOTE+17*, PCE4NOTE+18*, PCE4NOTE+21, PCE4NOTE+22*, PCE4NOTE+28, PCE4NOTE+29, PCE4NOTE+33 , PCE4NOTE+36, PCE4NOTE+37, PCE4NOTE+38, PCE4NOTE+45, PCE4NOTE+46, PCE4NOTE+49, PCE4NOTE+50, PCE4NOTE+56, PCE4NOTE+58, PCE4NOTE+74 , PCE4NOTE+75, PCE4NOTE+85, PCE4NOTE+86, ICR+1, IMM+2, SKT+2, SKT+27, SKT+28, SKT+45, SKT+46 , SKT+63, SKT+64, SKT+81, SKT+82, SKT+99, SKT+100, GETFIND+1 |
| VISTEMP | PCE4NOTE+5~, IMM+24*, IMM+25, IMM+26 |
| VSITSTR | PCE4NOTE~, PCE4NOTE+10 |
| VSTR | PCE4NOTE+3~, PCE4NOTE+10*, PCE4NOTE+11, PCE4NOTE+19, PCE4NOTE+21, PCE4NOTE+23, PCE4NOTE+26, PCE4NOTE+30, SKT+85 |
| VTYP | PCE4NOTE+4~, PCE4NOTE+23*, PCE4NOTE+26, PCE4NOTE+31 |
| X | PCE4NOTE+4~ |
| X0 | PCE4NOTE+4~, PCE4NOTE+9*, PCE4NOTE+14*, PCE4NOTE+16, PCE4NOTE+18, PCE4NOTE+26, PCE4NOTE+38*, PCE4NOTE+39, PCE4NOTE+40, PCE4NOTE+50* , PCE4NOTE+52, PCE4NOTE+53, PCE4NOTE+58*, PCE4NOTE+59, PCE4NOTE+65, PCE4NOTE+75*, PCE4NOTE+76, PCE4NOTE+80, PCE4NOTE+82, SKT+28* , SKT+29, SKT+33, SKT+46*, SKT+47, SKT+51, SKT+64*, SKT+65, SKT+69, SKT+82*, SKT+83 , SKT+84, SKT+88, SKT+100*, SKT+101, SKT+102, SKT+104 |
| X12 | PCE4NOTE+4~, PCE4NOTE+9*, PCE4NOTE+14*, PCE4NOTE+17, PCE4NOTE+26, PCE4NOTE+66, PCE4NOTE+75*, PCE4NOTE+83, SKT+28*, SKT+35 , SKT+46*, SKT+53, SKT+64*, SKT+71, SKT+82*, SKT+89, SKT+100*, SKT+107 |
| X13 | PCE4NOTE+4~ |
| X16 | PCE4NOTE+4~ |
| X2 | PCE4NOTE+4~ |
| X220 | PCE4NOTE+6~, SKT+28*, SKT+31, SKT+32, SKT+46*, SKT+49, SKT+50, SKT+64*, SKT+67, SKT+68 , SKT+82*, SKT+86, SKT+87 |
| X802 | PCE4NOTE+4~, PCE4NOTE+58*, PCE4NOTE+63, PCE4NOTE+75*, PCE4NOTE+78, SKT+100*, SKT+103 |
| X811 | PCE4NOTE+4~, PCE4NOTE+58*, PCE4NOTE+69, PCE4NOTE+73, PCE4NOTE+75*, PCE4NOTE+91, PCE4NOTE+95, SKT+28*, SKT+38, SKT+42 , SKT+46*, SKT+56, SKT+60, SKT+64*, SKT+74, SKT+78, SKT+82*, SKT+92, SKT+96, SKT+100* , SKT+110, SKT+114 |