Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PSJOE1

Package: Inpatient Medications

Routine: PSJOE1


Information

PSJOE1 ;BIR/CML3 - UD OE FOR COMBINED OE ;Oct 14, 2020@10:48:40

Source Information

Source file <PSJOE1.m>

Call Graph

Call Graph Total: 33

Package Total Call Graph
Inpatient Medications 21 ($$ENDD,$$ENDTC,$$ENDTC2,$$ENNPN)^PSGMI  ^PSGOE1  ^PSGOE3  ^PSGOE4  ^PSGOE7  (CHKDD,CKDT,EDIT,GTSTATUS)^PSGOEE  (ENNOU,ENSFE)^PSGOEE0  ^PSGOES  
^PSGOETO  CHK^PSGOEV  EN^PSGPEN  ENDDC^PSGSICHK  $$ISCLOZ^PSJCLOZ  GETUD^PSJLMGUD  INIT^PSJLMUDE  $$OINAME^PSJLMUTL  
$$DD53P45^PSJMISC  SETOC^PSJNEWOC  IN^PSJOCDS  CLOZSND^PSJOE  $$ENNOO^PSJUTL5  
VA FileMan 6 (,DD)^%DT  C^%DTC  YN^DICN  ^DIE  $$GET1^DIQ  ^DIR  
List Manager 2 EN^VALM  FULL^VALM1  
Kernel 1 ($$FMDIFF,$$FMTE)^XLFDT  
Order Entry Results Reporting 1 VST^ORWCV  
Registration 1 WIN^DGPMDDCF  
Scheduling 1 $$SDIMO^SDAMA203  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Inpatient Medications 5 PSGOEF  PSIVORE  PSJOE0  PSJU LM ACCEPT EDIT  PSJU LM ACCEPT EDIT NEW  

Entry Points

Name Comments DBIA/ICR reference
CM ; Ask Clinic - Clinic Medication Order ;*p319
SVST ;get scheduled/new visits ;*p319
V1
PVST() ;ask about past visit
EN ;
AD ; Ask Drug
OC ;
EDIT(PROMPT) ;
; Edit fields in a UD order.
; PROMPT=0 - Select fields to edit by number.
; PROMPT=1 - Prompt to select fields for editing.
DONE ;
GDO ;
FTD ;
TAM ; Try Again Message
ACTLOC(LOC) ; Function: returns TRUE if active hospital location; p319
; IA# 10040.
IMOLOC(LOC,PSGP) ; Is it an IMO location; p319

External References

Name Field # of Occurrence
^%DT CM+15
DD^%DT CM+13
C^%DTC SVST+4, SVST+5
WIN^DGPMDDCF ACTLOC+3
YN^DICN GDO+1
^DIE AD+43
$$GET1^DIQ SVST+2, SVST+3
^DIR CM+7, V1+3, PVST+4, OC+5
VST^ORWCV SVST+6
$$ENDD^PSGMI AD+15, AD+16, AD+17, EDIT+15
$$ENDTC^PSGMI AD+15, AD+17, EDIT+15
$$ENDTC2^PSGMI AD+16
$$ENNPN^PSGMI AD+17, EDIT+15
^PSGOE1 AD+48
^PSGOE3 AD+11
^PSGOE4 AD+11
^PSGOE7 AD+7
CHKDD^PSGOEE EDIT+14
CKDT^PSGOEE EDIT+14
EDIT^PSGOEE EDIT+6
GTSTATUS^PSGOEE EDIT+14
ENNOU^PSGOEE0 EDIT+8, EDIT+9
ENSFE^PSGOEE0 AD+48
^PSGOES AD+10
^PSGOETO AD+30
CHK^PSGOEV AD+18, EDIT+16
EN^PSGPEN AD+47
ENDDC^PSGSICHK OC+12
$$ISCLOZ^PSJCLOZ AD+28, AD+37, OC+4
GETUD^PSJLMGUD AD+48
INIT^PSJLMUDE EDIT+17
$$OINAME^PSJLMUTL AD+15
$$DD53P45^PSJMISC OC+9
SETOC^PSJNEWOC AD+46, AD+50
IN^PSJOCDS OC+13
CLOZSND^PSJOE AD+44
$$ENNOO^PSJUTL5 AD+26
$$SDIMO^SDAMA203 IMOLOC+3
EN^VALM AD+20, AD+48
FULL^VALM1 CM+2, OC+8
$$FMDIFF^XLFDT V1+7
$$FMTE^XLFDT SVST+9, V1V1+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: CM+3
Function Call: WRITE
  • Prompt: !!?4,"Scheduled Clinic Appointment (",$$FMTE^XLFDT(STDT)," thru ",$$FMTE^XLFDT(ENDT),")"
  • Line Location: V1+0
