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 |  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 ;29 JAN 99 / 9:44 AM

Source Information

Source file <PSJOE1.m>

Call Graph

Call Graph Total: 17

Package Total Call Graph
Inpatient Medications 15 ($$ENDD,$$ENDTC,$$ENNPN)^PSGMI  ^PSGOE1  ^PSGOE3  ^PSGOE4  ^PSGOE7  (CHKDD,CKDT,EDIT,GTSTATUS)^PSGOEE  (ENNOU,ENSFE)^PSGOEE0  ^PSGOES  
^PSGOETO  CHK^PSGOEV  EN^PSGPEN  GETUD^PSJLMGUD  INIT^PSJLMUDE  $$OINAME^PSJLMUTL  $$ENNOO^PSJUTL5  
Registration 1 EN^VALM  
VA Fileman 1 YN^DICN  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Inpatient Medications 1 PSJOE0  

Entry Points

Name Comments DBIA/ICR reference
EN ;
AD ; Ask Drug
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 ;
FTD ;
TAM ; Try Again Message
GDO ;

External References

Name Field # of Occurrence
YN^DICN GDO+1
$$ENDD^PSGMI AD+8, AD+9, EDIT+13
$$ENDTC^PSGMI AD+8, AD+9, EDIT+13
$$ENNPN^PSGMI AD+9, EDIT+13
^PSGOE1 AD+17
^PSGOE3 AD+5
^PSGOE4 AD+5
^PSGOE7 AD+2
CHKDD^PSGOEE EDIT+12
CKDT^PSGOEE EDIT+10, EDIT+12
EDIT^PSGOEE EDIT+6
GTSTATUS^PSGOEE EDIT+12
ENNOU^PSGOEE0 EDIT+8, EDIT+9
ENSFE^PSGOEE0 AD+17
^PSGOES AD+4
^PSGOETO AD+15
CHK^PSGOEV AD+10, EDIT+14
EN^PSGPEN AD+16
GETUD^PSJLMGUD AD+17
INIT^PSJLMUDE EDIT+15
$$OINAME^PSJLMUTL AD+8
$$ENNOO^PSJUTL5 AD+13
EN^VALM AD+12, AD+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: IOSC,@IOSTBM,IORC
  • Line Location: AD+1
Function Call: WRITE
  • Prompt: !,"No order created."
  • Line Location: AD+14
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
  • Prompt: "Enter FREE TEXT DRUG: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: PSGDRGN
  • 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
  • VALM
  • Line Location:
    • AD+12
    • AD+17

Label References

Name Line Occurrences
@( EDIT+6
AD PSJOE1+6, AD+4, AD+6, AD+14, AD+15, AD+18
DONE AD+3
FTD FTD+2, FTD+5
TAM GDO+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% DONE+1!, GDO+1*, GDO+2
DA DONE+1!
DIC DONE+1!
DIE DONE+1!
DR EDIT+7*, EDIT+8, DONE+1!
DRG DONE+1!
DRGN DONE+1!
DRGO DONE+1!
DTIME FTD+1
DUZ AD+9, EDIT+13
>> IOBM AD+1*
>> IORC AD+1
>> IOSC AD+1
IOSL AD+1
>> IOSTBM AD+1
>> IOTM AD+1*
ND DONE+1!
OC DONE+1!
ORIFN DONE+1!
ORIT DONE+1!
ORPK DONE+1!
ORSTOP DONE+1!
ORSTRT DONE+1!
ORSTS DONE+1!
ORTX DONE+1!
PC PSJOE1+6*, EN+1*, AD+4*, DONE+1!
PROMPT EDIT~, EDIT+6
>> PSGAT AD+9*
PSGDO AD+10, EDIT+14, DONE+1!
>> PSGDRGN FTD+1*, FTD+2, FTD+3
>> PSGDT AD+9, EDIT+13
>> PSGEBN AD+9*, EDIT+13*
PSGEFN AD+7!*
PSGEFN( AD+7*
>> PSGFD AD+11*, EDIT+14
>> PSGFDN AD+8*
PSGFDX AD+1~
>> PSGLI AD+9*, EDIT+13*
>> PSGLIN AD+9*, EDIT+13*
PSGMR AD+10, EDIT+14, DONE+1!
PSGMRN DONE+1!
PSGNEDFD DONE+1!
PSGNEFD AD+8, AD+10, AD+11, DONE+1!
PSGNEFDO AD+1~
PSGNESD AD+8, AD+10, AD+11, DONE+1!
>> PSGOEAV AD+9, AD+15
PSGOEE AD+7!, AD+15!, AD+16
PSGOEEF AD+7!, AD+17*
>> PSGOEEG EDIT+6*
>> PSGOEENO EDIT+7*, EDIT+8, EDIT+9, EDIT+10, EDIT+11
>> PSGOEEWF EDIT+6*
PSGOEOS AD+7!
PSGOES EDIT+9, DONE+1!
>> PSGOINST AD+8*
PSGORD AD+15, AD+16, AD+17, EDIT+15, DONE+1!
PSGOROE1 AD+6, DONE+1!
PSGORQF AD+1~, AD+3
>> PSGP AD+17, EDIT+15
>> PSGPD AD+8*
>> PSGPDN AD+8*
>> PSGPDNX EDIT+10
>> PSGPDRG AD+8, AD+10, EDIT+14
PSGS0XT DONE+1!
PSGS0Y AD+9, DONE+1!
PSGSCH AD+10, EDIT+14, DONE+1!
>> PSGSD AD+11*, EDIT+14
>> PSGSDN AD+8*
PSGSDX AD+1~
PSGSI DONE+1!
>> PSGST AD+10, EDIT+14
>> PSGSTAT AD+9*
PSGX DONE+1!
PSJACEPT AD+12!, AD+13, AD+14!
>> PSJNEWOE EDIT+6, EDIT+7, EDIT+8
>> PSJNOO AD+13*, AD+14
PSJNORD AD+1~*
>> PSJORD AD+15*
>> PSJORQF AD+3*, AD+4*
>> PSJSYSP0 AD+5
>> PSJSYSU AD+16
U AD+8, AD+9, AD+10, EDIT+13, EDIT+14
>> VALM("TM" AD+1
>> VALMBCK AD+12*, EDIT+7*, EDIT+8*
VALMSG EDIT+11!, EDIT+12*
>> X AD+4, AD+7*, FTD+2*
Y AD+12, EDIT+6, DONE+1!
Z DONE+1!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Label References |  Local Variables |  All