Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: ANRVPR1

Package: Visual Impairment Service Team

Routine: ANRVPR1


Information

ANRVPR1 ;AUG/JLTP - FORMAT WP FIELDS FOR VIST PRINTOUT ; 22 Jan 91 / 9:20 AM

Source Information

Source file <ANRVPR1.m>

Entry Points

Name Comments DBIA/ICR reference
WP ;EXPECTS ANRF = GLOBAL NODE^HEADING
PROCESS ;
NEXT ;
FINISH ; display VIST Coordinator
LASTPG ; Print last page of individual record
EXPAND ;------ Expand Set of Codes ------
CTRL ;Process control codes. (Only |TAB|s for now...)
FIELDS ;;
AMISPOS ;;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$P(ANRF,U,2)
  • Line Location: WP+1
Function Call: WRITE
  • Prompt: !?30,ANRV(ANRV)
  • Line Location: WP+6
Function Call: WRITE
  • Prompt: !!?30,ANRVC(1),!?30,ANRVC(2)
  • Line Location: FINISH+1
Function Call: WRITE
  • Prompt: !!,"Name: ",?30,PNM,!,"Social Security Number: ",?30,SSN,!!!!?20,"AMIS",!!
  • Line Location: LASTPG+8
Function Call: WRITE
  • Prompt: !,$P($T(FIELDS+I),";;",2),?30,ANRV(I)
  • Line Location: LASTPG+9
Function Call: WRITE
  • Prompt: !
  • Line Location: LASTPG+10
Info |  Source |  Entry Points |  Interaction Calls