Function Call: WRITE
  • Prompt: !,I,". ",$P(YY,"^"),?35,$$FMTE^XLFDT($P(YY,"^",2)),?55,$P(YY,"^",3)
  • Line Location: V1+1
Function Call: WRITE
  • Prompt: !,"Date/Time of Visit: ",$P(PSJVIS(VST),"^",2)
  • Line Location: V1+8
Function Call: WRITE
  • Prompt: IOSC,@IOSTBM,IORC
  • Line Location: AD+4
Function Call: WRITE
  • Prompt: !,"No order created."
  • Line Location: AD+29
Function Call: WRITE
  • Prompt: !!,"Drug is not found in Formulary List."
  • Line Location: GDO+1
Function Call: WRITE
  • Prompt: !,"Would you like to try to search the list again"
  • Line Location: GDO+1
Function Call: READ
  • Formatting: !!
  • Prompt: "Enter FREE TEXT DRUG: "
  • Variable: PSGDRGN
  • Timeout: DTIME
  • Line Location: FTD+1
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: FTD+1
Function Call: WRITE
  • Prompt: $C(7)," ??",!?2,"(",X," not allowed.)"
  • Line Location: FTD+2
Function Call: WRITE
  • Prompt: !!?2,"ENTER DRUG ORDERED (1-39 CHARACTERS).",!?2,"Since the drug cannot be found in the DRUG file, enter the drug name here",!,"exactly as ordered. Press the RETURN key (or enter an '^') to skip over this",!,"drug, or to again search the"
  • Line Location: FTD+4
Function Call: WRITE
  • Prompt: " DRUG file for this one."
  • Line Location: FTD+5
Function Call: WRITE
  • Prompt: !!," Enter a 'Y' to try again to find the drug ordered from the Formulary. (The",!,"order cannot become active until a Formulary drug has been entered.) Enter 'N'",!,"to enter the drug ordered as free text for later reference."
  • Line Location: TAM+1
Function Call: WRITE
  • Prompt: " Enter '^' to exit.",!
  • Line Location: TAM+2
Routine Call
  • DIE
  • Line Location:
    • AD+43
Routine Call
  • DIR
  • Line Location:
    • CM+7
    • V1+3
    • PVST+4
    • OC+5
