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: NURA6G

Package: Nursing Service

Routine: NURA6G


Information

NURA6G ;HIRMFO/MD,RM,FT-LICENSE PROFILE BY SERVICE CATEGORY ;8/23/96 09:34

Source Information

Source file <NURA6G.m>

Entry Points

Name Comments DBIA/ICR reference
START ;
QUIT
NPRINT
NM
NN
NO
NP
NPPRINT
NHDR
SORT
BRK
BRK1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: NURA6G+10
Function Call: WRITE
  • Prompt: !
  • Line Location: NURA6G+11
Function Call: WRITE
  • Prompt: !
  • Line Location: NPPRINT+1
Function Call: WRITE
  • Prompt: ?28,$E(NURSSN,1,3),"-",$E(NURSSN,4,5),"-",$E(NURSSN,6,9)
  • Line Location: NPPRINT+4
Function Call: WRITE
  • Prompt: ?60,$P(^(0),"^",2)
  • Line Location: NPPRINT+6
Function Call: WRITE
  • Prompt: ?68,$P(^(0),"^",2)
  • Line Location: NPPRINT+7
Function Call: WRITE
  • Prompt: !,?$$CNTR^NURSUT2(NURFAC(2)),$S(NURFAC(2)=" BLANK":"NO FACILITY",1:NURFAC(2)),!
  • Line Location: NHDR+2
Function Call: WRITE
  • Prompt: !,"LICENSE PROFILE"
  • Line Location: NHDR+3
Function Call: WRITE
  • Prompt: ?56,Y,?72,"PAGE: ",NURPAGE
  • Line Location: NHDR+3
Function Call: WRITE
  • Prompt: !!,?46,"EXPIRATION",?60,"STATE",?68,"PROFESSIONAL"
  • Line Location: NHDR+4
Function Call: WRITE
  • Prompt: !,?46,"DATE OF",?60,"ISS.",?68,"LICENSE"
  • Line Location: NHDR+5
Function Call: WRITE
  • Prompt: !,?2,"NAME",?28,"SSN",?46,"LICENSE",?60,"LIC.",?68,"NUMBER"
  • Line Location: NHDR+6
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("-",80)
  • Line Location: NHDR+7
Function Call: WRITE
  • Prompt: !
  • Line Location: SORT+0
Function Call: WRITE
  • Prompt: !,"THERE IS NO DATA FOR THIS REPORT"
  • Line Location: SORT+1
Function Call: WRITE
  • Prompt: !?$$CNTR^NURSUT2(NURPROG(4)),$S(NURPROG(4)=" NURSING":$E(NURPROG(4),2,99),$G(NURPROG(4))=" BLANK":"NO PRODUCT LINE",1:$G(NURPROG(4)))
  • Line Location: BRK1+0
Function Call: WRITE
  • Prompt: !?$$CNTR^NURSUT2(NURPROG(4)),$$REPEAT^XLFSTR("-",$L(NURPROG(4))+1),!
  • Line Location: BRK1+0
Info |  Source |  Entry Points |  Interaction Calls