ORCSAVE ;SLC/MKB/JDL/GN -Save ;Jul 31, 2025@10:30:11
Source file <ORCSAVE.m>
| Package | Total | Call Graph |
|---|---|---|
| Order Entry Results Reporting | 7 | $$INPT^ORCD ORDTEXT^ORCSAVE1 (AUDORDXX,CSVALUE)^ORDEA ORCAN^ORNORC (DELOCC,SAVEOC)^OROCAPI1 ($$OLDCODE,UPDATE112)^ORSPECAUTH PKI^ORWDPS1 |
| VA FileMan | 3 | ^DIC FIELD^DID $$GET1^DIQ |
| Kernel | 1 | $$NOW^XLFDT |
| PCE Patient Care Encounter | 1 | $$FINDBYCODE^PXSPECAUTH |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| NEW(ORDIALOG,ORDG,ORPKG,ORCAT,OREVENT,ORDUZ,ORLOG) | ; -- New order
; Returns ORIFN = [new] order number, if created/saved |
|
| XX | ; -- save new/unreleased edited order into Orders file
; Requires: ORDIALOG() = array of dialog values ; ORIFN = IFN of original order that was edited |
|
| RN | ; -- save new/unreleased renewal order into Orders file
; Requires: ORDIALOG() = array of new dialog values ; ORIFN = IFN of original order that was renewed |
|
| MERGE112 | ;save SA data to new order
|
|
| EN | ; -- save new/unreleased order in ORDIALOG() into Orders file
; Requires: ORVP, ORNP [and ORL, ORTS, ORAPPT if available] ; If defined: ORCAT,ORPKG,ORDG,ORLOG,ORDUZ,OREVENT,ORDCNTRL,ORSRC ; (else use values from ORDIALOG and current state) |
|
| EN1 | ||
| EN2 | ||
| ENQ | ||
| NEXTIFN() | ; -- Returns next available ORIFN
|
|
| RESPONSE | ; -- Save responses in ORDIALOG() into ^OR(100,ORIFN,4.5)
|
|
| R1 | ; [Reset] Orderables
|
|
| RESUME(IFN) | ; -- add Response nodes for RESUME tray service
; S ^OR(100,+IFN,4.5,<next>,0)=DT_"^^^RESUME",^(1)=1 |
|
| PROVIDER(ORDER,PROV) | ; -- Change provider assigned to ORDER
|
|
| ACTION(CODE,DA,PROV,REASON,WHEN,WHO) | ; -- save new action
|
|
| SET(DLG) | ; -- Create new parent for order set ORDIALOG
; Returns ORPIFN = ifn of new parent order for set |
| Name | Field # of Occurrence |
|---|---|
| ^DIC | RESUME+7 |
| FIELD^DID | RESUME+4 |
| $$GET1^DIQ | EN+13 |
| $$INPT^ORCD | EN+8, SET+5 |
| ORDTEXT^ORCSAVE1 | EN2+13 |
| AUDORDXX^ORDEA | EN2+28 |
| CSVALUE^ORDEA | EN2+27 |
| ORCAN^ORNORC | XX+4 |
| DELOCC^OROCAPI1 | EN2+30 |
| SAVEOC^OROCAPI1 | EN2+50 |
| $$OLDCODE^ORSPECAUTH | MERGE112+5 |
| UPDATE112^ORSPECAUTH | MERGE112+6 |
| PKI^ORWDPS1 | EN2+6 |
| $$FINDBYCODE^PXSPECAUTH | MERGE112+5 |
| $$NOW^XLFDT | XX+17, EN+7, EN2+38, EN2+63, ACTION+3, SET+5 |
| FileNo | Call Tags |
|---|---|
| ^OR(100 - [#100] | FIELD^DID |
| ^DIC(9.4 - [#9.4] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DIC(9.4 - [#9.4] | EN2+4, SET+5 |
| ^OR(100 - [#100] | XX+6, XX+9*, XX+10*, XX+11*, XX+12, XX+13, XX+18, XX+21*, XX+22*, XX+23 , XX+24, XX+25*, XX+26, XX+27, XX+28*, RN+6*, RN+7*, RN+8*, RN+9*, RN+10 , MERGE112+2, EN+11, EN1*, EN1+1*, EN1+2*, EN1+4*, EN1+5*, EN1+7*, EN1+8*, EN1+9* , EN1+10*, EN1+11*, EN1+12*, EN1+13*, EN1+14*, EN2+1, EN2+3, EN2+10*, EN2+11!, EN2+12! , EN2+15*, EN2+18*, EN2+20, EN2+21, EN2+22, EN2+23, EN2+24*, NEXTIFN+2, NEXTIFN+4, NEXTIFN+5 , NEXTIFN+6*, NEXTIFN+7*, RESPONSE+2, RESPONSE+8*, RESPONSE+9*, RESPONSE+11*, RESPONSE+12*, RESPONSE+13*, R1+1!, R1+2! , R1+4, R1+5, R1+6*, R1+7*, R1+8*, RESUME+7*, PROVIDER+3*, PROVIDER+4*, ACTION+2, ACTION+5 , ACTION+6, ACTION+8, ACTION+9, ACTION+11!, ACTION+12!, ACTION+13!, ACTION+14, ACTION+15*, ACTION+16*, ACTION+17* , ACTION+18*, ACTION+19*, ACTION+20*, ACTION+21*, ACTION+22*, SET+7*, SET+8*, SET+9*, SET+10*, SET+12* |
| ^ORD(100.02 - [#100.02] | EN+17, ACTION+4 |
| ^ORD(100.05 - [#100.05] | EN2+54*, EN2+61*, EN2+62*, EN2+63* |
| ^ORD(100.7 - [#100.7] | EN2+5 |
| ^ORD(101.41 - [#101.41] | EN+6, EN+7, EN+9, EN+12, EN1+17, SET+4 |
| ^TMP($J | EN2+45, EN2+58, EN2+59, EN2+61, EN2+62, EN2+64!, EN2+65! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| >> ACFLAG | RN+8 |
| CATG | EN+5~, EN+8*, EN1, EN2+6, SET+3~, SET+5*, SET+7 |
| CDL | EN+5~, EN2+33*, EN2+34, EN2+35, EN2+36, EN2+37, EN2+38, EN2+46, EN2+47 |
| CNT | EN+5~, EN2+33*, RESPONSE+1~, RESPONSE+3*, RESPONSE+7*, RESPONSE+8, RESPONSE+9, RESPONSE+11, RESPONSE+12, RESPONSE+13 , R1+3*, R1+6*, R1+8 |
| CODE | ACTION~, ACTION+2, ACTION+8, ACTION+15, ACTION+17 |
| DA | NEXTIFN+1~, NEXTIFN+6*, NEXTIFN+8, RESUME+3~, ACTION~, ACTION+1*, ACTION+2, ACTION+5, ACTION+6, ACTION+8 , ACTION+9, ACTION+11, ACTION+12, ACTION+13, ACTION+14, ACTION+15, ACTION+16, ACTION+17, ACTION+18, ACTION+19 , ACTION+20, ACTION+21, ACTION+22 |
| DA(1 | RESUME+5* |
| DG | EN+5~, EN+12*, EN1, EN1+11 |
| >> DGPMT | EN+13 |
| DGRP | ACTION+1~, ACTION+5*, ACTION+11, ACTION+18 |
| DIC | RESUME+3~, RESUME+5* |
| DIC("DR" | RESUME+6* |
| DIC("P" | RESUME+6* |
| DIC(0 | RESUME+5* |
| >> DILOCKTM | NEXTIFN+2 |
| DLAYGO | RESUME+3~, RESUME+6* |
| DLG | SET~, SET+3, SET+4, SET+7 |
| DT | RESUME+5 |
| DUZ | EN+10, EN2+5, EN2+38, ACTION+3, SET+7, SET+8 |
| HDR | NEXTIFN+1~, NEXTIFN+4*, NEXTIFN+6*, NEXTIFN+7, ACTION+1~, ACTION+5*, ACTION+7*, ACTION+22* |
| I | EN+5~, EN1+19~, EN1+21*, EN2+20*, EN2+21, EN2+22*, EN2+23, EN2+33*, EN2+34*, EN2+35 , EN2+36, EN2+37, EN2+38, EN2+39, EN2+40, EN2+42, EN2+43, EN2+44, EN2+45, EN2+46 , EN2+47, NEXTIFN+1~, NEXTIFN+5*, NEXTIFN+6, RESPONSE+1~, R1+1*, R1+3*, R1+4*, R1+5 |
| ID | MERGE112+1~, MERGE112+5*, MERGE112+6 |
| IDNM | MERGE112+1~, MERGE112+5* |
| IFN | RESUME~, RESUME+5, RESUME+7 |
| >> INDICAT | EN1+4 |
| INST | RESPONSE+1~, RESPONSE+6*, RESPONSE+7, RESPONSE+8 |
| ITM | RESPONSE+1~, RESPONSE+4*, RESPONSE+8, RESPONSE+9 |
| J | EN2+36~* |
| LAST | NEXTIFN+1~, NEXTIFN+4*, NEXTIFN+5, ACTION+1~, ACTION+8*, ACTION+9, ACTION+10 |
| LOC | EN+5~, EN+13*, EN+14*, EN1 |
| LOG | EN+5~, EN+10*, EN1, EN1+1, EN1+2, EN1+5, EN1+7, EN1+11, EN1+12, EN1+13 |
| LSTACT | XX+15~, XX+16*, XX+23*, XX+24, XX+25, XX+27, XX+28 |
| MSG | RESUME+3~ |
| MSG("SPECIFIER" | RESUME+6 |
| N5 | MERGE112+1~, MERGE112+2*, MERGE112+4 |
| NATR | EN+5~, EN+17*, EN1+2, ACTION+1~, ACTION+4*, ACTION+15 |
| NEXT | ACTION+1~, ACTION+10*, ACTION+11, ACTION+12, ACTION+13, ACTION+14*, ACTION+15, ACTION+16, ACTION+17, ACTION+18 , ACTION+19, ACTION+20, ACTION+21, ACTION+22, ACTION+23 |
| NODE | EN+5~, EN2+15*, EN2+16*, EN2+17*, EN2+18*, EN2+19*, EN2+21*, EN2+23* |
| NOW | XX+15~, XX+17*, EN+5~, EN+7*, EN+10, EN2+24, SET+3~, SET+5*, SET+7, SET+8 , SET+9, SET+10 |
| OCINST | EN2+53~*, EN2+54, EN2+56~, EN2+57*, EN2+61, EN2+62, EN2+63 |
| OCRET | EN2+49~, EN2+50 |
| OCRET( | EN2+53, EN2+57 |
| OCTXT | EN2+56~*, EN2+59 |
| OI | EN2+2~, EN2+3*, EN2+6 |
| OLDEVT | XX+15~, XX+16*, XX+18*, XX+20, XX+21 |
| OLDIFN | XX+5~*, XX+6*, XX+8, XX+9, XX+10, XX+11, XX+12, XX+13, XX+18, RN+4~* , RN+6, RN+7, RN+8, RN+9, RN+10, MERGE112+2 |
| OLDSTS | XX+15~, XX+16*, XX+18*, XX+20 |
| OR0 | SET+3~, SET+4*, SET+7, SET+12 |
| ORACT | PROVIDER+2~*, PROVIDER+3, PROVIDER+4 |
| >> ORAPPT | EN1 |
| ORCAT | NEW~, EN+8 |
| >> ORCHECK | EN2+31 |
| >> ORCHECK("NEW" | EN2+33, EN2+34, EN2+35, EN2+36*, EN2+37, EN2+46, EN2+47 |
| ORCROC | EN2+32~, EN2+51 |
| ORCROC( | EN2+43*, EN2+52, EN2+54 |
| ORCROCI | EN2+52~*, EN2+53, EN2+54 |
| ORCSORD | EN+5~, EN2+26*, EN2+27, EN2+28 |
| >> ORDA | XX+7*, RN+5* |
| >> ORDCNTRL | EN+15 |
| ORDEA | EN2+7*, EN2+66! |
| ORDER | PROVIDER~, PROVIDER+1, PROVIDER+2, PROVIDER+3, PROVIDER+4 |
| ORDG | NEW~, EN+12 |
| ORDIALOG | NEW~, EN+6, EN+7, EN+9, EN+12, EN1, EN1+8 |
| ORDIALOG( | EN1+18, EN1+20, EN1+22*, RESPONSE+3, RESPONSE+4, RESPONSE+5, RESPONSE+6, RESPONSE+7 |
| ORDIALOG("PREV" | EN1+1 |
| ORDUZ | NEW~, EN+10 |
| OREVENT | NEW~, EN+13, EN+18, EN1, EN1+14, SET+5, SET+6, SET+7 |
| >> OREVTDF | XX+14 |
| ORGLOB | EN2+41~, EN2+42*, EN2+45 |
| ORI | EN2+41~, EN2+44*, EN2+45* |
| ORIFN | XX+4, XX+5*, XX+6!, XX+7, XX+9, XX+10, XX+11, XX+12, XX+21, XX+22 , XX+23, XX+24, XX+25, XX+26, XX+27, XX+28, RN+4!, RN+5, RN+6, RN+7 , RN+8, RN+9, RN+10, MERGE112+6, EN+11, EN+18*, EN1, EN1+1, EN1+2, EN1+4 , EN1+5, EN1+7, EN1+8, EN1+9, EN1+10, EN1+11, EN1+12, EN1+13, EN1+14, EN2* , EN2+1, EN2+3, EN2+10, EN2+11, EN2+12, EN2+13, EN2+15, EN2+18, EN2+20, EN2+21 , EN2+22, EN2+23, EN2+24, EN2+27, EN2+28, EN2+30, EN2+38, RESPONSE+2, RESPONSE+8, RESPONSE+9 , RESPONSE+11, RESPONSE+12, RESPONSE+13, R1+1, R1+2, R1+4, R1+5, R1+6, R1+7, R1+8 |
| >> ORIT | EN1+1, EN1+9, SET+7 |
| ORK | EN+5~, EN2+48, EN2+50 |
| ORK( | EN2+38*, EN2+39*, EN2+40, EN2+42, EN2+43, EN2+44*, EN2+45*, EN2+46*, EN2+47*, EN2+55 , EN2+56 |
| ORKI | EN2+49~, EN2+55*, EN2+56, EN2+57 |
| >> ORL | EN+14 |
| ORLINE | EN2+41~, EN2+44*, EN2+45* |
| ORLOC | SET+3~, SET+6*, SET+7 |
| ORLOG | NEW~, EN+10 |
| ORMONOI | EN2+58~*, EN2+59, EN2+61, EN2+62 |
| ORMONOQ | EN2+58~*, EN2+60* |
| >> ORNP | EN1, EN1+2, EN1+7, EN2+16, EN2+19, SET+7, SET+8 |
| >> ORPIFN | SET+4*, SET+7, SET+8, SET+9, SET+10, SET+12 |
| ORPKG | NEW~, EN+9 |
| ORPKIU | EN2+2~, EN2+5*, EN2+6 |
| ORRFSID | EN1+16~, EN1+17*, EN1+18, EN1+20, EN1+22 |
| ORRULE | EN2+41~, EN2+42*, EN2+44, EN2+45 |
| >> ORSLDEA | EN1+10 |
| >> ORSLOG | SET+5 |
| >> ORSRC | EN+15 |
| >> ORTS | EN+14 |
| >> ORVP | EN+6, EN1, EN1+11, EN1+12, EN1+13, EN1+14, EN2+6, SET+3, SET+7, SET+9 , SET+10 |
| >> ORY | EN2+6, EN2+7 |
| PAT | RESPONSE+1~, RESPONSE+2*, R1+1, R1+7, ACTION+1~, ACTION+5*, ACTION+10, ACTION+11, ACTION+12, ACTION+18 , ACTION+19, ACTION+20 |
| PATID | XX+15~, XX+26*, XX+28 |
| PKG | EN+5~, EN+9*, EN+13, EN1, EN2+4, SET+3~, SET+5*, SET+7 |
| PROMPT | RESPONSE+1~, RESPONSE+3*, RESPONSE+4, RESPONSE+5, RESPONSE+6, RESPONSE+7, RESPONSE+8 |
| PROV | PROVIDER~, PROVIDER+1, PROVIDER+3, PROVIDER+4, ACTION~, ACTION+15, ACTION+17 |
| MERGE112+1~, MERGE112+3*, MERGE112+4, MERGE112+5 | |
| REASON | ACTION~, ACTION+21 |
| SIG | ACTION+1~, ACTION+5*, ACTION+15, ACTION+20 |
| SIGNREQD | EN+5~, EN+7*, EN1, EN1+2, EN1+13 |
| START | RESPONSE+1~, RESPONSE+2*, R1+1, R1+7 |
| STS | EN+5~, EN+11*, EN+18*, EN1+1, EN1+2, EN1+12, SET+3~, SET+5*, SET+7, SET+8 , SET+10 |
| TMPARR | MERGE112+1~, MERGE112+6 |
| TOTAL | NEXTIFN+1~, NEXTIFN+4*, NEXTIFN+6, ACTION+1~, ACTION+7*, ACTION+14*, ACTION+22 |
| TRSPEC | EN+5~, EN+13*, EN+14*, EN1, SET+3~, SET+6*, SET+7 |
| TXT | ACTION+1~, ACTION+6*, ACTION+15 |
| TYPE | EN+5~, EN+15*, EN1+1, RESPONSE+1~, RESPONSE+5*, RESPONSE+10, RESPONSE+11, RESPONSE+12 |
| U | XX+6, XX+9, XX+10, XX+11, XX+12, XX+18, XX+21, XX+22, XX+23, XX+25 , XX+26, XX+27, RN+6, RN+7, RN+10, MERGE112+4, EN+7, EN+9, EN+11, EN+12 , EN+15, EN1, EN1+1, EN1+2, EN1+4, EN1+10, EN2+16, EN2+17, EN2+19, EN2+21 , EN2+23, EN2+24, EN2+38, EN2+39, EN2+43, EN2+63, NEXTIFN+4, NEXTIFN+6, RESPONSE+2, RESPONSE+8 , RESPONSE+9, RESPONSE+13, R1+8, PROVIDER+3, PROVIDER+4, ACTION+5, ACTION+6, ACTION+7, ACTION+9, ACTION+10 , ACTION+11, ACTION+12, ACTION+13, ACTION+15, ACTION+22, SET+7, SET+12 |
| USR | EN+5~, EN+10*, EN1, EN1+2, EN2+17 |
| VALUE | MERGE112+1~, MERGE112+4*, MERGE112+6, RESPONSE+1~, RESPONSE+7*, RESPONSE+10*, RESPONSE+11, RESPONSE+12 |
| WHEN | XX+15~, XX+27*, XX+28, ACTION~, ACTION+3*, ACTION+15, ACTION+16, ACTION+17, ACTION+18, ACTION+19 , ACTION+20 |
| WHO | ACTION~, ACTION+3*, ACTION+15 |
| X | EN+5~, EN1+19~, EN1+20*, EN1+21*, EN1+22, EN2+21*, EN2+23*, EN2+37*, EN2+38, EN2+39 , RESPONSE+1~, R1+1*, R1+5*, R1+6, R1+7, RESUME+3~, RESUME+5*, ACTION+1~, ACTION+5*, ACTION+6* , ACTION+9*, ACTION+10, ACTION+11, ACTION+12, ACTION+13, SET+3~ |
| Y | RESUME+3~, RESUME+7 |