Routine Call
  • VALM
  • Line Location:
    • AD+20
    • AD+48

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PS(53.46 - [#53.46] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^PS(53.1 - [#53.1] AD+50
^SC - [#44] CM+5, ACTLOC+2, ACTLOC+3, ACTLOC+4, IMOLOC+5
^SC("AE" IMOLOC+6
^TMP("PSJCOM" AD+32*
^TMP("PSODAOC" AD+31*
^TMP($J AD+42!
^XTMP("PSJ4D-" AD+28!

Label References

Name Line Occurrences
$$PVST V1+7
@( EDIT+6
AD PSJOE1+10, AD+10, AD+12, AD+21, AD+29, AD+35, AD+51
CM AD+6
DONE AD+6, AD+9, AD+21
FTD FTD+2, FTD+5
OC AD+22
SVST CM+10
TAM GDO+1
V1 V1+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DONE+1!, GDO+1*, GDO+2
%DT CM+12!, CM+14*, CM+17!
%DT("A" CM+14*
%DT("B" CM+13*, CM+14*
ANQX AD+2!, AD+21, OC+4, OC+5*
APTMAX SVST+1~, SVST+3*, SVST+5
APTMIN SVST+1~, SVST+2*, SVST+4
C SVST+1~, SVST+8*, SVST+9*, SVST+10, SVST+11*, V1+2, V1+5
>> CHK OC+5*
CLOZFLG OC+4~*, OC+6
D0 ACTLOC+2~, ACTLOC+3*
DA AD+38~*, DONE+1!
DA(1 AD+38*
>> DFN AD+28
DIC DONE+1!
DIE AD+38~*, DONE+1!
DIR CM+1!, CM+7!, SVST+1~, V1+2!, PVST+1~, OC+5!
DIR("A" CM+4*, V1+3*, PVST+3*, OC+5*
DIR("B" CM+5*
DIR("S" CM+6*
DIR(0 CM+4*, V1+2*, PVST+2*, OC+5*
DIRUT CM+1!, V1+4, PVST+5, OC+5
DR AD+38~*, AD+39*, AD+40*, AD+41*, AD+42*, EDIT+7*, EDIT+8, DONE+1!
DRG DONE+1!
DRGN DONE+1!
DRGO DONE+1!
DT SVST+4, SVST+5, V1+7, ACTLOC+5
DTIME FTD+1
>> DTOUT CM+15
DUZ AD+17, EDIT+15
ENDT SVST+1~, SVST+5*, SVST+6, V1
>> I V1+1*
>> IOBM AD+4*
>> IORC AD+4
>> IOSC AD+4
IOSL AD+4
>> IOSTBM AD+4
>> IOTM AD+4*
LOC ACTLOC~, ACTLOC+2, ACTLOC+3, ACTLOC+4, IMOLOC~, IMOLOC+2, IMOLOC+3, IMOLOC+5, IMOLOC+6
ND DONE+1!
ND2 DONE+2!
ND2P1 AD+2!, DONE+2!
OC DONE+1!
ORIFN DONE+1!
ORIT DONE+1!
ORPK DONE+1!
ORSTOP DONE+1!
ORSTRT DONE+1!
ORSTS DONE+1!
ORTX DONE+1!
>> P("APPT" CM+13
>> P("CLIN" CM+5
PC PSJOE1+10*, EN+1*, AD+10*, DONE+1!
PROMPT EDIT~, EDIT+6
>> PSGAT AD+17*
>> PSGCTDD AD+41
>> PSGDN OC+6*
PSGDO AD+18, EDIT+16, DONE+1!
PSGDREQ AD+4~
PSGDRG AD+3!
PSGDRGN AD+3!, FTD+1*, FTD+2, FTD+3
>> PSGDT AD+17, EDIT+15
PSGDUR AD+2!, DONE+2!
>> PSGEBN AD+17*, EDIT+15*
PSGEDTOI AD+4~, OC+10, EDIT+12*, DONE+2!
PSGEFN AD+13!*, AD+14*
PSGEFN( AD+13*, AD+14*
>> PSGETDD AD+40
>> PSGFD AD+19*, EDIT+16
>> PSGFDN AD+15*, AD+16*
PSGFDX AD+4~
>> PSGLI AD+17*, EDIT+15*
>> PSGLIN AD+17*, EDIT+15*
PSGMR AD+18, EDIT+16, DONE+1!
PSGMRN DONE+1!
PSGNEDFD DONE+1!
PSGNEFD AD+15, AD+16, AD+18, AD+19, DONE+1!
PSGNEFDO AD+4~
PSGNESD AD+15, AD+16, AD+18, AD+19, DONE+1!
>> PSGNTDD AD+39, OC+6*
>> PSGOEAV AD+17, AD+35
PSGOEE AD+13!, AD+30!, AD+47
PSGOEEF AD+13!, AD+48*
>> PSGOEEG EDIT+6*
>> PSGOEENO EDIT+7*, EDIT+8, EDIT+9, EDIT+13
>> PSGOEER EDIT+12
>> PSGOEEWF EDIT+6*
PSGOEOS AD+13!
PSGOES EDIT+9, DONE+1!
>> PSGOINST AD+15*
PSGORD AD+30, AD+31, AD+32, AD+38, AD+42, AD+46, AD+47, AD+48, AD+50, OC+13
, EDIT+17, DONE+1!
PSGOROE1 AD+12, DONE+1!
PSGORQF CM+10, V1+4*, PVST+5*, AD+4~, AD+5!, AD+9, AD+25, OC+2!, OC+9*, OC+13
PSGP SVST+6, AD+38, AD+42, AD+48, OC+12, EDIT+17, IMOLOC~, IMOLOC+2, IMOLOC+3
>> PSGPD AD+15*, AD+28, AD+37, OC+4
>> PSGPDN AD+15*
>> PSGPDRG AD+15, AD+18, EDIT+16
PSGRF AD+2!, DONE+2!
PSGRMV AD+2!, DONE+2!
PSGRMVT AD+2!, DONE+2!
PSGS0XT DONE+1!
PSGS0Y AD+17, DONE+1!
PSGSCH AD+18, EDIT+16, DONE+1!
>> PSGSD AD+19*, EDIT+16
>> PSGSDN AD+15*, AD+16*
PSGSDX AD+4~
PSGSI DONE+1!
>> PSGST AD+18, EDIT+16
>> PSGSTAT AD+17*
PSGX DONE+1!
PSJACEPT AD+20!, AD+21, AD+25*, AD+26, AD+29!
PSJALGY1 OC+1~, OC+11*
PSJALLGY OC+1~
PSJCLAPP CM+1!, CM+5*, CM+9*, CM+10, CM+16*, SVST+2, SVST+3, SVST+8, V1+8*, AD+8
AD+29!
>> PSJCM01 CM+8*, CM+15*, V1+4*, PVST+5*, AD+6, AD+14
>> PSJCMF AD+6, AD+8*
>> PSJCMO AD+6, AD+14
PSJDD OC+1~, OC+9*, OC+12, OC+13
>> PSJNEWOE EDIT+6, EDIT+7, EDIT+8
>> PSJNOO AD+26*, AD+27, AD+29
PSJNORD AD+4~*
PSJOCFG AD+2!, AD+4~*, AD+16, AD+50, DONE+2!
>> PSJORD AD+30*
>> PSJORQF AD+9*, AD+10*
>> PSJSYSP0 AD+11
>> PSJSYSU AD+47
>> PSJVIS( SVST+9*, SVST+11*, V1+1, V1+7, V1+8
PSJVST SVST+1~, SVST+6, SVST+7
PSJVST( SVST+8
PSJY IMOLOC+1~, IMOLOC+3*, IMOLOC+4, IMOLOC+6*, IMOLOC+8
>> PSODAND AD+32, OC+6*
PVST SVST+1~, V1+7*
>> SDIMO(1 IMOLOC+7!
STDT SVST+1~, SVST+4*, SVST+6, V1
U AD+15, AD+16, AD+17, AD+18, AD+50, OC+6, EDIT+15, EDIT+16, ACTLOC+5, IMOLOC+5
>> VALM("TM" AD+4
>> VALMBCK AD+20*, EDIT+7*, EDIT+8*
VALMSG EDIT+13!, EDIT+14*
VST SVST+1~, V1+6*, V1+8
X CM+1!, SVST+1~, SVST+4, SVST+5, AD+10, AD+13*, AD+14*, OC+6, FTD+2*, ACTLOC+2~
, ACTLOC+3, ACTLOC+4*, ACTLOC+5
X1 SVST+1~, SVST+4*, SVST+5*
X2 SVST+1~, SVST+4*, SVST+5*
XX SVST+1~, SVST+8*, V1+1*
Y CM+1!, CM+8, CM+9, CM+13*, CM+15, CM+16, SVST+1~, V1+5, V1+6, V1+7
, PVST+6, AD+20, EDIT+6, DONE+1!
YY SVST+1~, SVST+8*, SVST+9, V1+1*
Z DONE+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All