Routine: RAMAINP

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

Info
Source
Entry Points
Interaction Calls
FileMan Files Accessed Via FileMan Db Call

Information

RAMAINP ;HISC/GJC AISC/TMP,RMO-Utility Files Print ;9/22/98 15:26

Source file <RAMAINP.m>

Name	Comments	DBIA/ICR reference
2	;;Long Active Procedure List
3	;;Major AMIS Code Print
4	;;Film Sizes Print
5	;;Diagnostic Code Print
6	;;Flash Card/Label Formatter Print
7	;;Complication Type Print
8	;;Contract/Sharing Agreements Print
9	;;Short Active Procedure List
10	;;Long Inactive Procedure List
11	;;Short Inactive Procedure List
12	;;Series Procedures Only
13	;;Standard Reports List
14	;;Procedure Modifiers Print
15	;;Alpha List of Active Procedures
16	;;Reports Distribution List
17	;;Rad/Nuc Med Procedure Message List
132
KILL	; Kill locals, and set ZTREQ if applicable.
IMG(RA)	; Screens procedures by I-Type. Called from the following ; subroutines: 2,9,10,11,12 & 15. Contained in variable DIS(0)! ; 'RA' is the ien of file 71. ; return '1' if procedure is correct I-Type, else '0'!
ENTASK	; Entry point for tasked job. ; All necessary variables are defined by the code calling ENTASK.
ZIS(RA)	; Select a device ; RAPOP=device selection successful ^ '^%ZTLOAD' called 1-yes
ZTSAVE	; Save variables for tasked job

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: 2+8
Function Call: WRITE	Prompt: ! Line Location: 9+7
Function Call: WRITE	Prompt: ! Line Location: 10+8
Function Call: WRITE	Prompt: ! Line Location: 11+8
Function Call: WRITE	Prompt: ! Line Location: 12+8
Function Call: WRITE	Prompt: ! Line Location: 15+6
Function Call: WRITE	Prompt: !,"This report requires a 132 column output device." Line Location: 132+0
Function Call: WRITE	Prompt: ! Line Location: ZIS+3
Function Call: WRITE	Prompt: !?3,"Request Queued, Task #: ",$G(ZTSK) Line Location: ZIS+8