PSGOEE ;BIR/CML-EDIT ACTIVE OR NON VERIFIED ORDERS ;DEC 07, 2022@14:30
Source file <PSGOEE.m>
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 |
---|---|---|
Inpatient Medications | 12 | PSGOE1 PSGOEC PSGOEE0 PSGOEF PSGOER PSJ LM IV AC/EDIT PSJCLOR2 PSJCOMR PSJI LM EDIT PSJLMGUD PSJOE PSJOE1 |
Kernel | 1 | ^ORD(101 |
Name | Comments | DBIA/ICR reference |
---|---|---|
531 | ; edit orders in 53.1
|
|
ENF | ; Entry point
|
|
ACT | ; Perform Edit
|
|
ACT1 | ; Continue editing
|
|
EDIT | ; Edit
|
|
EDLOOP | ; Continue prompting for fields to edit.
|
|
OC | ;Perform OC (only when OI or Dosage was edited) & dosing check
|
|
CHKDD | ;*** Check inactive Dispense drug within the order.
|
|
CKDT | ; Check if new start/stop dates should be calculated.
|
|
NEW3 | ;
|
|
NEW | ;
|
|
UPD | ;
|
|
OUT | ;
|
|
DONE | ;
|
|
DONE1 | ;
|
|
K1 | ;
|
|
ABORT | ; Display no change message and pause.
|
|
GTSTATUS | ; Determine status of new order and set LM title.
|
|
ASKOVR(Y,PSJOVRON,PSJSTARI) | ||
FIELDS | ;
|
|
31 | ;;101^PSGOE8;PSGOPD;PSGPD;101;1
|
|
32 | ;;109^PSGOE8;PSGODO;PSGDO;109;PSGODO]""
|
|
33 | ;;10^PSGOE81;PSGOSD;PSGSD;10;0
|
|
34 | ;;3^PSGOE8;PSGOMR;PSGMR;3;1
|
|
35 | ;;25^PSGOE81;PSGOFD;PSGFD;25;0
|
|
36 | ;;7^PSGOE8;PSGOST;PSGST;7;0
|
|
37 | ;;5^PSGOE82;PSGOSM;PSGSM;5;0
|
|
38 | ;;26^PSGOE8;PSGOSCH;PSGSCH;26;1
|
|
39 | ;;39^PSGOE81;PSGOAT;PSGAT;39;0
|
|
310 | ;;1^PSGOE82;PSGOPR;PSGPR;1;1
|
|
311 | ;;8^PSGOE81;PSGOSI;PSGSI;8;0
|
|
312 | ;;2^PSGOE82;;;2;0
|
|
313 | ;;40^PSGOE82;;;40;0
|
|
314 | ;;132^PSGOE41;PSGOIND;PSGIND;132;0
|
|
315 | ;;50^PSGOE82;P("CLINO");P("CLIN");113;0
|
|
316 | ;;51^PSGOE82;P("APPTO");P("APPT");126;0
|
|
51 | ;;101^PSGOE9;PSGOPD;PSGPD;101;1
|
|
52 | ;;109^PSGOE9;PSGODO;PSGDO;109;PSGODO]""
|
|
53 | ;;10^PSGOE91;PSGOSD;PSGSD;10;1
|
|
54 | ;;3^PSGOE9;PSGOMR;PSGMR;3;1
|
|
55 | ;;34^PSGOE91;PSGOFD;PSGFD;34;1
|
|
56 | ;;7^PSGOE9;PSGOST;PSGST;7;0
|
|
57 | ;;5^PSGOE92;PSGOSM;PSGSM;5;0
|
|
58 | ;;26^PSGOE9;PSGOSCH;PSGSCH;26;1
|
|
59 | ;;41^PSGOE91;PSGOAT;PSGAT;41;0
|
|
510 | ;;1^PSGOE92;PSGOPR;PSGPR;1;1
|
|
511 | ;;8^PSGOE91;PSGOSI;PSGSI;8;0
|
|
512 | ;;2^PSGOE92;;;2;0
|
|
513 | ;;15^PSGOE92;;;15;0
|
|
514 | ;;132^PSGOE41;PSGOIND;PSGIND;132;0
|
|
515 | ;;50^PSGOE82;P("CLINO");P("CLIN");130;0
|
|
516 | ;;51^PSGOE82;P("APPTO");P("APPT");131;0
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^PS(53.1 - [#53.1] | Classic Fileman Calls, GET1^DIQ |
55.06 | GET1^DIQ |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^PS(53.1 - [#53.1] | NEW+2, NEW+5, NEW+12*, NEW+14, UPD+4, UPD+6, UPD+37, DONE+1, DONE1+17 |
^PS(53.45 - [#53.45] | NEW+1, UPD+13, UPD+15, UPD+19, UPD+30*, UPD+68, DONE1+18! |
^PS(55 - [#55] | NEW+3, NEW+11*, UPD+6, UPD+13, UPD+15, UPD+16*, UPD+21, UPD+22, UPD+29*, UPD+37 , UPD+51, UPD+52*, UPD+55*, DONE1+16 |
^PS(58.7 - [#58.7] | UPD+48 |
^SC - [#44] | UPD+39, UPD+40 |
^TMP("PSGSI" | UPD+19!*, UPD+30, UPD+34! |
^TMP("PSJCOM" | DONE1+6, DONE1+7 |
^TMP("PSODAOC" | NEW+17* |
^TMP($J | DONE1+6!, DONE1+8!, DONE1+9, DONE1+10!, DONE1+11 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
>> % | PSGOEE+9 |
>> %X | UPD+66* |
>> %Y | UPD+66* |
ANQX | ACT+1~, ACT+3*, ACT+7, OC+4~, OC+6*, OC+7* |
BACK | K1+1! |
CLOZFLG | ACT+4~*, ACT+5, OC+4~*, OC+5, OC+6, DONE1+3~*, DONE1+4 |
DA | NEW+15!*, UPD+3!, UPD+24~, UPD+33*, UPD+58*, UPD+63*, UPD+72*, DONE1+5~*, DONE1+20! |
DA(1 | UPD+33*, UPD+58*, DONE1+5* |
>> DFN | NEW+1, NEW+3, NEW+13, UPD+5, UPD+6, UPD+9, UPD+11, UPD+20, UPD+29, UPD+31 , UPD+40, UPD+43, UPD+65, UPD+68, DONE1+2, DONE1+3, DONE1+5, DONE1+6, DONE1+8, DONE1+9 , DONE1+10, DONE1+11, DONE1+14 |
DIE | NEW+15!*, UPD+24~, UPD+33*, UPD+58*, UPD+63*, DONE1+5~*, DONE1+20! |
DIR | DONE1+20! |
DP | DONE1+20! |
DR | EDLOOP+3, NEW+15!*, UPD+18, UPD+24~, UPD+25*, UPD+28*, UPD+33*, UPD+58*, UPD+63*, DONE1+5~* , DONE1+7*, DONE1+9*, DONE1+11*, DONE1+20! |
DRG | DONE1+20! |
DUR | NEW+15~* |
DUZ | EDLOOP+8, UPD+72 |
F1 | EDIT+6*, K1+1! |
F2 | K1+1! |
I | UPD+46~, UPD+47*, UPD+48* |
I3 | ASKOVR+1~, ASKOVR+4* |
II | UPD+18~*, ASKOVR+1~, ASKOVR+4* |
INDCHNG | UPD+11~*, UPD+60, UPD+63, UPD+64, UPD+65 |
>> J | UPD+48* |
>> LIMIT | EDIT+4* |
MSG | EDIT+5*, K1+1! |
ND | UPD+70*, DONE1+20! |
ND0 | DONE1+20! |
ND1 | UPD+70*, DONE1+20! |
ND2 | UPD+70*, DONE1+20! |
ND2P1 | UPD+70*, DONE1+20! |
OLCLN | UPD+36~, UPD+37*, UPD+38, UPD+39, UPD+40, UPD+41, UPD+42, UPD+43, UPD+45, UPD+49 |
ORD | UPD+24~ |
ORIFN | UPD+70*, DONE1+20! |
OSTA | UPD+50~, UPD+51*, UPD+55 |
>> P("APPT" | UPD+41 |
>> P("CLIN" | UPD+38, UPD+45 |
>> P("CLINO" | UPD+45 |
>> P("OPI" | UPD+25 |
PDTYP | UPD+50~, UPD+53* |
>> PSBSTR | CKDT+4 |
>> PSGACT | NEW+20* |
PSGAL | DONE1+20! |
PSGALEF | DONE1+20! |
PSGAT | CKDT+2, NEW+9, DONE1+20! |
>> PSGCANFL | ACT+13*, OUT+1* |
>> PSGDEF | EDIT+4*, EDIT+6 |
>> PSGDFLG | ABORT+2* |
>> PSGDI | ABORT+2* |
PSGDN | DONE1+13~* |
PSGDO | EDLOOP+9, DONE1+21! |
PSGDRG | OC+6*, OC+7, DONE1+3~, DONE1+4*, DONE1+13 |
>> PSGDT | PSGOEE+9*, EDLOOP+8, UPD+72 |
>> PSGEBN | EDLOOP+8* |
PSGEDIT | NEW+7*! |
>> PSGEDT | DONE1+2 |
PSGEFN | PSGOEE+9!, DONE1+20!, K1+1! |
PSGEFN( | ASKOVR+4 |
>> PSGETDD | OC+7 |
PSGF2 | K1+1! |
PSGFD | EDLOOP+9, CKDT+4, CKDT+5, CKDT+6*, CKDT+7, NEW+9, DONE1+19! |
PSGFDN | CKDT+6*, DONE1+20! |
PSGHSM | DONE1+20! |
PSGIND | UPD+11, DONE1+21! |
>> PSGLIN | EDLOOP+8* |
PSGMR | EDLOOP+9, DONE1+20! |
PSGMRN | DONE1+20! |
>> PSGNEFD | CKDT+5*, CKDT+6, NEW+9* |
>> PSGNESD | CKDT+6, NEW+9* |
PSGNEWDT | CKDT+4, CKDT+6*, OUT+1!, K1+1! |
PSGODO | K1+1! |
>> PSGOEAV | ENF+7, ACT1+2, EDLOOP+18, NEW+8, NEW+14, NEW+16, NEW+19 |
PSGOEE | EDIT+4*, EDIT+5*, EDIT+6*, EDLOOP+2, NEW+9*, UPD+2, DONE1+20! |
PSGOEEF | PSGOEE+9!*, ENF+9*, ACT1+2*, DONE1+20!, ABORT+5!* |
PSGOEEF( | EDIT+3* |
PSGOEEF(10 | CKDT+8* |
PSGOEEF(25 | CKDT+7* |
PSGOEEG | EDIT+6, DONE1+20! |
PSGOEEND | K1+1! |
PSGOEENO | ENF+3, ENF+4~*, ENF+6~*, ACT+9, ACT+10~*, ACT+12~*, ACT+13, EDLOOP+3, EDLOOP+5, EDLOOP+6 , EDLOOP+13*, EDLOOP+14, EDLOOP+16, OC+9, UPD+17~*, UPD+72, DONE1+21! |
PSGOEER | ACT+2!, EDIT+3*, EDIT+4, EDIT+5*, EDIT+6, EDLOOP+13, EDLOOP+14, K1+1! |
PSGOEEWF | UPD+66, UPD+67*, DONE1+20!, ABORT+2, ABORT+3 |
>> PSGOEF | ACT+13, DONE+1, DONE1+19 |
PSGOEOS | NEW+10! |
>> PSGOEPR | NEW+9* |
PSGOES | CKDT+5~*, NEW+19 |
PSGOFD | CKDT+4, CKDT+5*, CKDT+7, K1+1! |
PSGOFDN | K1+1! |
PSGOIND | K1+1! |
PSGOMR | K1+1! |
PSGOMRN | K1+1! |
>> PSGOORD | NEW+10*, NEW+11, NEW+12, NEW+13 |
PSGOPD | K1+1! |
PSGOPDN | K1+1! |
PSGOPR | ACT+6, K1+1! |
PSGOPRN | K1+1! |
>> PSGORD | PSGOEE+9, ENF+9, ACT+4, ACT1+2, EDIT+1, OC+4, OC+11, NEW+1, NEW+2, NEW+3 , NEW+5, NEW+7, NEW+10, NEW+11, NEW+12, NEW+13, NEW+14, NEW+15, NEW+17, NEW+18 , NEW+19, NEW+20, UPD+4, UPD+5, UPD+6, UPD+8, UPD+9, UPD+11, UPD+13, UPD+15 , UPD+16, UPD+20, UPD+23, UPD+37, UPD+39, UPD+40, UPD+42, UPD+43, UPD+45, UPD+51 , UPD+52, UPD+53, UPD+55, UPD+58, UPD+61, UPD+63, UPD+64, UPD+65, UPD+67, UPD+70 , UPD+71, UPD+72*, OUT+1, DONE+1, DONE1+2, DONE1+3, DONE1+5, DONE1+6, DONE1+7, DONE1+10 , DONE1+11, DONE1+16, DONE1+17 |
PSGOROE1 | EDLOOP+2*, DONE1+20! |
PSGORQF | EDLOOP+15, OC+2!, OC+5, OC+6*, OC+7*, OC+8*, OC+11 |
PSGOSCH | CKDT+4, K1+1! |
PSGOSD | CKDT+4, CKDT+8, K1+1! |
PSGOSDN | K1+1! |
PSGOSI | K1+1! |
PSGOSM | K1+1! |
PSGOST | CKDT+4, K1+1! |
PSGOSTN | K1+1! |
>> PSGP | ENF+9, ACT+4, ACT1+2, OC+4, OC+7, OC+10, NEW+7, NEW+11, NEW+15, NEW+19 , NEW+20, UPD+13, UPD+15, UPD+16, UPD+33, UPD+37, UPD+51, UPD+52, UPD+53, UPD+55 , UPD+58, UPD+70, UPD+71, UPD+72, OUT+1, DONE1+16, ASKOVR+5 |
PSGPD | NEW+9, DONE1+20! |
PSGPDN | NEW+9, DONE1+20! |
PSGPDNX | EDLOOP+5, EDLOOP+10!, CKDT+4 |
PSGPDRG | EDLOOP+9, NEW+9*, K1+1! |
PSGPDRGN | NEW+9*, K1+1! |
>> PSGPFLG | ABORT+3* |
PSGPR | NEW+9, DONE1+20! |
>> PSGPRIO | GTSTATUS+2 |
PSGPRN | DONE1+20! |
>> PSGS0XT | EDLOOP+11 |
>> PSGS0Y | EDLOOP+11, CKDT+2*, NEW+9* |
PSGSCH | EDLOOP+9, CKDT+4, DONE+1, DONE1+19! |
PSGSD | EDLOOP+9, CKDT+4, CKDT+6*, CKDT+8, NEW+9, DONE1+19! |
PSGSDEDT | ACT+1~, CKDT+1 |
PSGSDN | CKDT+6*, DONE1+20! |
PSGSI | UPD+18*, UPD+29, DONE1+20! |
PSGSIF | UPD+17~, UPD+18*, UPD+25, UPD+28 |
PSGSM | DONE1+20! |
PSGST | EDLOOP+9, EDLOOP+11, CKDT+4, DONE1+19! |
>> PSGSTAT | GTSTATUS+1*, GTSTATUS+2 |
PSGSTN | DONE1+20! |
PSGTOL | UPD+72*, DONE1+20! |
PSGTOO | UPD+72*, DONE1+20! |
PSGUOW | UPD+72*, DONE1+20! |
PSJACEPT | ENF+2!, ACT+8, EDLOOP+2*, EDLOOP+10!, EDLOOP+12*, EDLOOP+17*, EDLOOP+18 |
PSJALGY1 | ACT+1~, EDIT+3*, OC+9 |
PSJALLGY | OC+1~ |
PSJAP | UPD+46~, UPD+47*, UPD+49 |
PSJCHILD | UPD+21~, UPD+22*, UPD+23, UPD+25, UPD+27, UPD+29, UPD+31, UPD+33 |
>> PSJCOM | NEW+5*, UPD+4*, UPD+19, UPD+21, UPD+22 |
PSJCOMSI | UPD+19! |
PSJDD | OC+1~, OC+8*, OC+10, OC+11 |
>> PSJDSVFY | EDLOOP+14* |
PSJF12 | UPD+14~*, UPD+15*, UPD+16 |
PSJFSI | NEW+1~*, NEW+13 |
PSJHLDFN | UPD+50~, UPD+53* |
PSJNOO | EDLOOP+1!, EDLOOP+15*, EDLOOP+16*, EDLOOP+17 |
PSJOEORD | UPD+21~*, UPD+22 |
>> PSJOP | ACT+5 |
PSJORD | ENF+9*, NEW+20*, UPD+63, UPD+64, UPD+65, UPD+68, DONE1+8, DONE1+9, ASKOVR+2, ASKOVR+3~* , ASKOVR+5 |
PSJOVRON | ASKOVR~, ASKOVR+2*, ASKOVR+3 |
PSJPDO | UPD+46~, UPD+47* |
>> PSJRNFLG | ABORT+4 |
>> PSJSTAR | ASKOVR+4 |
PSJSTARI | EDIT+1, ASKOVR~, ASKOVR+1, ASKOVR+4*, ASKOVR+5 |
>> PSJSYSL | UPD+72 |
>> PSJSYSP | NEW+1, UPD+13, UPD+15, UPD+19, UPD+30, UPD+66, UPD+68, DONE1+18 |
>> PSJSYSP0 | GTSTATUS+1 |
>> PSJSYSU | NEW+19 |
PSJX12 | UPD+14~, UPD+15* |
>> Q | EDIT+3*, UPD+66* |
>> Q1 | EDIT+3* |
RXO | UPD+50~, UPD+53* |
SIARRAY | NEW+1~*, NEW+2*, NEW+3*, UPD+6~*, UPD+7, UPD+8, UPD+9 |
TMP | UPD+17~* |
U | EDLOOP+8, EDLOOP+9, OC+6, CKDT+6, UPD+63, UPD+64, UPD+65, DONE1+4, GTSTATUS+1 |
>> VALM("TITLE" | GTSTATUS+2* |
VALMBCK | EDLOOP+2*, EDLOOP+3*, EDLOOP+10!, EDLOOP+18*, UPD+71* |
VALMSG | EDLOOP+4!, EDLOOP+7* |
X | EDIT+3*, UPD+28~, UPD+29*, DONE1+16* |
XREF | DONE1+20! |
Y | EDIT+1, EDIT+3, EDLOOP+2, ASKOVR~, ASKOVR+1 |
YY | ASKOVR+1~*, ASKOVR+2, ASKOVR+4 |
Name | Field # of Occurrence |
---|---|
$T(@(3) | EDIT+3 |