Routine: RASTEXT

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Entry Points
Interaction Calls

Information

RASTEXT ;HISC/CAH,FPT,GJC AISC/TMP,TAC,RMO-Called by Status Tracking display,edit. Allow selection/edit of case if called from edit option ;18 Dec 2017 12:39 PM

Source Information

Source file <RASTEXT.m>

Entry Points

Name	Comments	DBIA/ICR reference
EN1
START
GETCN
EXT	;p137/KLM - updated for printset SSAN display - use RACNI.
SCRN
WRT
HD
Q	; Kill and quit
LMAX()	;

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Your access to Imaging Locations is nonexistent." Line Location: EN1+10
Function Call: WRITE	Prompt: !?5,"Contact your ADPAC for further assistance." Line Location: EN1+11
Function Call: WRITE	Prompt: !!?5,"Current Division: ",$P(^DIC(4,+RAMDIV,0),U,1) Line Location: EN1+13
Function Call: WRITE	Prompt: !?5,"Current Imaging Type: ",RAIMGTY,! Line Location: EN1+14
Function Call: WRITE	Prompt: *7,!,"No incomplete statuses on file" Line Location: EN1+42
Function Call: WRITE	Prompt: @IOF,!?1,RAGENTXT,?39,RADIVHD Line Location: HD+6
Function Call: WRITE	Prompt: !?1,"Date : ",$E(DT,4,5),"/",$E(DT,6,7),"/",$E(DT,2,3)," ",RATIME,?39,"Status : ",RASTOUT Line Location: HD+7
Function Call: WRITE	Prompt: !?1,"Locations: " Line Location: HD+8